unit ULORObju;
{ Generated by MakeComp 1.01 from ULORTYPE.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,
  ULORType;

type
  TULORObj = class(TULObj)
  protected
    function GetTheRecIDStr: TULRecIDStr;
    procedure SetTheRecIDStr(ATheRecIDStr: TULRecIDStr);
    function GetCaption: string;
    procedure SetCaption(ACaption: string);
    function GetChildRecIDsStr: string;
    procedure SetChildRecIDsStr(AChildRecIDsStr: string);
    function GetFlags: TULRecFlags;
    procedure SetFlags(AFlags: TULRecFlags);
    function GetSortExp: string;
    procedure SetSortExp(ASortExp: string);
    function GetEditFieldList: string;
    procedure SetEditFieldList(AEditFieldList: string);
    function GetBrowseFieldList: string;
    procedure SetBrowseFieldList(ABrowseFieldList: string);
    function GetMenuFieldList: string;
    procedure SetMenuFieldList(AMenuFieldList: string);
    function GetBrowseChildRecIDs: string;
    procedure SetBrowseChildRecIDs(ABrowseChildRecIDs: string);
    function GetNameProp: string;
    procedure SetNameProp(ANameProp: string);
    function GetMainProp: string;
    procedure SetMainProp(AMainProp: string);
    function GetDefDir: string;
    procedure SetDefDir(ADefDir: string);
    function GetOpenFilter: string;
    procedure SetOpenFilter(AOpenFilter: string);
    function GetSaveFilter: string;
    procedure SetSaveFilter(ASaveFilter: string);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property TheRecIDStr: TULRecIDStr
      read GetTheRecIDStr write SetTheRecIDStr;
    property Caption: string
      read GetCaption write SetCaption;
    property ChildRecIDsStr: string
      read GetChildRecIDsStr write SetChildRecIDsStr;
    property Flags: TULRecFlags
      read GetFlags write SetFlags;
    property SortExp: string
      read GetSortExp write SetSortExp;
    property EditFieldList: string
      read GetEditFieldList write SetEditFieldList;
    property BrowseFieldList: string
      read GetBrowseFieldList write SetBrowseFieldList;
    property MenuFieldList: string
      read GetMenuFieldList write SetMenuFieldList;
    property BrowseChildRecIDs: string
      read GetBrowseChildRecIDs write SetBrowseChildRecIDs;
    property NameProp: string
      read GetNameProp write SetNameProp;
    property MainProp: string
      read GetMainProp write SetMainProp;
    property DefDir: string
      read GetDefDir write SetDefDir;
    property OpenFilter: string
      read GetOpenFilter write SetOpenFilter;
    property SaveFilter: string
      read GetSaveFilter write SetSaveFilter;
  end;

const
  ULORChildRecIDs: array[0..0] of TULRecID = (
    ULOFID
  );
  ULORFldDescs: array[0..13] 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: 'TheRecIDStr';
     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: 'ChildRecIDsStr';
     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: 'SortExp';
     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: 'EditFieldList';
     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: 'BrowseFieldList';
     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: 'MenuFieldList';
     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: 'BrowseChildRecIDs';
     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: 'NameProp';
     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: 'MainProp';
     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: 'OpenFilter';
     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: 'SaveFilter';
     KeyFieldName: '';
     ListFieldName: ''
    )
  );

  ULORRecDesc: TULRecDesc = (
    Caption: 'Object options';
    ChildRecIDsStr: 'ULOFID';
    ChildRecIDs: @ULORChildRecIDs;
    ChildRecIDCount: 1;
    FldCount: 14;
    Flds: @ULORFldDescs;
    Flags: rfChildAllowed OR rfHasRecName OR rfEnabled OR rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: ''
   );

implementation

{TULORObj}
function TULORObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULORRec);
end;

constructor TULORObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULORID);
end;

function TULORObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULORRecDesc;
end;

procedure TULORObj.SetTheRecIDStr(ATheRecIDStr: TULRecIDStr);
begin
  if PULORRec(Rec)^.TheRecIDStr <> ATheRecIDStr then begin
    PULORRec(Rec)^.TheRecIDStr := ATheRecIDStr;
    DoChange;
  end;
end;

function TULORObj.GetTheRecIDStr: TULRecIDStr;
begin
  GetTheRecIDStr := PULORRec(Rec)^.TheRecIDStr;
end;

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

function TULORObj.GetCaption: string;
begin
  GetCaption := PULORRec(Rec)^.Caption;
end;

procedure TULORObj.SetChildRecIDsStr(AChildRecIDsStr: string);
begin
  if PULORRec(Rec)^.ChildRecIDsStr <> AChildRecIDsStr then begin
    PULORRec(Rec)^.ChildRecIDsStr := AChildRecIDsStr;
    DoChange;
  end;
end;

function TULORObj.GetChildRecIDsStr: string;
begin
  GetChildRecIDsStr := PULORRec(Rec)^.ChildRecIDsStr;
end;

procedure TULORObj.SetFlags(AFlags: TULRecFlags);
begin
  if PULORRec(Rec)^.Flags <> AFlags then begin
    PULORRec(Rec)^.Flags := AFlags;
    DoChange;
  end;
end;

function TULORObj.GetFlags: TULRecFlags;
begin
  GetFlags := PULORRec(Rec)^.Flags;
end;

procedure TULORObj.SetSortExp(ASortExp: string);
begin
  if PULORRec(Rec)^.SortExp <> ASortExp then begin
    PULORRec(Rec)^.SortExp := ASortExp;
    DoChange;
  end;
end;

function TULORObj.GetSortExp: string;
begin
  GetSortExp := PULORRec(Rec)^.SortExp;
end;

procedure TULORObj.SetEditFieldList(AEditFieldList: string);
begin
  if PULORRec(Rec)^.EditFieldList <> AEditFieldList then begin
    PULORRec(Rec)^.EditFieldList := AEditFieldList;
    DoChange;
  end;
end;

function TULORObj.GetEditFieldList: string;
begin
  GetEditFieldList := PULORRec(Rec)^.EditFieldList;
end;

procedure TULORObj.SetBrowseFieldList(ABrowseFieldList: string);
begin
  if PULORRec(Rec)^.BrowseFieldList <> ABrowseFieldList then begin
    PULORRec(Rec)^.BrowseFieldList := ABrowseFieldList;
    DoChange;
  end;
end;

function TULORObj.GetBrowseFieldList: string;
begin
  GetBrowseFieldList := PULORRec(Rec)^.BrowseFieldList;
end;

procedure TULORObj.SetMenuFieldList(AMenuFieldList: string);
begin
  if PULORRec(Rec)^.MenuFieldList <> AMenuFieldList then begin
    PULORRec(Rec)^.MenuFieldList := AMenuFieldList;
    DoChange;
  end;
end;

function TULORObj.GetMenuFieldList: string;
begin
  GetMenuFieldList := PULORRec(Rec)^.MenuFieldList;
end;

procedure TULORObj.SetBrowseChildRecIDs(ABrowseChildRecIDs: string);
begin
  if PULORRec(Rec)^.BrowseChildRecIDs <> ABrowseChildRecIDs then begin
    PULORRec(Rec)^.BrowseChildRecIDs := ABrowseChildRecIDs;
    DoChange;
  end;
end;

function TULORObj.GetBrowseChildRecIDs: string;
begin
  GetBrowseChildRecIDs := PULORRec(Rec)^.BrowseChildRecIDs;
end;

procedure TULORObj.SetNameProp(ANameProp: string);
begin
  if PULORRec(Rec)^.NameProp <> ANameProp then begin
    PULORRec(Rec)^.NameProp := ANameProp;
    DoChange;
  end;
end;

function TULORObj.GetNameProp: string;
begin
  GetNameProp := PULORRec(Rec)^.NameProp;
end;

procedure TULORObj.SetMainProp(AMainProp: string);
begin
  if PULORRec(Rec)^.MainProp <> AMainProp then begin
    PULORRec(Rec)^.MainProp := AMainProp;
    DoChange;
  end;
end;

function TULORObj.GetMainProp: string;
begin
  GetMainProp := PULORRec(Rec)^.MainProp;
end;

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

function TULORObj.GetDefDir: string;
begin
  GetDefDir := PULORRec(Rec)^.DefDir;
end;

procedure TULORObj.SetOpenFilter(AOpenFilter: string);
begin
  if PULORRec(Rec)^.OpenFilter <> AOpenFilter then begin
    PULORRec(Rec)^.OpenFilter := AOpenFilter;
    DoChange;
  end;
end;

function TULORObj.GetOpenFilter: string;
begin
  GetOpenFilter := PULORRec(Rec)^.OpenFilter;
end;

procedure TULORObj.SetSaveFilter(ASaveFilter: string);
begin
  if PULORRec(Rec)^.SaveFilter <> ASaveFilter then begin
    PULORRec(Rec)^.SaveFilter := ASaveFilter;
    DoChange;
  end;
end;

function TULORObj.GetSaveFilter: string;
begin
  GetSaveFilter := PULORRec(Rec)^.SaveFilter;
end;

{/TULORObj}

end.
