unit p_pasdlg;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons,dialogs, jpeg, ExtCtrls, fcButton, fcImgBtn, RzPanel, IvDictio,
  IvMulti, RzButton, ipGIF, RzBckgnd, EnJpgGr, Abcutil, SUIButton;

type
  Tf_passdlg = class(TForm)
    RzPanel1: TRzPanel;
    SpeedButton4: tsuiButton;
    SpeedButton3: tsuiButton;
    SpeedButton2: tsuiButton;
    SpeedButton1: tsuiButton;
    SpeedButton8: tsuiButton;
    SpeedButton7: tsuiButton;
    SpeedButton6: tsuiButton;
    SpeedButton5: tsuiButton;
    SpeedButton11: tsuiButton;
    SpeedButton10: tsuiButton;
    SpeedButton9: tsuiButton;
    IvTranslator1: TIvTranslator;
    RzBackground1: TRzBackground;
    RzPanel3: TRzPanel;
    Password: TEdit;
    RzBitBtn1: TRzBitBtn;
    fcImageBtn3: TRzBitBtn;
    suiButton1: TsuiButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_passdlg: Tf_passdlg;

implementation

uses p_posmodule;



{$R *.DFM}

procedure Tf_passdlg.SpeedButton1Click(Sender: TObject);
begin
if  trim(Password.Text)<>'0' then
Password.Text:=Password.Text+(sender as tsuiButton).caption
else
Password.Text:=(sender as tsuiButton).caption;
end;

procedure Tf_passdlg.SpeedButton11Click(Sender: TObject);
begin
Password.Text:='';
end;

procedure Tf_passdlg.FormPaint(Sender: TObject);
begin
try
rzpanel1.Left:=round((f_passdlg.Width-rzpanel1.Width)/2);
//rzpanel3.Left:=round((f_passdlg.Width-rzpanel3.Width)/2);

rzpanel1.top:=round((f_passdlg.Height-rzpanel1.Height)/2);
//rzpanel3.top:=round((f_passdlg.Height-rzpanel3.Height)/2)+rzpanel1.Height;
except
end;
end;

procedure Tf_passdlg.FormShow(Sender: TObject);
begin
password.SetFocus;
end;

end.
 
