Class TNewUserDlg (unit NewUser) |
Inherits from
TForm
*****************************************************************************
* Name: NewUserDlg *
* Description: Register new user Dialog *
* Call: NewUserDlg.Create(Self); *
* NewUserDlg.ShowModal; *
* Return: ModalResult - mrOK, mrCancel *
* NewUserDlg.Password - encripted password *
* Used: Encrypt *
* Date: 01.11.1996 *
* Modified: 30.04.1997 - Delphi 2 *
* Platform: Delphi 2.01 *
* Author: Anatoly Podgoretsky *
* Address: Vahe 4-31, Johvi, Estonia, EE2045, tel. +372 (33) 61-142 *
* Credits: Copyright (c) NPS, 1996-1997 *
*****************************************************************************
procedure CancelButtonClick(Sender: TObject);
***************** * Button Cancel *
procedure ClearDialog(Sender: TObject);
******************* * clear all input *
procedure FormActivate(Sender: TObject);
enable close
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
******************* * Check for close *
procedure OKBtnClick(Sender: TObject);
************* * Button خت *
CancelButton : TBitBtn;
Header : TNpsLbl3d;
NameFld : TEdit;
NameLabel : TLabel;
OkButton : TBitBtn;
Password1 : TEdit;
Password1Label : TLabel;
Password2 : TEdit;
Password2Label : TLabel;
PasswordPanel : TPanel;
Password : TPassword;
User : TUserName;
CloseFlag : BOOLEAN;
procedure CancelButtonClick(Sender: TObject);
***************** * Button Cancel *
procedure ClearDialog(Sender: TObject);
******************* * clear all input *
procedure FormActivate(Sender: TObject);
enable close
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
******************* * Check for close *
procedure OKBtnClick(Sender: TObject);
************* * Button خت *
CancelButton : TBitBtn;
Header : TNpsLbl3d;
NameFld : TEdit;
NameLabel : TLabel;
OkButton : TBitBtn;
Password1 : TEdit;
Password1Label : TLabel;
Password2 : TEdit;
Password2Label : TLabel;
PasswordPanel : TPanel;
Password : TPassword;
User : TUserName;
CloseFlag : BOOLEAN;