unit ULTObju;
{ Generated by MakeComp 1.02 from ULTTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, UlanType, ULRecTyp, ULObju, 
  ULTEType,
  ULTType;

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

const
  ULTChildRecIDs: array[0..0] of TULRecID = (
    ULTEID
  );
  ULTRecDesc: TULRecDesc = (
    Caption: 'ToDo list';
    ChildRecIDsStr: 'ULTEID';
    ChildRecIDs: @ULTChildRecIDs;
    ChildRecIDCount: 1;
    FldCount: 0;
    Flds: nil;
    Flags: rfChildAllowed + rfRootChild + rfChildSorted + rfEnabled + rfVisible + rfBrowseOnEdit + rfSortedByNumber;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: ''
   );

implementation

{TULTObj}
function TULTObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULTRec);
end;

constructor TULTObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULTID);
end;

function TULTObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULTRecDesc;
end;

{/TULTObj}

end.
