unit ULBRObju;
{ Generated by MakeComp 1.03 from ULBRTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, SysUtils, Graphics, UlanType, ULRecTyp, ULObju, 
  ULBRType;

type
  TULBRObj = class(TULObj)
  protected
    function GetX1: TXValue;
    procedure SetX1(AX1: TXValue);
    function GetY1: TYValue;
    procedure SetY1(AY1: TYValue);
    function GetX2: TXValue;
    procedure SetX2(AX2: TXValue);
    function GetY2: TYValue;
    procedure SetY2(AY2: TYValue);
    function GetX: TXValue;
    procedure SetX(AX: TXValue);
    function GetY: TYValue;
    procedure SetY(AY: TYValue);
    function GetGroupedLeft: boolean;
    procedure SetGroupedLeft(AGroupedLeft: boolean);
    function GetGroupedRight: boolean;
    procedure SetGroupedRight(AGroupedRight: boolean);
    function GetDataName: string;
    procedure SetDataName(ADataName: string);
    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 X2: TXValue
      read GetX2 write SetX2;
    property Y2: TYValue
      read GetY2 write SetY2;
    property X: TXValue
      read GetX write SetX;
    property Y: TYValue
      read GetY write SetY;
    property GroupedLeft: boolean
      read GetGroupedLeft write SetGroupedLeft;
    property GroupedRight: boolean
      read GetGroupedRight write SetGroupedRight;
    property DataName: string
      read GetDataName write SetDataName;
  end;

const
  ULBRFldDescs: array[0..8] of TULFldDesc = (
    (
     Caption: 'X1 [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'X1';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TXValue';
    ),
    (
     Caption: 'Y1 [AU]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Y1';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TYValue';
    ),
    (
     Caption: 'X2 [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'X2';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TXValue';
    ),
    (
     Caption: 'Y2 [AU]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Y2';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TYValue';
    ),
    (
     Caption: 'X [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'X';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TXValue';
    ),
    (
     Caption: 'Y [AU]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Y';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TYValue';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'GroupedLeft';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'boolean';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'GroupedRight';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'boolean';
    ),
    (
     Caption: '';
     Hint: 'To what data line this baseline section belong';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'DataName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    )
  );

  ULBRRecDesc: TULRecDesc = (
    Caption: 'Baseline record';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 9;
    Flds: @ULBRFldDescs;
    Flags: rfEnabled OR rfVisible OR rfSortedByNumber;
    SortExp: 'X1';
    EditFieldList: '';
    BrowseFieldList: 'X1,Y1,X2,Y2,DataName';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TULBRObj}
function TULBRObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULBRRec);
end;

constructor TULBRObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULBRID);
end;

function TULBRObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULBRRecDesc;
end;

function TULBRObj.GetSortNum: Extended;
begin
  Result := X1;
end;
procedure TULBRObj.SetX1(AX1: TXValue);
begin
  if PULBRRec(Rec)^.X1 <> AX1 then begin
    PULBRRec(Rec)^.X1 := AX1;
    if ULBRFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULBRObj.GetX1: TXValue;
begin
  GetX1 := PULBRRec(Rec)^.X1;
end;

procedure TULBRObj.SetY1(AY1: TYValue);
begin
  if PULBRRec(Rec)^.Y1 <> AY1 then begin
    PULBRRec(Rec)^.Y1 := AY1;
    if ULBRFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULBRObj.GetY1: TYValue;
begin
  GetY1 := PULBRRec(Rec)^.Y1;
end;

procedure TULBRObj.SetX2(AX2: TXValue);
begin
  if PULBRRec(Rec)^.X2 <> AX2 then begin
    PULBRRec(Rec)^.X2 := AX2;
    if ULBRFldDescs[2].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULBRObj.GetX2: TXValue;
begin
  GetX2 := PULBRRec(Rec)^.X2;
end;

procedure TULBRObj.SetY2(AY2: TYValue);
begin
  if PULBRRec(Rec)^.Y2 <> AY2 then begin
    PULBRRec(Rec)^.Y2 := AY2;
    if ULBRFldDescs[3].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULBRObj.GetY2: TYValue;
begin
  GetY2 := PULBRRec(Rec)^.Y2;
end;

procedure TULBRObj.SetX(AX: TXValue);
begin
  if PULBRRec(Rec)^.X <> AX then begin
    PULBRRec(Rec)^.X := AX;
    if ULBRFldDescs[4].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULBRObj.GetX: TXValue;
begin
  GetX := PULBRRec(Rec)^.X;
end;

procedure TULBRObj.SetY(AY: TYValue);
begin
  if PULBRRec(Rec)^.Y <> AY then begin
    PULBRRec(Rec)^.Y := AY;
    if ULBRFldDescs[5].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULBRObj.GetY: TYValue;
begin
  GetY := PULBRRec(Rec)^.Y;
end;

procedure TULBRObj.SetGroupedLeft(AGroupedLeft: boolean);
begin
  if PULBRRec(Rec)^.GroupedLeft <> AGroupedLeft then begin
    PULBRRec(Rec)^.GroupedLeft := AGroupedLeft;
    if ULBRFldDescs[6].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULBRObj.GetGroupedLeft: boolean;
begin
  GetGroupedLeft := PULBRRec(Rec)^.GroupedLeft;
end;

procedure TULBRObj.SetGroupedRight(AGroupedRight: boolean);
begin
  if PULBRRec(Rec)^.GroupedRight <> AGroupedRight then begin
    PULBRRec(Rec)^.GroupedRight := AGroupedRight;
    if ULBRFldDescs[7].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULBRObj.GetGroupedRight: boolean;
begin
  GetGroupedRight := PULBRRec(Rec)^.GroupedRight;
end;

procedure TULBRObj.SetDataName(ADataName: string);
begin
  if PULBRRec(Rec)^.DataName <> ADataName then begin
    PULBRRec(Rec)^.DataName := ADataName;
    if ULBRFldDescs[8].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULBRObj.GetDataName: string;
begin
  GetDataName := PULBRRec(Rec)^.DataName;
end;

{/TULBRObj}

end.
