unit ULGCObju;
{ Generated by MakeComp 1.02 from ULGCTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, UlanType, ULRecTyp, ULObju, 
  ULGCType;

type
  TULGCObj = class(TULObj)
  protected
    function GetTime: TAcqTime;
    procedure SetTime(ATime: TAcqTime);
    function GetContentB: TContent;
    procedure SetContentB(AContentB: TContent);
    function GetContentC: TContent;
    procedure SetContentC(AContentC: TContent);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
    function GetSortStr: string; override;
  published
    property Time: TAcqTime
      read GetTime write SetTime;
    property ContentB: TContent
      read GetContentB write SetContentB;
    property ContentC: TContent
      read GetContentC write SetContentC;
  end;

const
  ULGCFldDescs: array[0..2] 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
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    )
  );
  ULGCRecDesc: TULRecDesc = (
    Caption: 'Gradient Content';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 3;
    Flds: @ULGCFldDescs;
    Flags: rfEnabled + rfVisible;
    SortExp: 'NumToSortStr(Time)';
    EditFieldList: '';
    BrowseFieldList: ''
   );

implementation

{TULGCObj}
function TULGCObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULGCRec);
end;

constructor TULGCObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULGCID);
end;

function TULGCObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULGCRecDesc;
end;

function TULGCObj.GetSortStr: string;
begin
  Result := NumToSortStr(Time);
end;
procedure TULGCObj.SetTime(ATime: TAcqTime);
begin
  if PULGCRec(Rec)^.Time <> ATime then begin
    PULGCRec(Rec)^.Time := ATime;
    DoChange;
  end;
end;

function TULGCObj.GetTime: TAcqTime;
begin
  GetTime := PULGCRec(Rec)^.Time;
end;

procedure TULGCObj.SetContentB(AContentB: TContent);
begin
  if PULGCRec(Rec)^.ContentB <> AContentB then begin
    PULGCRec(Rec)^.ContentB := AContentB;
    DoChange;
  end;
end;

function TULGCObj.GetContentB: TContent;
begin
  GetContentB := PULGCRec(Rec)^.ContentB;
end;

procedure TULGCObj.SetContentC(AContentC: TContent);
begin
  if PULGCRec(Rec)^.ContentC <> AContentC then begin
    PULGCRec(Rec)^.ContentC := AContentC;
    DoChange;
  end;
end;

function TULGCObj.GetContentC: TContent;
begin
  GetContentC := PULGCRec(Rec)^.ContentC;
end;

{/TULGCObj}

end.
