unit UCFRType;
 { File used for calibration info record }
interface
uses
  UlanType, ULRecTyp;{UlanRecs.lst}


  const
  UCFRID = ord('U') + 256*ord('C') + 256*256*ord('F') + 256*256*256*ord('R');

type
  TUCFRRec = packed record {<Caption="Calib.Src.File"
    Enabled=1 Visible=1>}
    Head: TULRecHead;
    Info: TULRecInfo;
    FileName: string;{<ReadOnly=1 Caption="Data File"
      Type=FileName Filter="Data File (*.ULF)|*.ULF">}
    Weight: single;{<Enabled=1 DefVal=1>}
      { Weight of this file (0..1 or 0..100) peaks used for calculation
        of calibration peaks  parameters }
    Note: string;{<Enabled=1>}    
  end;

  PUCFRRec = ^TUCFRRec;

implementation

end.
