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 * *****************************************************************************

Constructors



Functions

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 خت *

Properties

Events

Variables

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;



Constructors


Functions


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 خت *


Properties


Events


Variables


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;