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" StripPrefix=rb>}
    CurveFitType: TCurveFitType;{<Enabled=1 Hint="Default for new peak" StripPrefix=cf>}
    OriginUse: TOriginUse;{<Enabled=1 Hint="Default for new peak" StripPrefix=ou>}
  end;
  PUCPRec = ^TUCPRec;

implementation

end.
