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

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

type
  TULPRForm = class(TULEditForm)
    PeakNameLbl: TLabel;
    PeakNameEdit: TEdit;
    GroupNameLbl: TLabel;
    GroupNameEdit: TEdit;
    WindowLbl: TLabel;
    WindowEdit: TEdit;
    UsrPeakCoefLbl: TLabel;
    UsrPeakCoefEdit: TEdit;
    XLbl: TLabel;
    XEdit: TEdit;
    WidthLbl: TLabel;
    WidthEdit: TEdit;
    AreaSizeLbl: TLabel;
    AreaSizeEdit: TEdit;
    RatioLbl: TLabel;
    RatioEdit: TEdit;
    AmountLbl: TLabel;
    AmountEdit: TEdit;
    ResponseLbl: TLabel;
    ResponseEdit: TEdit;
    InternalStandardLbl: TLabel;
    InternalStandardEdit: TCheckBox;
    OKBtn: TButton;
    CancelBtn: TButton;
    ULPRFormIni: TIniObject;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ULPRForm: TULPRForm;

implementation
{$R *.DFM}

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

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

end.
