unit UCPRObju;
{ Generated by MakeComp 1.03 from UCPRTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, SysUtils, Graphics, UlanType, ULRecTyp, ULObju, 
  UCPLType,
  UCPRType;

type
  TUCPRObj = class(TULObj)
  protected
    function GetX: TXValue;
    procedure SetX(AX: TXValue);
    function GetPeakName: TPeakName;
    procedure SetPeakName(APeakName: TPeakName);
    function GetResponse: TResponse;
    procedure SetResponse(AResponse: TResponse);
    function GetDataName: string;
    procedure SetDataName(ADataName: string);
    function GetResponseBase: TResponseBase;
    procedure SetResponseBase(AResponseBase: TResponseBase);
    function GetCurveFitType: TCurveFitType;
    procedure SetCurveFitType(ACurveFitType: TCurveFitType);
    function GetOriginUse: TOriginUse;
    procedure SetOriginUse(AOriginUse: TOriginUse);
    function GetParam1: double;
    procedure SetParam1(AParam1: double);
    function GetParam2: double;
    procedure SetParam2(AParam2: double);
    function GetParam3: double;
    procedure SetParam3(AParam3: double);
    function GetParam4: double;
    procedure SetParam4(AParam4: double);
    function GetParam5: double;
    procedure SetParam5(AParam5: double);
    function GetFromFileCount: integer;
    procedure SetFromFileCount(AFromFileCount: integer);
    function GetWeightSum: single;
    procedure SetWeightSum(AWeightSum: single);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
    function GetSortNum: extended; override;
  published
    property X: TXValue
      read GetX write SetX;
    property PeakName: TPeakName
      read GetPeakName write SetPeakName;
    property Response: TResponse
      read GetResponse write SetResponse;
    property DataName: string
      read GetDataName write SetDataName;
    property ResponseBase: TResponseBase
      read GetResponseBase write SetResponseBase;
    property CurveFitType: TCurveFitType
      read GetCurveFitType write SetCurveFitType;
    property OriginUse: TOriginUse
      read GetOriginUse write SetOriginUse;
    property Param1: double
      read GetParam1 write SetParam1;
    property Param2: double
      read GetParam2 write SetParam2;
    property Param3: double
      read GetParam3 write SetParam3;
    property Param4: double
      read GetParam4 write SetParam4;
    property Param5: double
      read GetParam5 write SetParam5;
    property FromFileCount: integer
      read GetFromFileCount write SetFromFileCount;
    property WeightSum: single
      read GetWeightSum write SetWeightSum;
  end;

const
  UCPRChildRecIDs: array[0..0] of TULRecID = (
    UCPLID
  );
  UCPRFldDescs: array[0..13] of TULFldDesc = (
    (
     Caption: 'X [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'X';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TXValue';
    ),
    (
     Caption: 'Name';
     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: 'PeakName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TPeakName';
    ),
    (
     Caption: '';
     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: 'Response';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TResponse';
    ),
    (
     Caption: 'Data name';
     Hint: 'In what data line the peak should be located (e.g.: B for blue line in AAA)';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'DataName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'rb';
     EditMask: '';
     MaxID: 0;
     FieldName: 'ResponseBase';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TResponseBase';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'cf';
     EditMask: '';
     MaxID: 0;
     FieldName: 'CurveFitType';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TCurveFitType';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'ou';
     EditMask: '';
     MaxID: 0;
     FieldName: 'OriginUse';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TOriginUse';
    ),
    (
     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: 'Param1';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'double';
    ),
    (
     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: 'Param2';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'double';
    ),
    (
     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: 'Param3';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'double';
    ),
    (
     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: 'Param4';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'double';
    ),
    (
     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: 'Param5';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'double';
    ),
    (
     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: 'FromFileCount';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'integer';
    ),
    (
     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: 'WeightSum';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'single';
    )
  );

  UCPRRecDesc: TULRecDesc = (
    Caption: 'Calib.Peak';
    ChildRecIDsStr: 'UCPLID';
    ChildRecIDs: @UCPRChildRecIDs;
    ChildRecIDCount: 1;
    FldCount: 14;
    Flds: @UCPRFldDescs;
    Flags: rfChildAllowed OR rfEnabled OR rfVisible OR rfSortedByNumber;
    SortExp: 'X';
    EditFieldList: 'PeakName,X,Response,DataName';
    BrowseFieldList: 'X,PeakName,Response,DataName,CurveFitType,OriginUse,ResponseBase';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TUCPRObj}
function TUCPRObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TUCPRRec);
end;

constructor TUCPRObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), UCPRID);
end;

function TUCPRObj.GetULRecDesc: PULRecDesc;
begin
  Result := @UCPRRecDesc;
end;

function TUCPRObj.GetSortNum: Extended;
begin
  Result := X;
end;
procedure TUCPRObj.SetX(AX: TXValue);
begin
  if PUCPRRec(Rec)^.X <> AX then begin
    PUCPRRec(Rec)^.X := AX;
    if UCPRFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetX: TXValue;
begin
  GetX := PUCPRRec(Rec)^.X;
end;

procedure TUCPRObj.SetPeakName(APeakName: TPeakName);
begin
  if PUCPRRec(Rec)^.PeakName <> APeakName then begin
    PUCPRRec(Rec)^.PeakName := APeakName;
    if UCPRFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetPeakName: TPeakName;
begin
  GetPeakName := PUCPRRec(Rec)^.PeakName;
end;

procedure TUCPRObj.SetResponse(AResponse: TResponse);
begin
  if PUCPRRec(Rec)^.Response <> AResponse then begin
    PUCPRRec(Rec)^.Response := AResponse;
    if UCPRFldDescs[2].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetResponse: TResponse;
begin
  GetResponse := PUCPRRec(Rec)^.Response;
end;

procedure TUCPRObj.SetDataName(ADataName: string);
begin
  if PUCPRRec(Rec)^.DataName <> ADataName then begin
    PUCPRRec(Rec)^.DataName := ADataName;
    if UCPRFldDescs[3].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetDataName: string;
begin
  GetDataName := PUCPRRec(Rec)^.DataName;
end;

procedure TUCPRObj.SetResponseBase(AResponseBase: TResponseBase);
begin
  if PUCPRRec(Rec)^.ResponseBase <> AResponseBase then begin
    PUCPRRec(Rec)^.ResponseBase := AResponseBase;
    if UCPRFldDescs[4].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetResponseBase: TResponseBase;
begin
  GetResponseBase := PUCPRRec(Rec)^.ResponseBase;
end;

procedure TUCPRObj.SetCurveFitType(ACurveFitType: TCurveFitType);
begin
  if PUCPRRec(Rec)^.CurveFitType <> ACurveFitType then begin
    PUCPRRec(Rec)^.CurveFitType := ACurveFitType;
    if UCPRFldDescs[5].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetCurveFitType: TCurveFitType;
begin
  GetCurveFitType := PUCPRRec(Rec)^.CurveFitType;
end;

procedure TUCPRObj.SetOriginUse(AOriginUse: TOriginUse);
begin
  if PUCPRRec(Rec)^.OriginUse <> AOriginUse then begin
    PUCPRRec(Rec)^.OriginUse := AOriginUse;
    if UCPRFldDescs[6].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetOriginUse: TOriginUse;
begin
  GetOriginUse := PUCPRRec(Rec)^.OriginUse;
end;

procedure TUCPRObj.SetParam1(AParam1: double);
begin
  if PUCPRRec(Rec)^.Param1 <> AParam1 then begin
    PUCPRRec(Rec)^.Param1 := AParam1;
    if UCPRFldDescs[7].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetParam1: double;
begin
  GetParam1 := PUCPRRec(Rec)^.Param1;
end;

procedure TUCPRObj.SetParam2(AParam2: double);
begin
  if PUCPRRec(Rec)^.Param2 <> AParam2 then begin
    PUCPRRec(Rec)^.Param2 := AParam2;
    if UCPRFldDescs[8].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetParam2: double;
begin
  GetParam2 := PUCPRRec(Rec)^.Param2;
end;

procedure TUCPRObj.SetParam3(AParam3: double);
begin
  if PUCPRRec(Rec)^.Param3 <> AParam3 then begin
    PUCPRRec(Rec)^.Param3 := AParam3;
    if UCPRFldDescs[9].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetParam3: double;
begin
  GetParam3 := PUCPRRec(Rec)^.Param3;
end;

procedure TUCPRObj.SetParam4(AParam4: double);
begin
  if PUCPRRec(Rec)^.Param4 <> AParam4 then begin
    PUCPRRec(Rec)^.Param4 := AParam4;
    if UCPRFldDescs[10].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetParam4: double;
begin
  GetParam4 := PUCPRRec(Rec)^.Param4;
end;

procedure TUCPRObj.SetParam5(AParam5: double);
begin
  if PUCPRRec(Rec)^.Param5 <> AParam5 then begin
    PUCPRRec(Rec)^.Param5 := AParam5;
    if UCPRFldDescs[11].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetParam5: double;
begin
  GetParam5 := PUCPRRec(Rec)^.Param5;
end;

procedure TUCPRObj.SetFromFileCount(AFromFileCount: integer);
begin
  if PUCPRRec(Rec)^.FromFileCount <> AFromFileCount then begin
    PUCPRRec(Rec)^.FromFileCount := AFromFileCount;
    if UCPRFldDescs[12].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetFromFileCount: integer;
begin
  GetFromFileCount := PUCPRRec(Rec)^.FromFileCount;
end;

procedure TUCPRObj.SetWeightSum(AWeightSum: single);
begin
  if PUCPRRec(Rec)^.WeightSum <> AWeightSum then begin
    PUCPRRec(Rec)^.WeightSum := AWeightSum;
    if UCPRFldDescs[13].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUCPRObj.GetWeightSum: single;
begin
  GetWeightSum := PUCPRRec(Rec)^.WeightSum;
end;

{/TUCPRObj}

end.
