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

type
  TUDVRObj = class(TULObj)
  protected
    function GetDataName: string;
    procedure SetDataName(ADataName: string);
    function GetApplyMath: boolean;
    procedure SetApplyMath(AApplyMath: boolean);
    function GetMultiplyX: TXValue;
    procedure SetMultiplyX(AMultiplyX: TXValue);
    function GetMultiplyY: TYValue;
    procedure SetMultiplyY(AMultiplyY: TYValue);
    function GetAddX: TXValue;
    procedure SetAddX(AAddX: TXValue);
    function GetAddY: TYValue;
    procedure SetAddY(AAddY: TYValue);
    function GetDiluteCount: integer;
    procedure SetDiluteCount(ADiluteCount: integer);
    function GetHidden: boolean;
    procedure SetHidden(AHidden: boolean);
    function GetActive: boolean;
    procedure SetActive(AActive: boolean);
    function GetWindowName: string;
    procedure SetWindowName(AWindowName: string);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property DataName: string
      read GetDataName write SetDataName;
    property ApplyMath: boolean
      read GetApplyMath write SetApplyMath;
    property MultiplyX: TXValue
      read GetMultiplyX write SetMultiplyX;
    property MultiplyY: TYValue
      read GetMultiplyY write SetMultiplyY;
    property AddX: TXValue
      read GetAddX write SetAddX;
    property AddY: TYValue
      read GetAddY write SetAddY;
    property DiluteCount: integer
      read GetDiluteCount write SetDiluteCount;
    property Hidden: boolean
      read GetHidden write SetHidden;
    property Active: boolean
      read GetActive write SetActive;
    property WindowName: string
      read GetWindowName write SetWindowName;
  end;

const
  UDVRFldDescs: array[0..9] of TULFldDesc = (
    (
     Caption: 'Data Line Name';
     Hint: 'To what data line this view info belongs';
     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';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'ApplyMath';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'boolean';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'MultiplyX';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TXValue';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'MultiplyY';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TYValue';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'AddX';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TXValue';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'AddY';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TYValue';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'DiluteCount';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'integer';
    ),
    (
     Caption: '';
     Hint: 'Is this data line visible in window(s)?';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Hidden';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'boolean';
    ),
    (
     Caption: '';
     Hint: 'Is this data line used for (e.g. peaks) evaluation?';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Active';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'boolean';
    ),
    (
     Caption: '';
     Hint: 'In what window(s) should be the line visible?';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'WindowName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'string';
    )
  );

  UDVRRecDesc: TULRecDesc = (
    Caption: 'Data line view';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 10;
    Flds: @UDVRFldDescs;
    Flags: rfEnabled OR rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: 'DataName';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TUDVRObj}
function TUDVRObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TUDVRRec);
end;

constructor TUDVRObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), UDVRID);
  DiluteCount := 1;
end;

function TUDVRObj.GetULRecDesc: PULRecDesc;
begin
  Result := @UDVRRecDesc;
end;

procedure TUDVRObj.SetDataName(ADataName: string);
begin
  if PUDVRRec(Rec)^.DataName <> ADataName then begin
    PUDVRRec(Rec)^.DataName := ADataName;
    if UDVRFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUDVRObj.GetDataName: string;
begin
  GetDataName := PUDVRRec(Rec)^.DataName;
end;

procedure TUDVRObj.SetApplyMath(AApplyMath: boolean);
begin
  if PUDVRRec(Rec)^.ApplyMath <> AApplyMath then begin
    PUDVRRec(Rec)^.ApplyMath := AApplyMath;
    if UDVRFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUDVRObj.GetApplyMath: boolean;
begin
  GetApplyMath := PUDVRRec(Rec)^.ApplyMath;
end;

procedure TUDVRObj.SetMultiplyX(AMultiplyX: TXValue);
begin
  if PUDVRRec(Rec)^.MultiplyX <> AMultiplyX then begin
    PUDVRRec(Rec)^.MultiplyX := AMultiplyX;
    if UDVRFldDescs[2].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUDVRObj.GetMultiplyX: TXValue;
begin
  GetMultiplyX := PUDVRRec(Rec)^.MultiplyX;
end;

procedure TUDVRObj.SetMultiplyY(AMultiplyY: TYValue);
begin
  if PUDVRRec(Rec)^.MultiplyY <> AMultiplyY then begin
    PUDVRRec(Rec)^.MultiplyY := AMultiplyY;
    if UDVRFldDescs[3].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUDVRObj.GetMultiplyY: TYValue;
begin
  GetMultiplyY := PUDVRRec(Rec)^.MultiplyY;
end;

procedure TUDVRObj.SetAddX(AAddX: TXValue);
begin
  if PUDVRRec(Rec)^.AddX <> AAddX then begin
    PUDVRRec(Rec)^.AddX := AAddX;
    if UDVRFldDescs[4].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUDVRObj.GetAddX: TXValue;
begin
  GetAddX := PUDVRRec(Rec)^.AddX;
end;

procedure TUDVRObj.SetAddY(AAddY: TYValue);
begin
  if PUDVRRec(Rec)^.AddY <> AAddY then begin
    PUDVRRec(Rec)^.AddY := AAddY;
    if UDVRFldDescs[5].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUDVRObj.GetAddY: TYValue;
begin
  GetAddY := PUDVRRec(Rec)^.AddY;
end;

procedure TUDVRObj.SetDiluteCount(ADiluteCount: integer);
begin
  if PUDVRRec(Rec)^.DiluteCount <> ADiluteCount then begin
    PUDVRRec(Rec)^.DiluteCount := ADiluteCount;
    if UDVRFldDescs[6].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUDVRObj.GetDiluteCount: integer;
begin
  GetDiluteCount := PUDVRRec(Rec)^.DiluteCount;
end;

procedure TUDVRObj.SetHidden(AHidden: boolean);
begin
  if PUDVRRec(Rec)^.Hidden <> AHidden then begin
    PUDVRRec(Rec)^.Hidden := AHidden;
    if UDVRFldDescs[7].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUDVRObj.GetHidden: boolean;
begin
  GetHidden := PUDVRRec(Rec)^.Hidden;
end;

procedure TUDVRObj.SetActive(AActive: boolean);
begin
  if PUDVRRec(Rec)^.Active <> AActive then begin
    PUDVRRec(Rec)^.Active := AActive;
    if UDVRFldDescs[8].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUDVRObj.GetActive: boolean;
begin
  GetActive := PUDVRRec(Rec)^.Active;
end;

procedure TUDVRObj.SetWindowName(AWindowName: string);
begin
  if PUDVRRec(Rec)^.WindowName <> AWindowName then begin
    PUDVRRec(Rec)^.WindowName := AWindowName;
    if UDVRFldDescs[9].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TUDVRObj.GetWindowName: string;
begin
  GetWindowName := PUDVRRec(Rec)^.WindowName;
end;

{/TUDVRObj}

end.
