unit ULIObju;
{ Generated by MakeComp 1.02 from ULITYPE.PAS. Don't modify manually !!! }
interface
uses Classes, UlanType, ULRecTyp, ULObju, 
  ULGType,ULLType,
  ULIType;

type
  TULIObj = class(TULObj)
  protected
    function GetInstrumentTemplate: TULFileName;
    procedure SetInstrumentTemplate(AInstrumentTemplate: TULFileName);
    function GetColumn: TColumnName;
    procedure SetColumn(AColumn: TColumnName);
    function GetMobilePhase: TMobilePhase;
    procedure SetMobilePhase(AMobilePhase: TMobilePhase);
    function GetFlowRate: TFlowRate;
    procedure SetFlowRate(AFlowRate: TFlowRate);
    function GetFlowRateUnit: TFlowRateUnit;
    procedure SetFlowRateUnit(AFlowRateUnit: TFlowRateUnit);
    function GetDetection: TDetection;
    procedure SetDetection(ADetection: TDetection);
    function GetTemperature: TTemperature;
    procedure SetTemperature(ATemperature: TTemperature);
    function GetTemperatureUnit: TTemperatureUnit;
    procedure SetTemperatureUnit(ATemperatureUnit: TTemperatureUnit);
    function GetInstrumentFileName: TULFileName;
    procedure SetInstrumentFileName(AInstrumentFileName: TULFileName);
    function GetChannelName: TChannelName;
    procedure SetChannelName(AChannelName: TChannelName);
    function GetDuration: single;
    procedure SetDuration(ADuration: single);
    function GetSamplingInterval: single;
    procedure SetSamplingInterval(ASamplingInterval: single);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property InstrumentTemplate: TULFileName
      read GetInstrumentTemplate write SetInstrumentTemplate;
    property Column: TColumnName
      read GetColumn write SetColumn;
    property MobilePhase: TMobilePhase
      read GetMobilePhase write SetMobilePhase;
    property FlowRate: TFlowRate
      read GetFlowRate write SetFlowRate;
    property FlowRateUnit: TFlowRateUnit
      read GetFlowRateUnit write SetFlowRateUnit;
    property Detection: TDetection
      read GetDetection write SetDetection;
    property Temperature: TTemperature
      read GetTemperature write SetTemperature;
    property TemperatureUnit: TTemperatureUnit
      read GetTemperatureUnit write SetTemperatureUnit;
    property InstrumentFileName: TULFileName
      read GetInstrumentFileName write SetInstrumentFileName;
    property ChannelName: TChannelName
      read GetChannelName write SetChannelName;
    property Duration: single
      read GetDuration write SetDuration;
    property SamplingInterval: single
      read GetSamplingInterval write SetSamplingInterval;
  end;

const
  ULIChildRecIDs: array[0..0] of TULRecID = (
    ULGID
  );
  ULIFldDescs: array[0..11] of TULFldDesc = (
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 37;
     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
    ),
    (
     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: 37;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 17;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: ULLID
    ),
    (
     Caption: 'Duration of Analysis [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Sampling interval [s]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    )
  );
  ULIRecDesc: TULRecDesc = (
    Caption: 'Instrument';
    ChildRecIDsStr: 'ULGID';
    ChildRecIDs: @ULIChildRecIDs;
    ChildRecIDCount: 1;
    FldCount: 12;
    Flds: @ULIFldDescs;
    Flags: rfChildAllowed + rfRootChild + rfEnabled + rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: ''
   );

implementation

{TULIObj}
function TULIObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULIRec);
end;

constructor TULIObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULIID);
end;

function TULIObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULIRecDesc;
end;

procedure TULIObj.SetInstrumentTemplate(AInstrumentTemplate: TULFileName);
begin
  if PULIRec(Rec)^.InstrumentTemplate <> AInstrumentTemplate then begin
    PULIRec(Rec)^.InstrumentTemplate := AInstrumentTemplate;
    DoChange;
  end;
end;

function TULIObj.GetInstrumentTemplate: TULFileName;
begin
  GetInstrumentTemplate := PULIRec(Rec)^.InstrumentTemplate;
end;

procedure TULIObj.SetColumn(AColumn: TColumnName);
begin
  if PULIRec(Rec)^.Column <> AColumn then begin
    PULIRec(Rec)^.Column := AColumn;
    DoChange;
  end;
end;

function TULIObj.GetColumn: TColumnName;
begin
  GetColumn := PULIRec(Rec)^.Column;
end;

procedure TULIObj.SetMobilePhase(AMobilePhase: TMobilePhase);
begin
  if PULIRec(Rec)^.MobilePhase <> AMobilePhase then begin
    PULIRec(Rec)^.MobilePhase := AMobilePhase;
    DoChange;
  end;
end;

function TULIObj.GetMobilePhase: TMobilePhase;
begin
  GetMobilePhase := PULIRec(Rec)^.MobilePhase;
end;

procedure TULIObj.SetFlowRate(AFlowRate: TFlowRate);
begin
  if PULIRec(Rec)^.FlowRate <> AFlowRate then begin
    PULIRec(Rec)^.FlowRate := AFlowRate;
    DoChange;
  end;
end;

function TULIObj.GetFlowRate: TFlowRate;
begin
  GetFlowRate := PULIRec(Rec)^.FlowRate;
end;

procedure TULIObj.SetFlowRateUnit(AFlowRateUnit: TFlowRateUnit);
begin
  if PULIRec(Rec)^.FlowRateUnit <> AFlowRateUnit then begin
    PULIRec(Rec)^.FlowRateUnit := AFlowRateUnit;
    DoChange;
  end;
end;

function TULIObj.GetFlowRateUnit: TFlowRateUnit;
begin
  GetFlowRateUnit := PULIRec(Rec)^.FlowRateUnit;
end;

procedure TULIObj.SetDetection(ADetection: TDetection);
begin
  if PULIRec(Rec)^.Detection <> ADetection then begin
    PULIRec(Rec)^.Detection := ADetection;
    DoChange;
  end;
end;

function TULIObj.GetDetection: TDetection;
begin
  GetDetection := PULIRec(Rec)^.Detection;
end;

procedure TULIObj.SetTemperature(ATemperature: TTemperature);
begin
  if PULIRec(Rec)^.Temperature <> ATemperature then begin
    PULIRec(Rec)^.Temperature := ATemperature;
    DoChange;
  end;
end;

function TULIObj.GetTemperature: TTemperature;
begin
  GetTemperature := PULIRec(Rec)^.Temperature;
end;

procedure TULIObj.SetTemperatureUnit(ATemperatureUnit: TTemperatureUnit);
begin
  if PULIRec(Rec)^.TemperatureUnit <> ATemperatureUnit then begin
    PULIRec(Rec)^.TemperatureUnit := ATemperatureUnit;
    DoChange;
  end;
end;

function TULIObj.GetTemperatureUnit: TTemperatureUnit;
begin
  GetTemperatureUnit := PULIRec(Rec)^.TemperatureUnit;
end;

procedure TULIObj.SetInstrumentFileName(AInstrumentFileName: TULFileName);
begin
  if PULIRec(Rec)^.InstrumentFileName <> AInstrumentFileName then begin
    PULIRec(Rec)^.InstrumentFileName := AInstrumentFileName;
    DoChange;
  end;
end;

function TULIObj.GetInstrumentFileName: TULFileName;
begin
  GetInstrumentFileName := PULIRec(Rec)^.InstrumentFileName;
end;

procedure TULIObj.SetChannelName(AChannelName: TChannelName);
begin
  if PULIRec(Rec)^.ChannelName <> AChannelName then begin
    PULIRec(Rec)^.ChannelName := AChannelName;
    DoChange;
  end;
end;

function TULIObj.GetChannelName: TChannelName;
begin
  GetChannelName := PULIRec(Rec)^.ChannelName;
end;

procedure TULIObj.SetDuration(ADuration: single);
begin
  if PULIRec(Rec)^.Duration <> ADuration then begin
    PULIRec(Rec)^.Duration := ADuration;
    DoChange;
  end;
end;

function TULIObj.GetDuration: single;
begin
  GetDuration := PULIRec(Rec)^.Duration;
end;

procedure TULIObj.SetSamplingInterval(ASamplingInterval: single);
begin
  if PULIRec(Rec)^.SamplingInterval <> ASamplingInterval then begin
    PULIRec(Rec)^.SamplingInterval := ASamplingInterval;
    DoChange;
  end;
end;

function TULIObj.GetSamplingInterval: single;
begin
  GetSamplingInterval := PULIRec(Rec)^.SamplingInterval;
end;

{/TULIObj}

end.
