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

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

type
  TULMForm = class(TULEditForm)
    MethodTemplateLbl: TLabel;
    MethodTemplateEdit: TEdit;
    CalibrationFileNameLbl: TLabel;
    CalibrationFileNameEdit: TEdit;
    MethodFileNameLbl: TLabel;
    MethodFileNameEdit: TEdit;
    DilutionLbl: TLabel;
    DilutionEdit: TEdit;
    BaseMinIntervalLbl: TLabel;
    BaseMinIntervalEdit: TEdit;
    BaseMaxDiffLbl: TLabel;
    BaseMaxDiffEdit: TEdit;
    MinPeakHeightLbl: TLabel;
    MinPeakHeightEdit: TEdit;
    MinPeakWidthLbl: TLabel;
    MinPeakWidthEdit: TEdit;
    UseNegativePeaksLbl: TLabel;
    UseNegativePeaksEdit: TCheckBox;
    CalcAmountsLbl: TLabel;
    CalcAmountsEdit: TCheckBox;
    UseCalibrationFileLbl: TLabel;
    UseCalibrationFileEdit: TCheckBox;
    UseInternalStandardLbl: TLabel;
    UseInternalStandardEdit: TCheckBox;
    FactorLbl: TLabel;
    FactorEdit: TEdit;
    CalibrationFileAgeLbl: TLabel;
    CalibrationFileAgeEdit: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    ParamsBtn: TButton;
    ULMFormIni: TIniObject;
    procedure ParamsBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ULMForm: TULMForm;

implementation
{$R *.DFM}

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

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

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

end.
