unit ULEFrmu;
{ Generated by MakeComp 1.02 from ULETYPE.PAS. Don't modify manually !!! }
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  IniObj, StdCtrls, ULObju, ULEdFrm;

type
  TULEForm = class(TULEditForm)
    DefNameLbl: TLabel;
    DefNameEdit: TEdit;
    TextFileLbl: TLabel;
    TextFileEdit: TCheckBox;
    XValueTypeLbl: TLabel;
    XValueTypeEdit: TComboBox;
    XIntervalLbl: TLabel;
    XIntervalEdit: TEdit;
    YValueTypeLbl: TLabel;
    YValueTypeEdit: TComboBox;
    XCoefLbl: TLabel;
    XCoefEdit: TEdit;
    YCoefLbl: TLabel;
    YCoefEdit: TEdit;
    HeadLenLbl: TLabel;
    HeadLenEdit: TEdit;
    ValueDelimiterLbl: TLabel;
    ValueDelimiterEdit: TEdit;
    LineDelimiterLbl: TLabel;
    LineDelimiterEdit: TEdit;
    ExtNameLbl: TLabel;
    ExtNameEdit: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    ULEFormIni: TIniObject;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ULEForm: TULEForm;

implementation
{$R *.DFM}

procedure TULEForm.FormCreate(Sender: TObject);
begin
end;

procedure TULEForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Sender = OKBtn then begin
    CanClose := Obj.IsValidInput(Self);
  end;
end;

end.
