unit ULOObju;
{ Generated by MakeComp 1.01 from ULOTYPE.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, 
  ULORType,
  ULOType;

type
  TULOObj = class(TULObj)
  protected
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
  end;

const
  ULOChildRecIDs: array[0..0] of TULRecID = (
    ULORID
  );
  ULORecDesc: TULRecDesc = (
    Caption: 'Objects Options';
    ChildRecIDsStr: 'ULORID';
    ChildRecIDs: @ULOChildRecIDs;
    ChildRecIDCount: 1;
    FldCount: 0;
    Flds: nil;
    Flags: rfChildAllowed OR rfRootChild OR rfEnabled OR rfVisible OR rfBrowseOnEdit;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: ''
   );

implementation

{TULOObj}
function TULOObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULORec);
end;

constructor TULOObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULOID);
end;

function TULOObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULORecDesc;
end;

{/TULOObj}

end.
