unit ULBObju;
{ Generated by MakeComp 1.02 from ULBTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, UlanType, ULRecTyp, ULObju, 
  ULBRType,
  ULBType;

type
  TULBObj = class(TULObj)
  protected
    function GetBaseLineName: TBaseLineName;
    procedure SetBaseLineName(ABaseLineName: TBaseLineName);
    function GetBaseLineFileName: TULFileName;
    procedure SetBaseLineFileName(ABaseLineFileName: TULFileName);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property BaseLineName: TBaseLineName
      read GetBaseLineName write SetBaseLineName;
    property BaseLineFileName: TULFileName
      read GetBaseLineFileName write SetBaseLineFileName;
  end;

const
  ULBChildRecIDs: array[0..0] of TULRecID = (
    ULBRID
  );
  ULBFldDescs: array[0..1] of TULFldDesc = (
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    )
  );
  ULBRecDesc: TULRecDesc = (
    Caption: 'Baseline';
    ChildRecIDsStr: 'ULBRID';
    ChildRecIDs: @ULBChildRecIDs;
    ChildRecIDCount: 1;
    FldCount: 2;
    Flds: @ULBFldDescs;
    Flags: rfChildAllowed + rfRootChild + rfChildSorted + rfEnabled + rfVisible + rfBrowseOnEdit + rfSortedByNumber;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: ''
   );

implementation

{TULBObj}
function TULBObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULBRec);
end;

constructor TULBObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULBID);
end;

function TULBObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULBRecDesc;
end;

procedure TULBObj.SetBaseLineName(ABaseLineName: TBaseLineName);
begin
  if PULBRec(Rec)^.BaseLineName <> ABaseLineName then begin
    PULBRec(Rec)^.BaseLineName := ABaseLineName;
    DoChange;
  end;
end;

function TULBObj.GetBaseLineName: TBaseLineName;
begin
  GetBaseLineName := PULBRec(Rec)^.BaseLineName;
end;

procedure TULBObj.SetBaseLineFileName(ABaseLineFileName: TULFileName);
begin
  if PULBRec(Rec)^.BaseLineFileName <> ABaseLineFileName then begin
    PULBRec(Rec)^.BaseLineFileName := ABaseLineFileName;
    DoChange;
  end;
end;

function TULBObj.GetBaseLineFileName: TULFileName;
begin
  GetBaseLineFileName := PULBRec(Rec)^.BaseLineFileName;
end;

{/TULBObj}

end.
