unit UCPType;
 { Calibration peaks owner record declaration }
interface
uses
  UlanType, ULRecTyp;{UlanRecs.lst}

const
  UCPID = ord('U') + 256*ord('C') + 256*256*ord('P');

type
  TUCPRec = packed record {<Caption="Cal.Peaks" ChildSorted=1
    ChildRecIDs=UCPRID Uses=UCPRType Enabled=1 Visible=1 BrowseOnEdit=1
    SortedByNumber=1>}
    Head: TULRecHead;
    Info: TULRecInfo;
    ResponseBase: TResponseBase;{<Enabled=1 Hint="Default for new peak">}
    CurveFitType: TCurveFitType;{<Enabled=1 Hint="Default for new peak">}
    OriginUse: TOriginUse;{<Enabled=1 Hint="Default for new peak">}
  end;
  PUCPRec = ^TUCPRec;

implementation

end.
