unit ULEObju;
{ Generated by MakeComp 1.02 from ULETYPE.PAS. Don't modify manually !!! }
interface
uses Classes, UlanType, ULRecTyp, ULObju, 
  ULEType;

type
  TULEObj = class(TULObj)
  protected
    function GetDefName: TImpExpDefName;
    procedure SetDefName(ADefName: TImpExpDefName);
    function GetTextFile: boolean;
    procedure SetTextFile(ATextFile: boolean);
    function GetXValueType: TXValueType;
    procedure SetXValueType(AXValueType: TXValueType);
    function GetXInterval: TXValue;
    procedure SetXInterval(AXInterval: TXValue);
    function GetYValueType: TYValueType;
    procedure SetYValueType(AYValueType: TYValueType);
    function GetXCoef: single;
    procedure SetXCoef(AXCoef: single);
    function GetYCoef: single;
    procedure SetYCoef(AYCoef: single);
    function GetHeadLen: longint;
    procedure SetHeadLen(AHeadLen: longint);
    function GetValueDelimiter: TDelimiterString;
    procedure SetValueDelimiter(AValueDelimiter: TDelimiterString);
    function GetLineDelimiter: TDelimiterString;
    procedure SetLineDelimiter(ALineDelimiter: TDelimiterString);
    function GetExtName: TExtName;
    procedure SetExtName(AExtName: TExtName);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property DefName: TImpExpDefName
      read GetDefName write SetDefName;
    property TextFile: boolean
      read GetTextFile write SetTextFile;
    property XValueType: TXValueType
      read GetXValueType write SetXValueType;
    property XInterval: TXValue
      read GetXInterval write SetXInterval;
    property YValueType: TYValueType
      read GetYValueType write SetYValueType;
    property XCoef: single
      read GetXCoef write SetXCoef;
    property YCoef: single
      read GetYCoef write SetYCoef;
    property HeadLen: longint
      read GetHeadLen write SetHeadLen;
    property ValueDelimiter: TDelimiterString
      read GetValueDelimiter write SetValueDelimiter;
    property LineDelimiter: TDelimiterString
      read GetLineDelimiter write SetLineDelimiter;
    property ExtName: TExtName
      read GetExtName write SetExtName;
  end;

const
  ULEFldDescs: array[0..10] of TULFldDesc = (
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 1;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0
    )
  );
  ULERecDesc: TULRecDesc = (
    Caption: 'Exp./Imp.Def.';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 11;
    Flds: @ULEFldDescs;
    Flags: rfRootChild + rfHasRecName + rfEnabled + rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: ''
   );

implementation

{TULEObj}
function TULEObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULERec);
end;

constructor TULEObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULEID);
end;

function TULEObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULERecDesc;
end;

procedure TULEObj.SetDefName(ADefName: TImpExpDefName);
begin
  if PULERec(Rec)^.DefName <> ADefName then begin
    PULERec(Rec)^.DefName := ADefName;
    DoChange;
  end;
end;

function TULEObj.GetDefName: TImpExpDefName;
begin
  GetDefName := PULERec(Rec)^.DefName;
end;

procedure TULEObj.SetTextFile(ATextFile: boolean);
begin
  if PULERec(Rec)^.TextFile <> ATextFile then begin
    PULERec(Rec)^.TextFile := ATextFile;
    DoChange;
  end;
end;

function TULEObj.GetTextFile: boolean;
begin
  GetTextFile := PULERec(Rec)^.TextFile;
end;

procedure TULEObj.SetXValueType(AXValueType: TXValueType);
begin
  if PULERec(Rec)^.XValueType <> AXValueType then begin
    PULERec(Rec)^.XValueType := AXValueType;
    DoChange;
  end;
end;

function TULEObj.GetXValueType: TXValueType;
begin
  GetXValueType := PULERec(Rec)^.XValueType;
end;

procedure TULEObj.SetXInterval(AXInterval: TXValue);
begin
  if PULERec(Rec)^.XInterval <> AXInterval then begin
    PULERec(Rec)^.XInterval := AXInterval;
    DoChange;
  end;
end;

function TULEObj.GetXInterval: TXValue;
begin
  GetXInterval := PULERec(Rec)^.XInterval;
end;

procedure TULEObj.SetYValueType(AYValueType: TYValueType);
begin
  if PULERec(Rec)^.YValueType <> AYValueType then begin
    PULERec(Rec)^.YValueType := AYValueType;
    DoChange;
  end;
end;

function TULEObj.GetYValueType: TYValueType;
begin
  GetYValueType := PULERec(Rec)^.YValueType;
end;

procedure TULEObj.SetXCoef(AXCoef: single);
begin
  if PULERec(Rec)^.XCoef <> AXCoef then begin
    PULERec(Rec)^.XCoef := AXCoef;
    DoChange;
  end;
end;

function TULEObj.GetXCoef: single;
begin
  GetXCoef := PULERec(Rec)^.XCoef;
end;

procedure TULEObj.SetYCoef(AYCoef: single);
begin
  if PULERec(Rec)^.YCoef <> AYCoef then begin
    PULERec(Rec)^.YCoef := AYCoef;
    DoChange;
  end;
end;

function TULEObj.GetYCoef: single;
begin
  GetYCoef := PULERec(Rec)^.YCoef;
end;

procedure TULEObj.SetHeadLen(AHeadLen: longint);
begin
  if PULERec(Rec)^.HeadLen <> AHeadLen then begin
    PULERec(Rec)^.HeadLen := AHeadLen;
    DoChange;
  end;
end;

function TULEObj.GetHeadLen: longint;
begin
  GetHeadLen := PULERec(Rec)^.HeadLen;
end;

procedure TULEObj.SetValueDelimiter(AValueDelimiter: TDelimiterString);
begin
  if PULERec(Rec)^.ValueDelimiter <> AValueDelimiter then begin
    PULERec(Rec)^.ValueDelimiter := AValueDelimiter;
    DoChange;
  end;
end;

function TULEObj.GetValueDelimiter: TDelimiterString;
begin
  GetValueDelimiter := PULERec(Rec)^.ValueDelimiter;
end;

procedure TULEObj.SetLineDelimiter(ALineDelimiter: TDelimiterString);
begin
  if PULERec(Rec)^.LineDelimiter <> ALineDelimiter then begin
    PULERec(Rec)^.LineDelimiter := ALineDelimiter;
    DoChange;
  end;
end;

function TULEObj.GetLineDelimiter: TDelimiterString;
begin
  GetLineDelimiter := PULERec(Rec)^.LineDelimiter;
end;

procedure TULEObj.SetExtName(AExtName: TExtName);
begin
  if PULERec(Rec)^.ExtName <> AExtName then begin
    PULERec(Rec)^.ExtName := AExtName;
    DoChange;
  end;
end;

function TULEObj.GetExtName: TExtName;
begin
  GetExtName := PULERec(Rec)^.ExtName;
end;

{/TULEObj}

end.
