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

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

type
  TULIForm = class(TULEditForm)
    InstrumentTemplateLbl: TLabel;
    InstrumentTemplateEdit: TEdit;
    ColumnLbl: TLabel;
    ColumnEdit: TEdit;
    MobilePhaseLbl: TLabel;
    MobilePhaseEdit: TEdit;
    FlowRateLbl: TLabel;
    FlowRateEdit: TEdit;
    FlowRateUnitLbl: TLabel;
    FlowRateUnitEdit: TComboBox;
    DetectionLbl: TLabel;
    DetectionEdit: TEdit;
    TemperatureLbl: TLabel;
    TemperatureEdit: TEdit;
    TemperatureUnitLbl: TLabel;
    TemperatureUnitEdit: TComboBox;
    InstrumentFileNameLbl: TLabel;
    InstrumentFileNameEdit: TEdit;
    ChannelNameLbl: TLabel;
    ChannelNameEdit: TComboBox;
    DurationLbl: TLabel;
    DurationEdit: TEdit;
    SamplingIntervalLbl: TLabel;
    SamplingIntervalEdit: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    ParamsBtn: TButton;
    ULIFormIni: TIniObject;
    procedure ParamsBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ULIForm: TULIForm;

implementation
{$R *.DFM}

procedure TULIForm.ParamsBtnClick(Sender: TObject);
begin
  if Obj <> nil then
    Obj.Browse;
end;

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

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

end.
