unit ULOFObju;
{ Generated by MakeComp 1.01 from ULOFTYPE.PAS. Don't modify manually !!!
  BUT copied to ULAN\ULObj to be used for runtime info about objects structure.
  }
interface
uses Classes, SysUtils, Graphics, ulanType, ULRecTyp, ULObju, 
  ULOFType;

type
  TULOFObj = class(TULObj)
  protected
    function GetFieldName: TULObjFieldName;
    procedure SetFieldName(AFieldName: TULObjFieldName);
    function GetCaption: string;
    procedure SetCaption(ACaption: string);
    function GetHint: string;
    procedure SetHint(AHint: string);
    function GetEditWidth: integer;
    procedure SetEditWidth(AEditWidth: integer);
    function GetBrowseWidth: integer;
    procedure SetBrowseWidth(ABrowseWidth: integer);
    function GetFlags: longint;
    procedure SetFlags(AFlags: longint);
    function GetUserCoef: TUserCoef;
    procedure SetUserCoef(AUserCoef: TUserCoef);
    function GetNumDec: integer;
    procedure SetNumDec(ANumDec: integer);
    function GetValuesSourceRecID: TULRecID;
    procedure SetValuesSourceRecID(AValuesSourceRecID: TULRecID);
    function GetFieldColorsList: string;
    procedure SetFieldColorsList(AFieldColorsList: string);
    function GetFilter: string;
    procedure SetFilter(AFilter: string);
    function GetLeft: integer;
    procedure SetLeft(ALeft: integer);
    function GetTop: integer;
    procedure SetTop(ATop: integer);
    function GetWidth: integer;
    procedure SetWidth(AWidth: integer);
    function GetHeight: integer;
    procedure SetHeight(AHeight: integer);
    function GetDefDir: string;
    procedure SetDefDir(ADefDir: string);
    function GetStripPrefix: string;
    procedure SetStripPrefix(AStripPrefix: string);
    function GetEditMask: string;
    procedure SetEditMask(AEditMask: string);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property FieldName: TULObjFieldName
      read GetFieldName write SetFieldName;
    property Caption: string
      read GetCaption write SetCaption;
    property Hint: string
      read GetHint write SetHint;
    property EditWidth: integer
      read GetEditWidth write SetEditWidth;
    property BrowseWidth: integer
      read GetBrowseWidth write SetBrowseWidth;
    property Flags: longint
      read GetFlags write SetFlags;
    property UserCoef: TUserCoef
      read GetUserCoef write SetUserCoef;
    property NumDec: integer
      read GetNumDec write SetNumDec;
    property ValuesSourceRecID: TULRecID
      read GetValuesSourceRecID write SetValuesSourceRecID;
    property FieldColorsList: string
      read GetFieldColorsList write SetFieldColorsList;
    property Filter: string
      read GetFilter write SetFilter;
    property Left: integer
      read GetLeft write SetLeft;
    property Top: integer
      read GetTop write SetTop;
    property Width: integer
      read GetWidth write SetWidth;
    property Height: integer
      read GetHeight write SetHeight;
    property DefDir: string
      read GetDefDir write SetDefDir;
    property StripPrefix: string
      read GetStripPrefix write SetStripPrefix;
    property EditMask: string
      read GetEditMask write SetEditMask;
  end;

const
  ULOFFldDescs: array[0..17] of TULFldDesc = (
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'FieldName';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Caption';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Hint';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'EditWidth';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'BrowseWidth';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Flags';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'UserCoef';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'NumDec';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'ValuesSourceRecID';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'FieldColorsList';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Filter';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Left';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Top';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Width';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Height';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'DefDir';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'StripPrefix';
     KeyFieldName: '';
     ListFieldName: ''
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'EditMask';
     KeyFieldName: '';
     ListFieldName: ''
    )
  );

  ULOFRecDesc: TULRecDesc = (
    Caption: 'Field definition/options';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 18;
    Flds: @ULOFFldDescs;
    Flags: rfHasRecName OR rfEnabled OR rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: ''
   );

implementation

{TULOFObj}
function TULOFObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULOFRec);
end;

constructor TULOFObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULOFID);
end;

function TULOFObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULOFRecDesc;
end;

procedure TULOFObj.SetFieldName(AFieldName: TULObjFieldName);
begin
  if PULOFRec(Rec)^.FieldName <> AFieldName then begin
    PULOFRec(Rec)^.FieldName := AFieldName;
    DoChange;
  end;
end;

function TULOFObj.GetFieldName: TULObjFieldName;
begin
  GetFieldName := PULOFRec(Rec)^.FieldName;
end;

procedure TULOFObj.SetCaption(ACaption: string);
begin
  if PULOFRec(Rec)^.Caption <> ACaption then begin
    PULOFRec(Rec)^.Caption := ACaption;
    DoChange;
  end;
end;

function TULOFObj.GetCaption: string;
begin
  GetCaption := PULOFRec(Rec)^.Caption;
end;

procedure TULOFObj.SetHint(AHint: string);
begin
  if PULOFRec(Rec)^.Hint <> AHint then begin
    PULOFRec(Rec)^.Hint := AHint;
    DoChange;
  end;
end;

function TULOFObj.GetHint: string;
begin
  GetHint := PULOFRec(Rec)^.Hint;
end;

procedure TULOFObj.SetEditWidth(AEditWidth: integer);
begin
  if PULOFRec(Rec)^.EditWidth <> AEditWidth then begin
    PULOFRec(Rec)^.EditWidth := AEditWidth;
    DoChange;
  end;
end;

function TULOFObj.GetEditWidth: integer;
begin
  GetEditWidth := PULOFRec(Rec)^.EditWidth;
end;

procedure TULOFObj.SetBrowseWidth(ABrowseWidth: integer);
begin
  if PULOFRec(Rec)^.BrowseWidth <> ABrowseWidth then begin
    PULOFRec(Rec)^.BrowseWidth := ABrowseWidth;
    DoChange;
  end;
end;

function TULOFObj.GetBrowseWidth: integer;
begin
  GetBrowseWidth := PULOFRec(Rec)^.BrowseWidth;
end;

procedure TULOFObj.SetFlags(AFlags: longint);
begin
  if PULOFRec(Rec)^.Flags <> AFlags then begin
    PULOFRec(Rec)^.Flags := AFlags;
    DoChange;
  end;
end;

function TULOFObj.GetFlags: longint;
begin
  GetFlags := PULOFRec(Rec)^.Flags;
end;

procedure TULOFObj.SetUserCoef(AUserCoef: TUserCoef);
begin
  if PULOFRec(Rec)^.UserCoef <> AUserCoef then begin
    PULOFRec(Rec)^.UserCoef := AUserCoef;
    DoChange;
  end;
end;

function TULOFObj.GetUserCoef: TUserCoef;
begin
  GetUserCoef := PULOFRec(Rec)^.UserCoef;
end;

procedure TULOFObj.SetNumDec(ANumDec: integer);
begin
  if PULOFRec(Rec)^.NumDec <> ANumDec then begin
    PULOFRec(Rec)^.NumDec := ANumDec;
    DoChange;
  end;
end;

function TULOFObj.GetNumDec: integer;
begin
  GetNumDec := PULOFRec(Rec)^.NumDec;
end;

procedure TULOFObj.SetValuesSourceRecID(AValuesSourceRecID: TULRecID);
begin
  if PULOFRec(Rec)^.ValuesSourceRecID <> AValuesSourceRecID then begin
    PULOFRec(Rec)^.ValuesSourceRecID := AValuesSourceRecID;
    DoChange;
  end;
end;

function TULOFObj.GetValuesSourceRecID: TULRecID;
begin
  GetValuesSourceRecID := PULOFRec(Rec)^.ValuesSourceRecID;
end;

procedure TULOFObj.SetFieldColorsList(AFieldColorsList: string);
begin
  if PULOFRec(Rec)^.FieldColorsList <> AFieldColorsList then begin
    PULOFRec(Rec)^.FieldColorsList := AFieldColorsList;
    DoChange;
  end;
end;

function TULOFObj.GetFieldColorsList: string;
begin
  GetFieldColorsList := PULOFRec(Rec)^.FieldColorsList;
end;

procedure TULOFObj.SetFilter(AFilter: string);
begin
  if PULOFRec(Rec)^.Filter <> AFilter then begin
    PULOFRec(Rec)^.Filter := AFilter;
    DoChange;
  end;
end;

function TULOFObj.GetFilter: string;
begin
  GetFilter := PULOFRec(Rec)^.Filter;
end;

procedure TULOFObj.SetLeft(ALeft: integer);
begin
  if PULOFRec(Rec)^.Left <> ALeft then begin
    PULOFRec(Rec)^.Left := ALeft;
    DoChange;
  end;
end;

function TULOFObj.GetLeft: integer;
begin
  GetLeft := PULOFRec(Rec)^.Left;
end;

procedure TULOFObj.SetTop(ATop: integer);
begin
  if PULOFRec(Rec)^.Top <> ATop then begin
    PULOFRec(Rec)^.Top := ATop;
    DoChange;
  end;
end;

function TULOFObj.GetTop: integer;
begin
  GetTop := PULOFRec(Rec)^.Top;
end;

procedure TULOFObj.SetWidth(AWidth: integer);
begin
  if PULOFRec(Rec)^.Width <> AWidth then begin
    PULOFRec(Rec)^.Width := AWidth;
    DoChange;
  end;
end;

function TULOFObj.GetWidth: integer;
begin
  GetWidth := PULOFRec(Rec)^.Width;
end;

procedure TULOFObj.SetHeight(AHeight: integer);
begin
  if PULOFRec(Rec)^.Height <> AHeight then begin
    PULOFRec(Rec)^.Height := AHeight;
    DoChange;
  end;
end;

function TULOFObj.GetHeight: integer;
begin
  GetHeight := PULOFRec(Rec)^.Height;
end;

procedure TULOFObj.SetDefDir(ADefDir: string);
begin
  if PULOFRec(Rec)^.DefDir <> ADefDir then begin
    PULOFRec(Rec)^.DefDir := ADefDir;
    DoChange;
  end;
end;

function TULOFObj.GetDefDir: string;
begin
  GetDefDir := PULOFRec(Rec)^.DefDir;
end;

procedure TULOFObj.SetStripPrefix(AStripPrefix: string);
begin
  if PULOFRec(Rec)^.StripPrefix <> AStripPrefix then begin
    PULOFRec(Rec)^.StripPrefix := AStripPrefix;
    DoChange;
  end;
end;

function TULOFObj.GetStripPrefix: string;
begin
  GetStripPrefix := PULOFRec(Rec)^.StripPrefix;
end;

procedure TULOFObj.SetEditMask(AEditMask: string);
begin
  if PULOFRec(Rec)^.EditMask <> AEditMask then begin
    PULOFRec(Rec)^.EditMask := AEditMask;
    DoChange;
  end;
end;

function TULOFObj.GetEditMask: string;
begin
  GetEditMask := PULOFRec(Rec)^.EditMask;
end;

{/TULOFObj}

end.
