unit ULSQObju;
{ Generated by MakeComp 1.03 from ULSQTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, SysUtils, Graphics, UlanType, ULRecTyp, ULObju, 
  ULSRType,ULIType,ULMType,USPType,
  ULSQType;

type
  TULSQObj = class(TULObj)
  protected
    function GetSequenceName: TSequenceName;
    procedure SetSequenceName(ASequenceName: TSequenceName);
    function GetSequenceDesc: TSequenceDesc;
    procedure SetSequenceDesc(ASequenceDesc: TSequenceDesc);
    function GetActive_: boolean;
    procedure SetActive_(AActive_: boolean);
    function GetActionOnSignal_: TActionOnSignal;
    procedure SetActionOnSignal_(AActionOnSignal_: TActionOnSignal);
    function GetDuration_: single;
    procedure SetDuration_(ADuration_: single);
    function GetIdleTime_: single;
    procedure SetIdleTime_(AIdleTime_: single);
    function GetStatus: TSequenceStatus;
    procedure SetStatus(AStatus: TSequenceStatus);
    function GetVialNr: integer;
    procedure SetVialNr(AVialNr: integer);
    function GetFileMask_: string;
    procedure SetFileMask_(AFileMask_: string);
    function GetPrgFileName: string;
    procedure SetPrgFileName(APrgFileName: string);
    function GetMethodFileName: string;
    procedure SetMethodFileName(AMethodFileName: string);
    function GetResultTableValue: TResultTableValue;
    procedure SetResultTableValue(AResultTableValue: TResultTableValue);
    function GetDataTemplateFileName: string;
    procedure SetDataTemplateFileName(ADataTemplateFileName: string);
    function GetSequenceKind: TSequenceKind;
    procedure SetSequenceKind(ASequenceKind: TSequenceKind);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property SequenceName: TSequenceName
      read GetSequenceName write SetSequenceName;
    property SequenceDesc: TSequenceDesc
      read GetSequenceDesc write SetSequenceDesc;
    property Active_: boolean
      read GetActive_ write SetActive_;
    property ActionOnSignal_: TActionOnSignal
      read GetActionOnSignal_ write SetActionOnSignal_;
    property Duration_: single
      read GetDuration_ write SetDuration_;
    property IdleTime_: single
      read GetIdleTime_ write SetIdleTime_;
    property Status: TSequenceStatus
      read GetStatus write SetStatus;
    property VialNr: integer
      read GetVialNr write SetVialNr;
    property FileMask_: string
      read GetFileMask_ write SetFileMask_;
    property PrgFileName: string
      read GetPrgFileName write SetPrgFileName;
    property MethodFileName: string
      read GetMethodFileName write SetMethodFileName;
    property ResultTableValue: TResultTableValue
      read GetResultTableValue write SetResultTableValue;
    property DataTemplateFileName: string
      read GetDataTemplateFileName write SetDataTemplateFileName;
    property SequenceKind: TSequenceKind
      read GetSequenceKind write SetSequenceKind;
  end;

const
  ULSQChildRecIDs: array[0..3] of TULRecID = (
    ULSRID,ULIID,ULMID,USPID
  );
  ULSQFldDescs: array[0..13] of TULFldDesc = (
    (
     Caption: 'Sequence name';
     Hint: 'Sequence name is a name of the subdirectory where samples data will be stored';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4128;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'SequenceName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TSequenceName';
    ),
    (
     Caption: 'Sequence Desc.';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'SequenceDesc';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TSequenceDesc';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 2;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Active_';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'boolean';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 2;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'ActionOnSignal_';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TActionOnSignal';
    ),
    (
     Caption: '';
     Hint: 'Value specified in the instrument info';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 2;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Duration_';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'single';
    ),
    (
     Caption: '';
     Hint: 'Value specified in the instrument info';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 2;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'IdleTime_';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'single';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'ss';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Status';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TSequenceStatus';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'VialNr';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'integer';
    ),
    (
     Caption: '';
     Hint: 'Value specified in the instrument info';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 2;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'FileMask_';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     Caption: 'Program';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4133;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: 'Sequence Program (*.AAP)|*.AAP';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'PrgFileName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     Caption: 'Method';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4133;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: 'Method (*.ULM)|*.ULM';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'MethodFileName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     Caption: 'Results Value';
     Hint: 'Value of what peak property will be shown in results table';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'tv';
     EditMask: '';
     MaxID: 0;
     FieldName: 'ResultTableValue';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TResultTableValue';
    ),
    (
     Caption: 'Template';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4132;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: 'Template (*.ULF)|*.ULT';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'DataTemplateFileName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     Caption: 'Sequence Kind';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'sk';
     EditMask: '';
     MaxID: 0;
     FieldName: 'SequenceKind';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TSequenceKind';
    )
  );

  ULSQRecDesc: TULRecDesc = (
    Caption: 'Sequence';
    ChildRecIDsStr: 'ULSRID,ULIID,ULMID,USPID';
    ChildRecIDs: @ULSQChildRecIDs;
    ChildRecIDCount: 4;
    FldCount: 14;
    Flds: @ULSQFldDescs;
    Flags: rfChildAllowed OR rfRootChild OR rfHasRecName OR rfEnabled OR rfEditModal OR rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: 'SequenceName,SequenceDesc,Status,VialNr,FileMask';
    MenuFieldList: '';
    BrowseChildRecIDs: 'ULSRID';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: 'Sequence (*.ULS)|*.ULS';
    SaveFilter: 'Sequence (*.ULS)|*.ULS';
    Table: '';
    Indexes: ''
   );

implementation

{TULSQObj}
function TULSQObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULSQRec);
end;

constructor TULSQObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULSQID);
end;

function TULSQObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULSQRecDesc;
end;

procedure TULSQObj.SetSequenceName(ASequenceName: TSequenceName);
begin
  if PULSQRec(Rec)^.SequenceName <> ASequenceName then begin
    PULSQRec(Rec)^.SequenceName := ASequenceName;
    if ULSQFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetSequenceName: TSequenceName;
begin
  GetSequenceName := PULSQRec(Rec)^.SequenceName;
end;

procedure TULSQObj.SetSequenceDesc(ASequenceDesc: TSequenceDesc);
begin
  if PULSQRec(Rec)^.SequenceDesc <> ASequenceDesc then begin
    PULSQRec(Rec)^.SequenceDesc := ASequenceDesc;
    if ULSQFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetSequenceDesc: TSequenceDesc;
begin
  GetSequenceDesc := PULSQRec(Rec)^.SequenceDesc;
end;

procedure TULSQObj.SetActive_(AActive_: boolean);
begin
  if PULSQRec(Rec)^.Active_ <> AActive_ then begin
    PULSQRec(Rec)^.Active_ := AActive_;
    if ULSQFldDescs[2].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetActive_: boolean;
begin
  GetActive_ := PULSQRec(Rec)^.Active_;
end;

procedure TULSQObj.SetActionOnSignal_(AActionOnSignal_: TActionOnSignal);
begin
  if PULSQRec(Rec)^.ActionOnSignal_ <> AActionOnSignal_ then begin
    PULSQRec(Rec)^.ActionOnSignal_ := AActionOnSignal_;
    if ULSQFldDescs[3].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetActionOnSignal_: TActionOnSignal;
begin
  GetActionOnSignal_ := PULSQRec(Rec)^.ActionOnSignal_;
end;

procedure TULSQObj.SetDuration_(ADuration_: single);
begin
  if PULSQRec(Rec)^.Duration_ <> ADuration_ then begin
    PULSQRec(Rec)^.Duration_ := ADuration_;
    if ULSQFldDescs[4].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetDuration_: single;
begin
  GetDuration_ := PULSQRec(Rec)^.Duration_;
end;

procedure TULSQObj.SetIdleTime_(AIdleTime_: single);
begin
  if PULSQRec(Rec)^.IdleTime_ <> AIdleTime_ then begin
    PULSQRec(Rec)^.IdleTime_ := AIdleTime_;
    if ULSQFldDescs[5].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetIdleTime_: single;
begin
  GetIdleTime_ := PULSQRec(Rec)^.IdleTime_;
end;

procedure TULSQObj.SetStatus(AStatus: TSequenceStatus);
begin
  if PULSQRec(Rec)^.Status <> AStatus then begin
    PULSQRec(Rec)^.Status := AStatus;
    if ULSQFldDescs[6].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetStatus: TSequenceStatus;
begin
  GetStatus := PULSQRec(Rec)^.Status;
end;

procedure TULSQObj.SetVialNr(AVialNr: integer);
begin
  if PULSQRec(Rec)^.VialNr <> AVialNr then begin
    PULSQRec(Rec)^.VialNr := AVialNr;
    if ULSQFldDescs[7].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetVialNr: integer;
begin
  GetVialNr := PULSQRec(Rec)^.VialNr;
end;

procedure TULSQObj.SetFileMask_(AFileMask_: string);
begin
  if PULSQRec(Rec)^.FileMask_ <> AFileMask_ then begin
    PULSQRec(Rec)^.FileMask_ := AFileMask_;
    if ULSQFldDescs[8].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetFileMask_: string;
begin
  GetFileMask_ := PULSQRec(Rec)^.FileMask_;
end;

procedure TULSQObj.SetPrgFileName(APrgFileName: string);
begin
  if PULSQRec(Rec)^.PrgFileName <> APrgFileName then begin
    PULSQRec(Rec)^.PrgFileName := APrgFileName;
    if ULSQFldDescs[9].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetPrgFileName: string;
begin
  GetPrgFileName := PULSQRec(Rec)^.PrgFileName;
end;

procedure TULSQObj.SetMethodFileName(AMethodFileName: string);
begin
  if PULSQRec(Rec)^.MethodFileName <> AMethodFileName then begin
    PULSQRec(Rec)^.MethodFileName := AMethodFileName;
    if ULSQFldDescs[10].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetMethodFileName: string;
begin
  GetMethodFileName := PULSQRec(Rec)^.MethodFileName;
end;

procedure TULSQObj.SetResultTableValue(AResultTableValue: TResultTableValue);
begin
  if PULSQRec(Rec)^.ResultTableValue <> AResultTableValue then begin
    PULSQRec(Rec)^.ResultTableValue := AResultTableValue;
    if ULSQFldDescs[11].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetResultTableValue: TResultTableValue;
begin
  GetResultTableValue := PULSQRec(Rec)^.ResultTableValue;
end;

procedure TULSQObj.SetDataTemplateFileName(ADataTemplateFileName: string);
begin
  if PULSQRec(Rec)^.DataTemplateFileName <> ADataTemplateFileName then begin
    PULSQRec(Rec)^.DataTemplateFileName := ADataTemplateFileName;
    if ULSQFldDescs[12].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetDataTemplateFileName: string;
begin
  GetDataTemplateFileName := PULSQRec(Rec)^.DataTemplateFileName;
end;

procedure TULSQObj.SetSequenceKind(ASequenceKind: TSequenceKind);
begin
  if PULSQRec(Rec)^.SequenceKind <> ASequenceKind then begin
    PULSQRec(Rec)^.SequenceKind := ASequenceKind;
    if ULSQFldDescs[13].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULSQObj.GetSequenceKind: TSequenceKind;
begin
  GetSequenceKind := PULSQRec(Rec)^.SequenceKind;
end;

{/TULSQObj}

end.
