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

type
  TULEObj = class(TULObj)
  protected
    function GetDefName: TImpExpDefName;
    procedure SetDefName(ADefName: TImpExpDefName);
    function GetFileFormatKind: TFileFormatKind;
    procedure SetFileFormatKind(AFileFormatKind: TFileFormatKind);
    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 GetXOffs: single;
    procedure SetXOffs(AXOffs: single);
    function GetTailLen: longint;
    procedure SetTailLen(ATailLen: longint);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property DefName: TImpExpDefName
      read GetDefName write SetDefName;
    property FileFormatKind: TFileFormatKind
      read GetFileFormatKind write SetFileFormatKind;
    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;
    property XOffs: single
      read GetXOffs write SetXOffs;
    property TailLen: longint
      read GetTailLen write SetTailLen;
  end;

const
  ULEFldDescs: array[0..12] of TULFldDesc = (
    (
     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: 'DefName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TImpExpDefName';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'fk';
     EditMask: '';
     MaxID: 0;
     FieldName: 'FileFormatKind';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TFileFormatKind';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: 'xt';
     EditMask: '';
     MaxID: 0;
     FieldName: 'XValueType';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TXValueType';
    ),
    (
     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: 'XInterval';
     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: 'yt';
     EditMask: '';
     MaxID: 0;
     FieldName: 'YValueType';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TYValueType';
    ),
    (
     Caption: '';
     Hint: 'Coeficient used (if <> 0) to multiply source X value to get dest. X value';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'XCoef';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'single';
    ),
    (
     Caption: '';
     Hint: 'Coeficient used (if <> 0) to multiply source Y value to get dest. Y value';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'YCoef';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'single';
    ),
    (
     Caption: '';
     Hint: 'If binary file, than data will be read starting this offset';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'HeadLen';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'longint';
    ),
    (
     Caption: '';
     Hint: 'Delimiter of ascii X and Y values (for export to TXT), can be in hexa (e.g. $09)';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'ValueDelimiter';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TDelimiterString';
    ),
    (
     Caption: '';
     Hint: 'What are the characters delimiting lines (default=CRLF)';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'LineDelimiter';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TDelimiterString';
    ),
    (
     Caption: '';
     Hint: 'Default file extension for this data format (including .)';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'ExtName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TExtName';
    ),
    (
     Caption: '';
     Hint: 'Offset for X values added to X value after multiplying with XCoef';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'XOffs';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'single';
    ),
    (
     Caption: '';
     Hint: 'Eventual size of non X,Y data at the end of file';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'TailLen';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'longint';
    )
  );

  ULERecDesc: TULRecDesc = (
    Caption: 'Exp./Imp.Def.';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 13;
    Flds: @ULEFldDescs;
    Flags: rfRootChild OR rfHasRecName OR rfEnabled OR rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

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;
    if ULEFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

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

procedure TULEObj.SetFileFormatKind(AFileFormatKind: TFileFormatKind);
begin
  if PULERec(Rec)^.FileFormatKind <> AFileFormatKind then begin
    PULERec(Rec)^.FileFormatKind := AFileFormatKind;
    if ULEFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULEObj.GetFileFormatKind: TFileFormatKind;
begin
  GetFileFormatKind := PULERec(Rec)^.FileFormatKind;
end;

procedure TULEObj.SetXValueType(AXValueType: TXValueType);
begin
  if PULERec(Rec)^.XValueType <> AXValueType then begin
    PULERec(Rec)^.XValueType := AXValueType;
    if ULEFldDescs[2].VarSize then 
      ClearFieldsLen;
    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;
    if ULEFldDescs[3].VarSize then 
      ClearFieldsLen;
    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;
    if ULEFldDescs[4].VarSize then 
      ClearFieldsLen;
    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;
    if ULEFldDescs[5].VarSize then 
      ClearFieldsLen;
    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;
    if ULEFldDescs[6].VarSize then 
      ClearFieldsLen;
    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;
    if ULEFldDescs[7].VarSize then 
      ClearFieldsLen;
    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;
    if ULEFldDescs[8].VarSize then 
      ClearFieldsLen;
    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;
    if ULEFldDescs[9].VarSize then 
      ClearFieldsLen;
    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;
    if ULEFldDescs[10].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

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

procedure TULEObj.SetXOffs(AXOffs: single);
begin
  if PULERec(Rec)^.XOffs <> AXOffs then begin
    PULERec(Rec)^.XOffs := AXOffs;
    if ULEFldDescs[11].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULEObj.GetXOffs: single;
begin
  GetXOffs := PULERec(Rec)^.XOffs;
end;

procedure TULEObj.SetTailLen(ATailLen: longint);
begin
  if PULERec(Rec)^.TailLen <> ATailLen then begin
    PULERec(Rec)^.TailLen := ATailLen;
    if ULEFldDescs[12].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULEObj.GetTailLen: longint;
begin
  GetTailLen := PULERec(Rec)^.TailLen;
end;

{/TULEObj}

end.
