unit ULAObju;
{ Generated by MakeComp 1.02 from ULATYPE.PAS. Don't modify manually !!! }
interface
uses Classes, UlanType, ULRecTyp, ULObju, 
  ULADType,ULAFType,ULIType,ULMType,
  ULAType;

type
  TULAObj = class(TULObj)
  protected
    function GetSampleName: TSampleName;
    procedure SetSampleName(ASampleName: TSampleName);
    function GetSampleDesc: TSampleDesc;
    procedure SetSampleDesc(ASampleDesc: TSampleDesc);
    function GetAmount: TSampleAmount;
    procedure SetAmount(AAmount: TSampleAmount);
    function GetISTDAmount: TSampleAmount;
    procedure SetISTDAmount(AISTDAmount: TSampleAmount);
    function GetInjectionVolume: TInjectionVolume;
    procedure SetInjectionVolume(AInjectionVolume: TInjectionVolume);
    function GetCalibrationStandard: boolean;
    procedure SetCalibrationStandard(ACalibrationStandard: boolean);
    function GetExternalStartEnabled: boolean;
    procedure SetExternalStartEnabled(AExternalStartEnabled: boolean);
    function GetUserID: TUserID;
    procedure SetUserID(AUserID: TUserID);
    function GetUserName: TUserName;
    procedure SetUserName(AUserName: TUserName);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property SampleName: TSampleName
      read GetSampleName write SetSampleName;
    property SampleDesc: TSampleDesc
      read GetSampleDesc write SetSampleDesc;
    property Amount: TSampleAmount
      read GetAmount write SetAmount;
    property ISTDAmount: TSampleAmount
      read GetISTDAmount write SetISTDAmount;
    property InjectionVolume: TInjectionVolume
      read GetInjectionVolume write SetInjectionVolume;
    property CalibrationStandard: boolean
      read GetCalibrationStandard write SetCalibrationStandard;
    property ExternalStartEnabled: boolean
      read GetExternalStartEnabled write SetExternalStartEnabled;
    property UserID: TUserID
      read GetUserID write SetUserID;
    property UserName: TUserName
      read GetUserName write SetUserName;
  end;

const
  ULAChildRecIDs: array[0..3] of TULRecID = (
    ULADID,ULAFID,ULIID,ULMID
  );
  ULAFldDescs: array[0..8] of TULFldDesc = (
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Sample Desc.';
     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
    ),
    (
     Caption: 'Inj.volume[ul]';
     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
    ),
    (
     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
    )
  );
  ULARecDesc: TULRecDesc = (
    Caption: 'Sample';
    ChildRecIDsStr: 'ULADID,ULAFID,ULIID,ULMID';
    ChildRecIDs: @ULAChildRecIDs;
    ChildRecIDCount: 4;
    FldCount: 9;
    Flds: @ULAFldDescs;
    Flags: rfChildAllowed + rfRootChild + rfHasRecName + rfEnabled + rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: ''
   );

implementation

{TULAObj}
function TULAObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULARec);
end;

constructor TULAObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULAID);
end;

function TULAObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULARecDesc;
end;

procedure TULAObj.SetSampleName(ASampleName: TSampleName);
begin
  if PULARec(Rec)^.SampleName <> ASampleName then begin
    PULARec(Rec)^.SampleName := ASampleName;
    DoChange;
  end;
end;

function TULAObj.GetSampleName: TSampleName;
begin
  GetSampleName := PULARec(Rec)^.SampleName;
end;

procedure TULAObj.SetSampleDesc(ASampleDesc: TSampleDesc);
begin
  if PULARec(Rec)^.SampleDesc <> ASampleDesc then begin
    PULARec(Rec)^.SampleDesc := ASampleDesc;
    DoChange;
  end;
end;

function TULAObj.GetSampleDesc: TSampleDesc;
begin
  GetSampleDesc := PULARec(Rec)^.SampleDesc;
end;

procedure TULAObj.SetAmount(AAmount: TSampleAmount);
begin
  if PULARec(Rec)^.Amount <> AAmount then begin
    PULARec(Rec)^.Amount := AAmount;
    DoChange;
  end;
end;

function TULAObj.GetAmount: TSampleAmount;
begin
  GetAmount := PULARec(Rec)^.Amount;
end;

procedure TULAObj.SetISTDAmount(AISTDAmount: TSampleAmount);
begin
  if PULARec(Rec)^.ISTDAmount <> AISTDAmount then begin
    PULARec(Rec)^.ISTDAmount := AISTDAmount;
    DoChange;
  end;
end;

function TULAObj.GetISTDAmount: TSampleAmount;
begin
  GetISTDAmount := PULARec(Rec)^.ISTDAmount;
end;

procedure TULAObj.SetInjectionVolume(AInjectionVolume: TInjectionVolume);
begin
  if PULARec(Rec)^.InjectionVolume <> AInjectionVolume then begin
    PULARec(Rec)^.InjectionVolume := AInjectionVolume;
    DoChange;
  end;
end;

function TULAObj.GetInjectionVolume: TInjectionVolume;
begin
  GetInjectionVolume := PULARec(Rec)^.InjectionVolume;
end;

procedure TULAObj.SetCalibrationStandard(ACalibrationStandard: boolean);
begin
  if PULARec(Rec)^.CalibrationStandard <> ACalibrationStandard then begin
    PULARec(Rec)^.CalibrationStandard := ACalibrationStandard;
    DoChange;
  end;
end;

function TULAObj.GetCalibrationStandard: boolean;
begin
  GetCalibrationStandard := PULARec(Rec)^.CalibrationStandard;
end;

procedure TULAObj.SetExternalStartEnabled(AExternalStartEnabled: boolean);
begin
  if PULARec(Rec)^.ExternalStartEnabled <> AExternalStartEnabled then begin
    PULARec(Rec)^.ExternalStartEnabled := AExternalStartEnabled;
    DoChange;
  end;
end;

function TULAObj.GetExternalStartEnabled: boolean;
begin
  GetExternalStartEnabled := PULARec(Rec)^.ExternalStartEnabled;
end;

procedure TULAObj.SetUserID(AUserID: TUserID);
begin
  if PULARec(Rec)^.UserID <> AUserID then begin
    PULARec(Rec)^.UserID := AUserID;
    DoChange;
  end;
end;

function TULAObj.GetUserID: TUserID;
begin
  GetUserID := PULARec(Rec)^.UserID;
end;

procedure TULAObj.SetUserName(AUserName: TUserName);
begin
  if PULARec(Rec)^.UserName <> AUserName then begin
    PULARec(Rec)^.UserName := AUserName;
    DoChange;
  end;
end;

function TULAObj.GetUserName: TUserName;
begin
  GetUserName := PULARec(Rec)^.UserName;
end;

{/TULAObj}

end.
