Class TgPassDlg (unit PassDlg)

Inherits from

TComponent

Constructors


constructor Create( AOwner: TComponent );



Functions

destructor Destroy;


function Execute( strDefaultUser: String ): Boolean;

-------------------------------------------------------------------------} {FUNCTION: Display password dialog box.

procedure SetFont(Value: TFont);


Properties

property About : TAboutPassDlg


property Font : TFont


property FormCaption : String


property Label1 : String


property Label2 : String


property PasswEncrypt : TDispMethod


property Password : String


property PasswordChar : Char


property User : String


Events

Variables

FAboutBox : TAboutPassDlg;


FCaption : String;


FFont : TFont;


FLbl1Txt : String;


FLbl2Txt : String;


FPassChar : Char;


FPassEncr : TDispMethod;


FPswd : String;


FUser : String;



Constructors


constructor Create( AOwner: TComponent );


Functions


destructor Destroy;


function Execute( strDefaultUser: String ): Boolean;

-------------------------------------------------------------------------} {FUNCTION: Display password dialog box. } {PARAMETER: strDefaultUser - Default user name to appear in login screen. } {RETURNS: Whether modal result of dialog form is mrOk. } {-------------------------------------------------------------------------


procedure SetFont(Value: TFont);


Properties


property About : TAboutPassDlg


property Font : TFont


property FormCaption : String


property Label1 : String


property Label2 : String


property PasswEncrypt : TDispMethod


property Password : String


property PasswordChar : Char


property User : String


Events


Variables


FAboutBox : TAboutPassDlg;


FCaption : String;


FFont : TFont;


FLbl1Txt : String;


FLbl2Txt : String;


FPassChar : Char;


FPassEncr : TDispMethod;


FPswd : String;


FUser : String;