// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'ahmtpassworddlg.pas' rev: 6.00

#ifndef ahmtpassworddlgHPP
#define ahmtpassworddlgHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <StdCtrls.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <ahmdialogclass.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Ahmtpassworddlg
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TAHMOnRetry)(System::TObject* Sender, int RetriesLeft);

class DELPHICLASS TAHMPasswordDlg;
class PASCALIMPLEMENTATION TAHMPasswordDlg : public Ahmdialogclass::TAHMAdvDialogComponent 
{
	typedef Ahmdialogclass::TAHMAdvDialogComponent inherited;
	
private:
	Graphics::TFont* FFont;
	char FPasswordChar;
	Byte FNoOfRetries;
	Graphics::TBitmap* FGlyphCancel;
	Graphics::TBitmap* FGlyphOk;
	AnsiString FScramble;
	AnsiString FPassword;
	Classes::TNotifyEvent FOnRightPassword;
	Classes::TNotifyEvent FOnWrongPassword;
	Classes::TNotifyEvent FOnOk;
	Classes::TNotifyEvent FOnCancel;
	TAHMOnRetry FOnRetry;
	Classes::TNotifyEvent FAfterRetries;
	void __fastcall SetFont(Graphics::TFont* Value);
	void __fastcall Setpassw(AnsiString value);
	void __fastcall Setscramble(AnsiString value);
	void __fastcall SetGlyphOk(Graphics::TBitmap* value);
	void __fastcall SetGlyphCancel(Graphics::TBitmap* value);
	void __fastcall DoBitBtn2Click(System::TObject* Sender);
	void __fastcall DoBitBtn1Click(System::TObject* Sender);
	void __fastcall DoFormShow(System::TObject* Sender);
	
public:
	__fastcall virtual TAHMPasswordDlg(Classes::TComponent* AOwner);
	__fastcall virtual ~TAHMPasswordDlg(void);
	virtual bool __fastcall Execute(void);
	
__published:
	__property Graphics::TFont* Fonts = {read=FFont, write=SetFont};
	__property char Passwordchar = {read=FPasswordChar, write=FPasswordChar, nodefault};
	__property Graphics::TBitmap* GlyphCancel = {read=FGlyphCancel, write=SetGlyphCancel};
	__property Graphics::TBitmap* GlyphOk = {read=FGlyphOk, write=SetGlyphOk};
	__property Classes::TNotifyEvent OnRightPassword = {read=FOnRightPassword, write=FOnRightPassword};
	__property Classes::TNotifyEvent OnWrongPassword = {read=FOnWrongPassword, write=FOnWrongPassword};
	__property Classes::TNotifyEvent OnOk = {read=FOnOk, write=FOnOk};
	__property Classes::TNotifyEvent OnCancel = {read=FOnCancel, write=FOnCancel};
	__property TAHMOnRetry OnRetry = {read=FOnRetry, write=FOnRetry};
	__property Classes::TNotifyEvent AfterRetries = {read=FAfterRetries, write=FAfterRetries};
	__property AnsiString Scramble = {read=FScramble, write=Setscramble};
	__property AnsiString Password = {read=FPassword, write=Setpassw};
	__property Byte NoOfRetries = {read=FNoOfRetries, write=FNoOfRetries, default=3};
};


class DELPHICLASS TPasswordForm;
class PASCALIMPLEMENTATION TPasswordForm : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Stdctrls::TEdit* PassEdit;
	Buttons::TBitBtn* BitBtn1;
	Buttons::TBitBtn* BitBtn2;
	Stdctrls::TLabel* FPasswordLabel;
	Stdctrls::TLabel* FUserLabel;
	Stdctrls::TEdit* UserEdit;
	Extctrls::TImage* Image1;
	Extctrls::TImage* Image2;
	void __fastcall PASSKeyPress(System::TObject* Sender, char &Key);
	void __fastcall PASSChange(System::TObject* Sender);
	void __fastcall FormCreate(System::TObject* Sender);
	
public:
	Byte xsret;
	bool HasPassword;
	void __fastcall SetupForm(void);
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TPasswordForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TPasswordForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TPasswordForm(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TPasswordForm(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
extern PACKAGE TPasswordForm* Passform;

}	/* namespace Ahmtpassworddlg */
using namespace Ahmtpassworddlg;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// ahmtpassworddlg
