unit ULORObju;
{ Generated by MakeComp 1.03 from ULORTYPE.PAS. Don't modify manually !!! }
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 GetTheFlags: TULRecFlags;
    procedure SetTheFlags(ATheFlags: 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 GetTable: string;
    procedure SetTable(ATable: string);
    function GetIndexes: string;
    procedure SetIndexes(AIndexes: 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 TheFlags: TULRecFlags
      read GetTheFlags write SetTheFlags;
    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;
    property Table: string
      read GetTable write SetTable;
    property Indexes: string
      read GetIndexes write SetIndexes;
  end;

const
  ULORChildRecIDs: array[0..0] of TULRecID = (
    ULOFID
  );
  ULORFldDescs: array[0..15] 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: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULRecIDStr';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: 'TheFlags';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TULRecFlags';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: 'Table';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     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: 'Indexes';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    )
  );

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

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;
    if ULORFldDescs[0].VarSize then 
      ClearFieldsLen;
    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;
    if ULORFldDescs[1].VarSize then 
      ClearFieldsLen;
    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;
    if ULORFldDescs[2].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

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

procedure TULORObj.SetTheFlags(ATheFlags: TULRecFlags);
begin
  if PULORRec(Rec)^.TheFlags <> ATheFlags then begin
    PULORRec(Rec)^.TheFlags := ATheFlags;
    if ULORFldDescs[3].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULORObj.GetTheFlags: TULRecFlags;
begin
  GetTheFlags := PULORRec(Rec)^.TheFlags;
end;

procedure TULORObj.SetSortExp(ASortExp: string);
begin
  if PULORRec(Rec)^.SortExp <> ASortExp then begin
    PULORRec(Rec)^.SortExp := ASortExp;
    if ULORFldDescs[4].VarSize then 
      ClearFieldsLen;
    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;
    if ULORFldDescs[5].VarSize then 
      ClearFieldsLen;
    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;
    if ULORFldDescs[6].VarSize then 
      ClearFieldsLen;
    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;
    if ULORFldDescs[7].VarSize then 
      ClearFieldsLen;
    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;
    if ULORFldDescs[8].VarSize then 
      ClearFieldsLen;
    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;
    if ULORFldDescs[9].VarSize then 
      ClearFieldsLen;
    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;
    if ULORFldDescs[10].VarSize then 
      ClearFieldsLen;
    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;
    if ULORFldDescs[11].VarSize then 
      ClearFieldsLen;
    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;
    if ULORFldDescs[12].VarSize then 
      ClearFieldsLen;
    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;
    if ULORFldDescs[13].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

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

procedure TULORObj.SetTable(ATable: string);
begin
  if PULORRec(Rec)^.Table <> ATable then begin
    PULORRec(Rec)^.Table := ATable;
    if ULORFldDescs[14].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULORObj.GetTable: string;
begin
  GetTable := PULORRec(Rec)^.Table;
end;

procedure TULORObj.SetIndexes(AIndexes: string);
begin
  if PULORRec(Rec)^.Indexes <> AIndexes then begin
    PULORRec(Rec)^.Indexes := AIndexes;
    if ULORFldDescs[15].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULORObj.GetIndexes: string;
begin
  GetIndexes := PULORRec(Rec)^.Indexes;
end;

{/TULORObj}

end.
