unit ULBRObju;
{ Generated by MakeComp 1.02 from ULBRTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, 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 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;
  end;

const
  ULBRFldDescs: array[0..7] of TULFldDesc = (
    (
     Caption: 'X1 [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Y1 [AU]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'X2 [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Y2 [AU]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'X [min]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 60.00;
     NumDec: 2;
     ValuesSourceRecID: 0
    ),
    (
     Caption: 'Y [AU]';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 0;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    )
  );
  ULBRRecDesc: TULRecDesc = (
    Caption: 'Baseline record';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 8;
    Flds: @ULBRFldDescs;
    Flags: rfEnabled + rfVisible + rfSortedByNumber;
    SortExp: 'X1';
    EditFieldList: '';
    BrowseFieldList: 'X1,Y1,X2,Y2'
   );

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;
    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;
    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;
    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;
    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;
    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;
    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;
    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;
    DoChange;
  end;
end;

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

{/TULBRObj}

end.
