vrkeypad.hpp

wimax bs simulator对应的GUI程序

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'VrKeyPad.pas' rev: 5.00

#ifndef VrKeyPadHPP
#define VrKeyPadHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Controls.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <VrControls.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Vrkeypad
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TVrKeyPadButton;
class PASCALIMPLEMENTATION TVrKeyPadButton : public Buttons::TSpeedButton 
{
	typedef Buttons::TSpeedButton inherited;
	
private:
	Graphics::TColor FColor;
	HIDESBASE void __fastcall SetColor(const Graphics::TColor Value);
	
protected:
	virtual void __fastcall Paint(void);
	
__published:
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
public:
	#pragma option push -w-inl
	/* TSpeedButton.Create */ inline __fastcall virtual TVrKeyPadButton(Classes::TComponent* AOwner) : 
		Buttons::TSpeedButton(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSpeedButton.Destroy */ inline __fastcall virtual ~TVrKeyPadButton(void) { }
	#pragma option pop
	
};


class DELPHICLASS TVrKeyPadExtraKey;
class DELPHICLASS TVrKeyPad;
class DELPHICLASS TVrKeyPadLook;
#pragma option push -b-
enum TVrKeyPadStyle { vsCellPhone, vsBankCode };
#pragma option pop

class PASCALIMPLEMENTATION TVrKeyPadLook : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	int FButtonWidth;
	int FButtonHeight;
	TVrKeyPad* FOwner;
	Graphics::TFont* FFont;
	Graphics::TBitmap* FButtonBkg;
	bool FFlat;
	TVrKeyPadStyle FStyle;
	Graphics::TColor FColor;
	void __fastcall SetButtonHeight(const int Value);
	void __fastcall SetButtonWidth(const int Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetButtonBkg(const Graphics::TBitmap* Value);
	void __fastcall SetFlat(const bool Value);
	void __fastcall SetStyle(const TVrKeyPadStyle Value);
	void __fastcall SetColor(const Graphics::TColor Value);
	
protected:
	void __fastcall BkgChanged(System::TObject* Sender);
	void __fastcall KeyPadChanged(void);
	
public:
	__fastcall TVrKeyPadLook(Classes::TComponent* AOwner);
	__fastcall virtual ~TVrKeyPadLook(void);
	
__published:
	__property Graphics::TBitmap* ButtonBkg = {read=FButtonBkg, write=SetButtonBkg};
	__property int ButtonWidth = {read=FButtonWidth, write=SetButtonWidth, nodefault};
	__property int ButtonHeight = {read=FButtonHeight, write=SetButtonHeight, nodefault};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property bool Flat = {read=FFlat, write=SetFlat, nodefault};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property TVrKeyPadStyle Style = {read=FStyle, write=SetStyle, nodefault};
};


typedef void __fastcall (__closure *TNumericClickEvent)(System::TObject* Sender, int Key);

class PASCALIMPLEMENTATION TVrKeyPad : public Vrcontrols::TVrCustomControl 
{
	typedef Vrcontrols::TVrCustomControl inherited;
	
private:
	TVrKeyPadExtraKey* FExtraKey1;
	TVrKeyPadExtraKey* FExtraKey4;
	TVrKeyPadExtraKey* FExtraKey2;
	TVrKeyPadExtraKey* FExtraKey3;
	TVrKeyPadLook* FLook;
	TVrKeyPadButton* sp[16];
	TNumericClickEvent FOnNumericKeyClick;
	Classes::TNotifyEvent FOnStarClick;
	Classes::TNotifyEvent FOnSharpClick;
	bool FCtrlsCreated;
	Classes::TNotifyEvent FOnExtra1Click;
	Classes::TNotifyEvent FOnExtra4Click;
	Classes::TNotifyEvent FOnExtra2Click;
	Classes::TNotifyEvent FOnExtra3Click;
	
protected:
	void __fastcall BuildKeyPad(void);
	void __fastcall UpdateKeyPad(void);
	void __fastcall KeyPadClick(System::TObject* Sender);
	
public:
	__fastcall virtual TVrKeyPad(Classes::TComponent* AOwner);
	__fastcall virtual ~TVrKeyPad(void);
	virtual void __fastcall Loaded(void);
	
__published:
	__property TVrKeyPadExtraKey* ExtraKey1 = {read=FExtraKey1, write=FExtraKey1};
	__property TVrKeyPadExtraKey* ExtraKey2 = {read=FExtraKey2, write=FExtraKey2};
	__property TVrKeyPadExtraKey* ExtraKey3 = {read=FExtraKey3, write=FExtraKey3};
	__property TVrKeyPadExtraKey* ExtraKey4 = {read=FExtraKey4, write=FExtraKey4};
	__property TVrKeyPadLook* Look = {read=FLook, write=FLook};
	__property TNumericClickEvent OnNumericKeyClick = {read=FOnNumericKeyClick, write=FOnNumericKeyClick
		};
	__property Classes::TNotifyEvent OnSharpClick = {read=FOnSharpClick, write=FOnSharpClick};
	__property Classes::TNotifyEvent OnStarClick = {read=FOnStarClick, write=FOnStarClick};
	__property Classes::TNotifyEvent OnExtra1Click = {read=FOnExtra1Click, write=FOnExtra1Click};
	__property Classes::TNotifyEvent OnExtra2Click = {read=FOnExtra2Click, write=FOnExtra2Click};
	__property Classes::TNotifyEvent OnExtra3Click = {read=FOnExtra3Click, write=FOnExtra3Click};
	__property Classes::TNotifyEvent OnExtra4Click = {read=FOnExtra4Click, write=FOnExtra4Click};
public:
		
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TVrKeyPad(HWND ParentWindow) : Vrcontrols::TVrCustomControl(
		ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TVrKeyPadExtraKey : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	bool FVisible;
	AnsiString FCaption;
	Graphics::TColor FColor;
	int FWidth;
	TVrKeyPad* FOwner;
	Graphics::TBitmap* FButtonBkg;
	void __fastcall SetCaption(const AnsiString Value);
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetVisible(const bool Value);
	void __fastcall SetWidth(const int Value);
	void __fastcall SetButtonBkg(const Graphics::TBitmap* Value);
	
protected:
	void __fastcall BkgChanged(System::TObject* Sender);
	void __fastcall KeyPadChanged(void);
	
public:
	__fastcall TVrKeyPadExtraKey(Classes::TComponent* AOwner);
	__fastcall virtual ~TVrKeyPadExtraKey(void);
	
__published:
	__property Graphics::TBitmap* ButtonBkg = {read=FButtonBkg, write=SetButtonBkg};
	__property AnsiString Caption = {read=FCaption, write=SetCaption};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property bool Visible = {read=FVisible, write=SetVisible, nodefault};
	__property int Width = {read=FWidth, write=SetWidth, nodefault};
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint MAXKEYS = 0xf;

}	/* namespace Vrkeypad */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Vrkeypad;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

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