rm_jvexcontrols.hpp

这是一个功能强大

	Rm_jvclver::TJVCLAboutInfo FAboutJVCL;
	Graphics::TColor FHintColor;
	bool FMouseOver;
	Classes::TNotifyEvent FOnMouseEnter;
	Classes::TNotifyEvent FOnMouseLeave;
	Classes::TNotifyEvent FOnParentColorChanged;
	int __fastcall BaseWndProc(int Msg, int WParam = 0x0, int LParam = 0x0)/* overload */;
	int __fastcall BaseWndProc(int Msg, int WParam, Controls::TControl* LParam)/* overload */;
	int __fastcall BaseWndProcEx(int Msg, int WParam, void *LParam);
	
protected:
	virtual void __fastcall WndProc(Messages::TMessage &Msg);
	DYNAMIC void __fastcall FocusChanged(Controls::TWinControl* AControl);
	DYNAMIC void __fastcall VisibleChanged(void);
	DYNAMIC void __fastcall EnabledChanged(void);
	virtual void __fastcall TextChanged(void);
	DYNAMIC void __fastcall ColorChanged(void);
	HIDESBASEDYNAMIC void __fastcall FontChanged(void);
	DYNAMIC void __fastcall ParentFontChanged(void);
	DYNAMIC void __fastcall ParentColorChanged(void);
	DYNAMIC void __fastcall ParentShowHintChanged(void);
	virtual bool __fastcall WantKey(int Key, Classes::TShiftState Shift, const WideString KeyText);
	DYNAMIC bool __fastcall HintShow(Forms::THintInfo &HintInfo);
	virtual bool __fastcall HitTest(int X, int Y);
	DYNAMIC void __fastcall MouseEnter(Controls::TControl* AControl);
	DYNAMIC void __fastcall MouseLeave(Controls::TControl* AControl);
	__property bool MouseOver = {read=FMouseOver, write=FMouseOver, nodefault};
	__property Graphics::TColor HintColor = {read=FHintColor, write=FHintColor, default=536870912};
	__property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
	__property Classes::TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
	__property Classes::TNotifyEvent OnParentColorChange = {read=FOnParentColorChanged, write=FOnParentColorChanged};
	
public:
	__fastcall virtual TJvExCustomControl(Classes::TComponent* AOwner);
	
__published:
	__property Rm_jvclver::TJVCLAboutInfo AboutJVCL = {read=FAboutJVCL, write=FAboutJVCL, stored=false, nodefault};
	
private:
	bool FDotNetHighlighting;
	
protected:
	virtual void __fastcall BoundsChanged(void);
	DYNAMIC void __fastcall CursorChanged(void);
	DYNAMIC void __fastcall ShowingChanged(void);
	DYNAMIC void __fastcall ShowHintChanged(void);
	DYNAMIC void __fastcall ControlsListChanging(Controls::TControl* Control, bool Inserting);
	DYNAMIC void __fastcall ControlsListChanged(Controls::TControl* Control, bool Inserting);
	virtual void __fastcall GetDlgCode(TDlgCodes &Code);
	virtual void __fastcall FocusSet(unsigned PrevWnd);
	virtual void __fastcall FocusKilled(unsigned NextWnd);
	virtual bool __fastcall DoEraseBackground(Graphics::TCanvas* Canvas, int Param);
	
__published:
	__property bool DotNetHighlighting = {read=FDotNetHighlighting, write=FDotNetHighlighting, default=0};
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TJvExCustomControl(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TJvExCustomControl(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	#pragma option pop
	
private:
	void *__IJvExControl;	/* Rm_jvexcontrols::IJvExControl */
	
public:
	operator IJvExControl*(void) { return (IJvExControl*)&__IJvExControl; }
	
};


class DELPHICLASS TJvExGraphicControl;
class PASCALIMPLEMENTATION TJvExGraphicControl : public Controls::TGraphicControl 
{
	typedef Controls::TGraphicControl inherited;
	
private:
	Rm_jvclver::TJVCLAboutInfo FAboutJVCL;
	Graphics::TColor FHintColor;
	bool FMouseOver;
	Classes::TNotifyEvent FOnMouseEnter;
	Classes::TNotifyEvent FOnMouseLeave;
	Classes::TNotifyEvent FOnParentColorChanged;
	int __fastcall BaseWndProc(int Msg, int WParam = 0x0, int LParam = 0x0)/* overload */;
	int __fastcall BaseWndProc(int Msg, int WParam, Controls::TControl* LParam)/* overload */;
	int __fastcall BaseWndProcEx(int Msg, int WParam, void *LParam);
	
protected:
	virtual void __fastcall WndProc(Messages::TMessage &Msg);
	DYNAMIC void __fastcall FocusChanged(Controls::TWinControl* AControl);
	DYNAMIC void __fastcall VisibleChanged(void);
	DYNAMIC void __fastcall EnabledChanged(void);
	virtual void __fastcall TextChanged(void);
	DYNAMIC void __fastcall ColorChanged(void);
	HIDESBASEDYNAMIC void __fastcall FontChanged(void);
	DYNAMIC void __fastcall ParentFontChanged(void);
	DYNAMIC void __fastcall ParentColorChanged(void);
	DYNAMIC void __fastcall ParentShowHintChanged(void);
	virtual bool __fastcall WantKey(int Key, Classes::TShiftState Shift, const WideString KeyText);
	DYNAMIC bool __fastcall HintShow(Forms::THintInfo &HintInfo);
	virtual bool __fastcall HitTest(int X, int Y);
	DYNAMIC void __fastcall MouseEnter(Controls::TControl* AControl);
	DYNAMIC void __fastcall MouseLeave(Controls::TControl* AControl);
	__property bool MouseOver = {read=FMouseOver, write=FMouseOver, nodefault};
	__property Graphics::TColor HintColor = {read=FHintColor, write=FHintColor, default=536870912};
	__property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
	__property Classes::TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
	__property Classes::TNotifyEvent OnParentColorChange = {read=FOnParentColorChanged, write=FOnParentColorChanged};
	
public:
	__fastcall virtual TJvExGraphicControl(Classes::TComponent* AOwner);
	
__published:
	__property Rm_jvclver::TJVCLAboutInfo AboutJVCL = {read=FAboutJVCL, write=FAboutJVCL, stored=false, nodefault};
public:
	#pragma option push -w-inl
	/* TGraphicControl.Destroy */ inline __fastcall virtual ~TJvExGraphicControl(void) { }
	#pragma option pop
	
private:
	void *__IJvExControl;	/* Rm_jvexcontrols::IJvExControl */
	
public:
	operator IJvExControl*(void) { return (IJvExControl*)&__IJvExControl; }
	
};


class DELPHICLASS TJvExHintWindow;
class PASCALIMPLEMENTATION TJvExHintWindow : public Controls::THintWindow 
{
	typedef Controls::THintWindow inherited;
	
private:
	Rm_jvclver::TJVCLAboutInfo FAboutJVCL;
	Graphics::TColor FHintColor;
	bool FMouseOver;
	Classes::TNotifyEvent FOnMouseEnter;
	Classes::TNotifyEvent FOnMouseLeave;
	Classes::TNotifyEvent FOnParentColorChanged;
	int __fastcall BaseWndProc(int Msg, int WParam = 0x0, int LParam = 0x0)/* overload */;
	int __fastcall BaseWndProc(int Msg, int WParam, Controls::TControl* LParam)/* overload */;
	int __fastcall BaseWndProcEx(int Msg, int WParam, void *LParam);
	
protected:
	virtual void __fastcall WndProc(Messages::TMessage &Msg);
	DYNAMIC void __fastcall FocusChanged(Controls::TWinControl* AControl);
	DYNAMIC void __fastcall VisibleChanged(void);
	DYNAMIC void __fastcall EnabledChanged(void);
	virtual void __fastcall TextChanged(void);
	DYNAMIC void __fastcall ColorChanged(void);
	HIDESBASEDYNAMIC void __fastcall FontChanged(void);
	DYNAMIC void __fastcall ParentFontChanged(void);
	DYNAMIC void __fastcall ParentColorChanged(void);
	DYNAMIC void __fastcall ParentShowHintChanged(void);
	virtual bool __fastcall WantKey(int Key, Classes::TShiftState Shift, const WideString KeyText);
	DYNAMIC bool __fastcall HintShow(Forms::THintInfo &HintInfo);
	virtual bool __fastcall HitTest(int X, int Y);
	DYNAMIC void __fastcall MouseEnter(Controls::TControl* AControl);
	DYNAMIC void __fastcall MouseLeave(Controls::TControl* AControl);
	__property bool MouseOver = {read=FMouseOver, write=FMouseOver, nodefault};
	__property Graphics::TColor HintColor = {read=FHintColor, write=FHintColor, default=536870912};
	__property Classes::TNotifyEvent OnMouseEnter = {read=FOnMouseEnter, write=FOnMouseEnter};
	__property Classes::TNotifyEvent OnMouseLeave = {read=FOnMouseLeave, write=FOnMouseLeave};
	__property Classes::TNotifyEvent OnParentColorChange = {read=FOnParentColorChanged, write=FOnParentColorChanged};
	
public:
	__fastcall virtual TJvExHintWindow(Classes::TComponent* AOwner);
	
__published:
	__property Rm_jvclver::TJVCLAboutInfo AboutJVCL = {read=FAboutJVCL, write=FAboutJVCL, stored=false, nodefault};
	
private:
	bool FDotNetHighlighting;
	
protected:
	virtual void __fastcall BoundsChanged(void);
	DYNAMIC void __fastcall CursorChanged(void);
	DYNAMIC void __fastcall ShowingChanged(void);
	DYNAMIC void __fastcall ShowHintChanged(void);
	DYNAMIC void __fastcall ControlsListChanging(Controls::TControl* Control, bool Inserting);
	DYNAMIC void __fastcall ControlsListChanged(Controls::TControl* Control, bool Inserting);
	virtual void __fastcall GetDlgCode(TDlgCodes &Code);
	virtual void __fastcall FocusSet(unsigned PrevWnd);
	virtual void __fastcall FocusKilled(unsigned NextWnd);
	virtual bool __fastcall DoEraseBackground(Graphics::TCanvas* Canvas, int Param);
	
__published:
	__property bool DotNetHighlighting = {read=FDotNetHighlighting, write=FDotNetHighlighting, default=0};
public:
	#pragma option push -w-inl
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TJvExHintWindow(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TJvExHintWindow(HWND ParentWindow) : Controls::THintWindow(ParentWindow) { }
	#pragma option pop
	
private:
	void *__IJvExControl;	/* Rm_jvexcontrols::IJvExControl */
	
public:
	operator IJvExControl*(void) { return (IJvExControl*)&__IJvExControl; }
	
};


class DELPHICLASS TJvExPubGraphicControl;
class PASCALIMPLEMENTATION TJvExPubGraphicControl : public TJvExGraphicControl 
{
	typedef TJvExGraphicControl inherited;
	
__published:
	__property BiDiMode ;
	__property DragCursor  = {default=-12};
	__property DragKind  = {default=0};
	__property DragMode  = {default=0};
	__property ParentBiDiMode  = {default=1};
	__property OnEndDock ;
	__property OnStartDock ;
public:
	#pragma option push -w-inl
	/* TJvExGraphicControl.Create */ inline __fastcall virtual TJvExPubGraphicControl(Classes::TComponent* AOwner) : TJvExGraphicControl(AOwner) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TGraphicControl.Destroy */ inline __fastcall virtual ~TJvExPubGraphicControl(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const TDlgCode dcWantMessage = (TDlgCode)(0);
static const Word CM_DENYSUBCLASSING = 0xb7d0;
static const Word CM_SETAUTOSIZE = 0xb501;
extern PACKAGE void __fastcall SetDotNetFrameColors(Graphics::TColor FocusedColor, Graphics::TColor UnfocusedColor);
extern PACKAGE void __fastcall DrawDotNetControl(Controls::TWinControl* Control, Graphics::TColor AColor, bool InControl);
extern PACKAGE void __fastcall HandleDotNetHighlighting(Controls::TWinControl* Control, const Messages::TMessage &Msg, bool MouseOver, Graphics::TColor Color);
extern PACKAGE Messages::TMessage __fastcall CreateWMMessage(int Msg, int WParam, int LParam)/* overload */;
extern PACKAGE Messages::TMessage __fastcall CreateWMMessage(int Msg, int WParam, Controls::TControl* LParam)/* overload */;
extern PACKAGE int __fastcall SmallPointToLong(const Types::TSmallPoint Pt);
extern PACKAGE int __fastcall ShiftStateToKeyData(Classes::TShiftState Shift);
extern PACKAGE Controls::TWinControl* __fastcall GetFocusedControl(Controls::TControl* AControl);
extern PACKAGE TDlgCodes __fastcall DlgcToDlgCodes(int Value);
extern PACKAGE int __fastcall DlgCodesToDlgc(TDlgCodes Value);
extern PACKAGE void __fastcall GetHintColor(Forms::THintInfo &HintInfo, Controls::TControl* AControl, Graphics::TColor HintColor);
extern PACKAGE bool __fastcall DispatchIsDesignMsg(Controls::TControl* Control, Messages::TMessage &Msg);

}	/* namespace Rm_jvexcontrols */
using namespace Rm_jvexcontrols;
#pragma pack(pop)
#pragma option pop

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