unit ULBRType;
 { Baseline record }
interface
uses
  UlanType, ULRecTyp;{ULREC.LST}

const
  ULBRID = ord('U') + 256*ord('L') + 256*256*ord('B') + 256*256*256*ord('R');

type
  TULBRRec = packed record {<Caption="Baseline record" Enabled=1 Visible=1
    SortExp=X1 SortedByNumber=1 BrowseFieldList=X1,Y1,X2,Y2,DataName>}
    Head: TULRecHead;
    Info: TULRecInfo;
    X1: TXValue;{<UserCoef=60 NumDec=2 Caption="X1 [min]">}
    Y1: TYValue;{<Caption="Y1 [AU]">}
    X2: TXValue;{<UserCoef=60 NumDec=2 Caption="X2 [min]">}
    Y2: TYValue;{<Caption="Y2 [AU]">}
    X: TXValue;{<UserCoef=60 NumDec=2 Caption="X [min]" Enabled=1>}
    Y: TYValue;{<Caption="Y [AU]">}
    GroupedLeft: boolean;
    GroupedRight: boolean;
    DataName: string;{<Enabled=1 Hint="To what data line this baseline section belong">}
  end;
  PULBRRec = ^TULBRRec;

implementation

end.
