unit ULUObju;
{ Generated by MakeComp 1.02 from ULUTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, UlanType, ULRecTyp, ULObju, 
  ULURType,
  ULUType;

type
  TULUObj = class(TULObj)
  protected
    function GetDesc: AnsiString;
    procedure SetDesc(ADesc: AnsiString);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property Desc: AnsiString
      read GetDesc write SetDesc;
  end;

const
  ULUChildRecIDs: array[0..0] of TULRecID = (
    ULURID
  );
  ULUFldDescs: array[0..0] of TULFldDesc = (
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    )
  );
  ULURecDesc: TULRecDesc = (
    Caption: 'Users';
    ChildRecIDsStr: 'ULURID';
    ChildRecIDs: @ULUChildRecIDs;
    ChildRecIDCount: 1;
    FldCount: 1;
    Flds: @ULUFldDescs;
    Flags: rfChildAllowed + rfRootChild + rfEnabled + rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: ''
   );

implementation

{TULUObj}
function TULUObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULURec);
end;

constructor TULUObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULUID);
end;

function TULUObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULURecDesc;
end;

procedure TULUObj.SetDesc(ADesc: AnsiString);
begin
  if PULURec(Rec)^.Desc <> ADesc then begin
    PULURec(Rec)^.Desc := ADesc;
    DoChange;
  end;
end;

function TULUObj.GetDesc: AnsiString;
begin
  GetDesc := PULURec(Rec)^.Desc;
end;

{/TULUObj}

end.
