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

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

type
  TULAForm = class(TULEditForm)
    SampleNameLbl: TLabel;
    SampleNameEdit: TEdit;
    SampleDescLbl: TLabel;
    SampleDescEdit: TEdit;
    AmountLbl: TLabel;
    AmountEdit: TEdit;
    ISTDAmountLbl: TLabel;
    ISTDAmountEdit: TEdit;
    InjectionVolumeLbl: TLabel;
    InjectionVolumeEdit: TEdit;
    CalibrationStandardLbl: TLabel;
    CalibrationStandardEdit: TCheckBox;
    ExternalStartEnabledLbl: TLabel;
    ExternalStartEnabledEdit: TCheckBox;
    UserIDLbl: TLabel;
    UserIDEdit: TEdit;
    UserNameLbl: TLabel;
    UserNameEdit: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    ParamsBtn: TButton;
    ULAFormIni: TIniObject;
    procedure ParamsBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ULAForm: TULAForm;

implementation
{$R *.DFM}

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

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

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

end.
