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

type
  TULPRObj = class(TULObj)
  protected
    function GetX1: TXValue;
    procedure SetX1(AX1: TXValue);
    function GetY1: TYValue;
    procedure SetY1(AY1: TYValue);
    function GetIndex1: TPointCount;
    procedure SetIndex1(AIndex1: TPointCount);
    function GetX2: TXValue;
    procedure SetX2(AX2: TXValue);
    function GetY2: TYValue;
    procedure SetY2(AY2: TYValue);
    function GetIndex2: TPointCount;
    procedure SetIndex2(AIndex2: TPointCount);
    function GetX: TXValue;
    procedure SetX(AX: TXValue);
    function GetWidth: TXValue;
    procedure SetWidth(AWidth: TXValue);
    function GetHeight: TYValue;
    procedure SetHeight(AHeight: TYValue);
    function GetAreaSize: TAreaSize;
    procedure SetAreaSize(AAreaSize: TAreaSize);
    function GetRatio: TRatio;
    procedure SetRatio(ARatio: TRatio);
    function GetPeakName: TPeakName;
    procedure SetPeakName(APeakName: TPeakName);
    function GetAmount: TCompoundAmount;
    procedure SetAmount(AAmount: TCompoundAmount);
    function GetUsrPeakCoef: TUsrPeakCoef;
    procedure SetUsrPeakCoef(AUsrPeakCoef: TUsrPeakCoef);
    function GetBaseY1: TYValue;
    procedure SetBaseY1(ABaseY1: TYValue);
    function GetBaseY2: TYValue;
    procedure SetBaseY2(ABaseY2: TYValue);
    function GetGroupName: TPeakGroupName;
    procedure SetGroupName(AGroupName: TPeakGroupName);
    function GetWindow: TXValue;
    procedure SetWindow(AWindow: TXValue);
    function GetResponse: TResponse;
    procedure SetResponse(AResponse: TResponse);
    function GetInternalStandard: boolean;
    procedure SetInternalStandard(AInternalStandard: boolean);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
    function GetSortNum: extended; override;
  published
    property X1: TXValue
      read GetX1 write SetX1;
    property Y1: TYValue
      read GetY1 write SetY1;
    property Index1: TPointCount
      read GetIndex1 write SetIndex1;
    property X2: TXValue
      read GetX2 write SetX2;
    property Y2: TYValue
      read GetY2 write SetY2;
    property Index2: TPointCount
      read GetIndex2 write SetIndex2;
    property X: TXValue
      read GetX write SetX;
    property Width: TXValue
      read GetWidth write SetWidth;
    property Height: TYValue
      read GetHeight write SetHeight;
    property AreaSize: TAreaSize
      read GetAreaSize write SetAreaSize;
    property Ratio: TRatio
      read GetRatio write SetRatio;
    property PeakName: TPeakName
      read GetPeakName write SetPeakName;
    property Amount: TCompoundAmount
      read GetAmount write SetAmount;
    property UsrPeakCoef: TUsrPeakCoef
      read GetUsrPeakCoef write SetUsrPeakCoef;
    property BaseY1: TYValue
      read GetBaseY1 write SetBaseY1;
    property BaseY2: TYValue
      read GetBaseY2 write SetBaseY2;
    property GroupName: TPeakGroupName
      read GetGroupName write SetGroupName;
    property Window: TXValue
      read GetWindow write SetWindow;
    property Response: TResponse
      read GetResponse write SetResponse;
    property InternalStandard: boolean
      read GetInternalStandard write SetInternalStandard;
  end;

const
  ULPRFldDescs: array[0..19] of TULFldDesc = (
    (
     Caption: 'X1 [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Y1 [AU]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'X2 [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Y2 [AU]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'X [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Width [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Height [AU]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Area';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Content [%]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.01;
     NumDec: 2;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Name';
     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: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Window [min]';
     Hint: 'In what interval the peaks are considered to be the same';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 60.00;
     NumDec: 2;
     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
    )
  );
  ULPRRecDesc: TULRecDesc = (
    Caption: 'Peak';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 20;
    Flds: @ULPRFldDescs;
    Flags: rfEnabled + rfVisible + rfSortedByNumber;
    SortExp: '(X1+X2)/2';
    EditFieldList: 'PeakName,GroupName,Window,UsrPeakCoef,X,Width,AreaSize,Ratio,Amount,Response,InternalStandard';
    BrowseFieldList: 'X,PeakName,AreaSize,UsrPeakCoef,Response,Amount,Window'
   );

implementation

{TULPRObj}
function TULPRObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULPRRec);
end;

constructor TULPRObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULPRID);
  Window := 10;
end;

function TULPRObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULPRRecDesc;
end;

function TULPRObj.GetSortNum: Extended;
begin
  Result := (X1+X2)/2;
end;
procedure TULPRObj.SetX1(AX1: TXValue);
begin
  if PULPRRec(Rec)^.X1 <> AX1 then begin
    PULPRRec(Rec)^.X1 := AX1;
    DoChange;
  end;
end;

function TULPRObj.GetX1: TXValue;
begin
  GetX1 := PULPRRec(Rec)^.X1;
end;

procedure TULPRObj.SetY1(AY1: TYValue);
begin
  if PULPRRec(Rec)^.Y1 <> AY1 then begin
    PULPRRec(Rec)^.Y1 := AY1;
    DoChange;
  end;
end;

function TULPRObj.GetY1: TYValue;
begin
  GetY1 := PULPRRec(Rec)^.Y1;
end;

procedure TULPRObj.SetIndex1(AIndex1: TPointCount);
begin
  if PULPRRec(Rec)^.Index1 <> AIndex1 then begin
    PULPRRec(Rec)^.Index1 := AIndex1;
    DoChange;
  end;
end;

function TULPRObj.GetIndex1: TPointCount;
begin
  GetIndex1 := PULPRRec(Rec)^.Index1;
end;

procedure TULPRObj.SetX2(AX2: TXValue);
begin
  if PULPRRec(Rec)^.X2 <> AX2 then begin
    PULPRRec(Rec)^.X2 := AX2;
    DoChange;
  end;
end;

function TULPRObj.GetX2: TXValue;
begin
  GetX2 := PULPRRec(Rec)^.X2;
end;

procedure TULPRObj.SetY2(AY2: TYValue);
begin
  if PULPRRec(Rec)^.Y2 <> AY2 then begin
    PULPRRec(Rec)^.Y2 := AY2;
    DoChange;
  end;
end;

function TULPRObj.GetY2: TYValue;
begin
  GetY2 := PULPRRec(Rec)^.Y2;
end;

procedure TULPRObj.SetIndex2(AIndex2: TPointCount);
begin
  if PULPRRec(Rec)^.Index2 <> AIndex2 then begin
    PULPRRec(Rec)^.Index2 := AIndex2;
    DoChange;
  end;
end;

function TULPRObj.GetIndex2: TPointCount;
begin
  GetIndex2 := PULPRRec(Rec)^.Index2;
end;

procedure TULPRObj.SetX(AX: TXValue);
begin
  if PULPRRec(Rec)^.X <> AX then begin
    PULPRRec(Rec)^.X := AX;
    DoChange;
  end;
end;

function TULPRObj.GetX: TXValue;
begin
  GetX := PULPRRec(Rec)^.X;
end;

procedure TULPRObj.SetWidth(AWidth: TXValue);
begin
  if PULPRRec(Rec)^.Width <> AWidth then begin
    PULPRRec(Rec)^.Width := AWidth;
    DoChange;
  end;
end;

function TULPRObj.GetWidth: TXValue;
begin
  GetWidth := PULPRRec(Rec)^.Width;
end;

procedure TULPRObj.SetHeight(AHeight: TYValue);
begin
  if PULPRRec(Rec)^.Height <> AHeight then begin
    PULPRRec(Rec)^.Height := AHeight;
    DoChange;
  end;
end;

function TULPRObj.GetHeight: TYValue;
begin
  GetHeight := PULPRRec(Rec)^.Height;
end;

procedure TULPRObj.SetAreaSize(AAreaSize: TAreaSize);
begin
  if PULPRRec(Rec)^.AreaSize <> AAreaSize then begin
    PULPRRec(Rec)^.AreaSize := AAreaSize;
    DoChange;
  end;
end;

function TULPRObj.GetAreaSize: TAreaSize;
begin
  GetAreaSize := PULPRRec(Rec)^.AreaSize;
end;

procedure TULPRObj.SetRatio(ARatio: TRatio);
begin
  if PULPRRec(Rec)^.Ratio <> ARatio then begin
    PULPRRec(Rec)^.Ratio := ARatio;
    DoChange;
  end;
end;

function TULPRObj.GetRatio: TRatio;
begin
  GetRatio := PULPRRec(Rec)^.Ratio;
end;

procedure TULPRObj.SetPeakName(APeakName: TPeakName);
begin
  if PULPRRec(Rec)^.PeakName <> APeakName then begin
    PULPRRec(Rec)^.PeakName := APeakName;
    DoChange;
  end;
end;

function TULPRObj.GetPeakName: TPeakName;
begin
  GetPeakName := PULPRRec(Rec)^.PeakName;
end;

procedure TULPRObj.SetAmount(AAmount: TCompoundAmount);
begin
  if PULPRRec(Rec)^.Amount <> AAmount then begin
    PULPRRec(Rec)^.Amount := AAmount;
    DoChange;
  end;
end;

function TULPRObj.GetAmount: TCompoundAmount;
begin
  GetAmount := PULPRRec(Rec)^.Amount;
end;

procedure TULPRObj.SetUsrPeakCoef(AUsrPeakCoef: TUsrPeakCoef);
begin
  if PULPRRec(Rec)^.UsrPeakCoef <> AUsrPeakCoef then begin
    PULPRRec(Rec)^.UsrPeakCoef := AUsrPeakCoef;
    DoChange;
  end;
end;

function TULPRObj.GetUsrPeakCoef: TUsrPeakCoef;
begin
  GetUsrPeakCoef := PULPRRec(Rec)^.UsrPeakCoef;
end;

procedure TULPRObj.SetBaseY1(ABaseY1: TYValue);
begin
  if PULPRRec(Rec)^.BaseY1 <> ABaseY1 then begin
    PULPRRec(Rec)^.BaseY1 := ABaseY1;
    DoChange;
  end;
end;

function TULPRObj.GetBaseY1: TYValue;
begin
  GetBaseY1 := PULPRRec(Rec)^.BaseY1;
end;

procedure TULPRObj.SetBaseY2(ABaseY2: TYValue);
begin
  if PULPRRec(Rec)^.BaseY2 <> ABaseY2 then begin
    PULPRRec(Rec)^.BaseY2 := ABaseY2;
    DoChange;
  end;
end;

function TULPRObj.GetBaseY2: TYValue;
begin
  GetBaseY2 := PULPRRec(Rec)^.BaseY2;
end;

procedure TULPRObj.SetGroupName(AGroupName: TPeakGroupName);
begin
  if PULPRRec(Rec)^.GroupName <> AGroupName then begin
    PULPRRec(Rec)^.GroupName := AGroupName;
    DoChange;
  end;
end;

function TULPRObj.GetGroupName: TPeakGroupName;
begin
  GetGroupName := PULPRRec(Rec)^.GroupName;
end;

procedure TULPRObj.SetWindow(AWindow: TXValue);
begin
  if PULPRRec(Rec)^.Window <> AWindow then begin
    PULPRRec(Rec)^.Window := AWindow;
    DoChange;
  end;
end;

function TULPRObj.GetWindow: TXValue;
begin
  GetWindow := PULPRRec(Rec)^.Window;
end;

procedure TULPRObj.SetResponse(AResponse: TResponse);
begin
  if PULPRRec(Rec)^.Response <> AResponse then begin
    PULPRRec(Rec)^.Response := AResponse;
    DoChange;
  end;
end;

function TULPRObj.GetResponse: TResponse;
begin
  GetResponse := PULPRRec(Rec)^.Response;
end;

procedure TULPRObj.SetInternalStandard(AInternalStandard: boolean);
begin
  if PULPRRec(Rec)^.InternalStandard <> AInternalStandard then begin
    PULPRRec(Rec)^.InternalStandard := AInternalStandard;
    DoChange;
  end;
end;

function TULPRObj.GetInternalStandard: boolean;
begin
  GetInternalStandard := PULPRRec(Rec)^.InternalStandard;
end;

{/TULPRObj}

end.
