iphonepad.hpp

Iocomp Ultra Pack v3.0.2 Sources.For.Delphi 数据显示编程插件,可用于工业控制

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

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

#ifndef iPhonePadHPP
#define iPhonePadHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <iComponent.hpp>	// Pascal unit
#include <iVCLComponent.hpp>	// Pascal unit
#include <iCustomComponent.hpp>	// Pascal unit
#include <iClasses.hpp>	// Pascal unit
#include <iGPFunctions.hpp>	// Pascal unit
#include <iTypes.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <ComCtrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Clipbrd.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Iphonepad
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TiPhonePadKeyEvent)(System::TObject* Sender, int KeyCode, char AChar);

class DELPHICLASS TiPhonePad;
class PASCALIMPLEMENTATION TiPhonePad : public Icustomcomponent::TiCustomComponent 
{
	typedef Icustomcomponent::TiCustomComponent inherited;
	
private:
	int FButtonWidth;
	int FButtonHeight;
	int FMarginVert;
	int FMarginHorz;
	int FSpacingVert;
	int FSpacingHorz;
	Graphics::TFont* FFont;
	double FOuterMargin;
	double FButtonSpacing;
	Classes::TStringList* FButtonList;
	Iclasses::TiButton* FMouseDownObject;
	Iclasses::TiButton* FButton0;
	Iclasses::TiButton* FButton1;
	Iclasses::TiButton* FButton2;
	Iclasses::TiButton* FButton3;
	Iclasses::TiButton* FButton4;
	Iclasses::TiButton* FButton5;
	Iclasses::TiButton* FButton6;
	Iclasses::TiButton* FButton7;
	Iclasses::TiButton* FButton8;
	Iclasses::TiButton* FButton9;
	Iclasses::TiButton* FButtonA;
	Iclasses::TiButton* FButtonP;
	bool FShowFocusRect;
	TiPhonePadKeyEvent FOnKeyClick;
	
protected:
	HIDESBASE void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetOuterMargin(const double Value);
	void __fastcall SetButtonSpacing(const double Value);
	void __fastcall SetShowFocusRect(const bool Value);
	void __fastcall SetButtonVisible0(const bool Value);
	void __fastcall SetButtonVisible1(const bool Value);
	void __fastcall SetButtonVisible2(const bool Value);
	void __fastcall SetButtonVisible3(const bool Value);
	void __fastcall SetButtonVisible4(const bool Value);
	void __fastcall SetButtonVisible5(const bool Value);
	void __fastcall SetButtonVisible6(const bool Value);
	void __fastcall SetButtonVisible7(const bool Value);
	void __fastcall SetButtonVisible8(const bool Value);
	void __fastcall SetButtonVisible9(const bool Value);
	void __fastcall SetButtonVisibleA(const bool Value);
	void __fastcall SetButtonVisibleP(const bool Value);
	void __fastcall SetButtonCaption0(const AnsiString Value);
	void __fastcall SetButtonCaption1(const AnsiString Value);
	void __fastcall SetButtonCaption2(const AnsiString Value);
	void __fastcall SetButtonCaption3(const AnsiString Value);
	void __fastcall SetButtonCaption4(const AnsiString Value);
	void __fastcall SetButtonCaption5(const AnsiString Value);
	void __fastcall SetButtonCaption6(const AnsiString Value);
	void __fastcall SetButtonCaption7(const AnsiString Value);
	void __fastcall SetButtonCaption8(const AnsiString Value);
	void __fastcall SetButtonCaption9(const AnsiString Value);
	void __fastcall SetButtonCaptionP(const AnsiString Value);
	void __fastcall SetButtonCaptionA(const AnsiString Value);
	bool __fastcall GetButtonVisible0(void);
	bool __fastcall GetButtonVisible1(void);
	bool __fastcall GetButtonVisible2(void);
	bool __fastcall GetButtonVisible3(void);
	bool __fastcall GetButtonVisible4(void);
	bool __fastcall GetButtonVisible5(void);
	bool __fastcall GetButtonVisible6(void);
	bool __fastcall GetButtonVisible7(void);
	bool __fastcall GetButtonVisible8(void);
	bool __fastcall GetButtonVisible9(void);
	bool __fastcall GetButtonVisibleA(void);
	bool __fastcall GetButtonVisibleP(void);
	AnsiString __fastcall GetButtonCaption0();
	AnsiString __fastcall GetButtonCaption1();
	AnsiString __fastcall GetButtonCaption2();
	AnsiString __fastcall GetButtonCaption3();
	AnsiString __fastcall GetButtonCaption4();
	AnsiString __fastcall GetButtonCaption5();
	AnsiString __fastcall GetButtonCaption6();
	AnsiString __fastcall GetButtonCaption7();
	AnsiString __fastcall GetButtonCaption8();
	AnsiString __fastcall GetButtonCaption9();
	AnsiString __fastcall GetButtonCaptionP();
	AnsiString __fastcall GetButtonCaptionA();
	void __fastcall CalcRects(void);
	Iclasses::TiButton* __fastcall CreateButton(AnsiString Caption);
	void __fastcall ButtonInvalidate(System::TObject* Sender);
	void __fastcall FontChange(System::TObject* Sender);
	void __fastcall ButtonClick(System::TObject* Sender);
	virtual void __fastcall iMouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iMouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iMouseMove(Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall iDoKillFocus(void);
	virtual void __fastcall iPaintTo(Graphics::TCanvas* Canvas);
	
public:
	__fastcall virtual TiPhonePad(Classes::TComponent* AOwner);
	__fastcall virtual ~TiPhonePad(void);
	
__published:
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property double OuterMargin = {read=FOuterMargin, write=SetOuterMargin};
	__property double ButtonSpacing = {read=FButtonSpacing, write=SetButtonSpacing};
	__property bool ShowFocusRect = {read=FShowFocusRect, write=SetShowFocusRect, default=1};
	__property bool ButtonVisible0 = {read=GetButtonVisible0, write=SetButtonVisible0, default=1};
	__property bool ButtonVisible1 = {read=GetButtonVisible1, write=SetButtonVisible1, default=1};
	__property bool ButtonVisible2 = {read=GetButtonVisible2, write=SetButtonVisible2, default=1};
	__property bool ButtonVisible3 = {read=GetButtonVisible3, write=SetButtonVisible3, default=1};
	__property bool ButtonVisible4 = {read=GetButtonVisible4, write=SetButtonVisible4, default=1};
	__property bool ButtonVisible5 = {read=GetButtonVisible5, write=SetButtonVisible5, default=1};
	__property bool ButtonVisible6 = {read=GetButtonVisible6, write=SetButtonVisible6, default=1};
	__property bool ButtonVisible7 = {read=GetButtonVisible7, write=SetButtonVisible7, default=1};
	__property bool ButtonVisible8 = {read=GetButtonVisible8, write=SetButtonVisible8, default=1};
	__property bool ButtonVisible9 = {read=GetButtonVisible9, write=SetButtonVisible9, default=1};
	__property bool ButtonVisibleStar = {read=GetButtonVisibleA, write=SetButtonVisibleA, default=1};
	__property bool ButtonVisiblePound = {read=GetButtonVisibleP, write=SetButtonVisibleP, default=1};
	__property AnsiString ButtonCaption0 = {read=GetButtonCaption0, write=SetButtonCaption0};
	__property AnsiString ButtonCaption1 = {read=GetButtonCaption1, write=SetButtonCaption1};
	__property AnsiString ButtonCaption2 = {read=GetButtonCaption2, write=SetButtonCaption2};
	__property AnsiString ButtonCaption3 = {read=GetButtonCaption3, write=SetButtonCaption3};
	__property AnsiString ButtonCaption4 = {read=GetButtonCaption4, write=SetButtonCaption4};
	__property AnsiString ButtonCaption5 = {read=GetButtonCaption5, write=SetButtonCaption5};
	__property AnsiString ButtonCaption6 = {read=GetButtonCaption6, write=SetButtonCaption6};
	__property AnsiString ButtonCaption7 = {read=GetButtonCaption7, write=SetButtonCaption7};
	__property AnsiString ButtonCaption8 = {read=GetButtonCaption8, write=SetButtonCaption8};
	__property AnsiString ButtonCaption9 = {read=GetButtonCaption9, write=SetButtonCaption9};
	__property AnsiString ButtonCaptionStar = {read=GetButtonCaptionA, write=SetButtonCaptionA};
	__property AnsiString ButtonCaptionPound = {read=GetButtonCaptionP, write=SetButtonCaptionP};
	__property TiPhonePadKeyEvent OnKeyClick = {read=FOnKeyClick, write=FOnKeyClick};
	__property BackGroundColor  = {default=-2147483633};
	__property Transparent  = {default=0};
	__property BorderStyle  = {default=0};
	__property Width  = {default=115};
	__property Height  = {default=140};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TiPhonePad(HWND ParentWindow) : Icustomcomponent::TiCustomComponent(ParentWindow) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

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

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