rm_jvexcontrols.hpp

这是一个功能强大

// CodeGear C++Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Rm_jvexcontrols.pas' rev: 11.00

#ifndef Rm_jvexcontrolsHPP
#define Rm_jvexcontrolsHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Rm_jvtypes.hpp>	// Pascal unit
#include <Rm_jvthemes.hpp>	// Pascal unit
#include <Rm_jvclver.hpp>	// Pascal unit

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

namespace Rm_jvexcontrols
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TDlgCode { dcWantAllKeys, dcWantArrows, dcWantChars, dcButton, dcHasSetSel, dcWantTab, dcNative };
#pragma option pop

typedef Set<TDlgCode, dcWantAllKeys, dcNative>  TDlgCodes;

__interface IJvExControl;
typedef System::DelphiInterface<IJvExControl> _di_IJvExControl;
__interface  INTERFACE_UUID("{8E6579C3-D683-4562-AFAB-D23C8526E386}") IJvExControl  : public IInterface 
{
	
};

__interface IJvDenySubClassing;
typedef System::DelphiInterface<IJvDenySubClassing> _di_IJvDenySubClassing;
__interface  INTERFACE_UUID("{76942BC0-2A6E-4DC4-BFC9-8E110DB7F601}") IJvDenySubClassing  : public IInterface 
{
	
};

__interface IJvHotTrack;
typedef System::DelphiInterface<IJvHotTrack> _di_IJvHotTrack;
class DELPHICLASS TJvHotTrackOptions;
__interface  INTERFACE_UUID("{8F1B40FB-D8E3-46FE-A7A3-21CE4B199A8F}") IJvHotTrack  : public IInterface 
{
	
public:
	virtual bool __fastcall GetHotTrack(void) = 0 ;
	virtual Graphics::TFont* __fastcall GetHotTrackFont(void) = 0 ;
	virtual Rm_jvtypes::TJvTrackFontOptions __fastcall GetHotTrackFontOptions(void) = 0 ;
	virtual TJvHotTrackOptions* __fastcall GetHotTrackOptions(void) = 0 ;
	virtual void __fastcall SetHotTrack(bool Value) = 0 ;
	virtual void __fastcall SetHotTrackFont(Graphics::TFont* Value) = 0 ;
	virtual void __fastcall SetHotTrackFontOptions(Rm_jvtypes::TJvTrackFontOptions Value) = 0 ;
	virtual void __fastcall SetHotTrackOptions(TJvHotTrackOptions* Value) = 0 ;
	__property bool HotTrack = {read=GetHotTrack, write=SetHotTrack};
	__property Graphics::TFont* HotTrackFont = {read=GetHotTrackFont, write=SetHotTrackFont};
	__property Rm_jvtypes::TJvTrackFontOptions HotTrackFontOptions = {read=GetHotTrackFontOptions, write=SetHotTrackFontOptions};
	__property TJvHotTrackOptions* HotTrackOptions = {read=GetHotTrackOptions, write=SetHotTrackOptions};
};

class PASCALIMPLEMENTATION TJvHotTrackOptions : public Rm_jvtypes::TJvPersistentProperty 
{
	typedef Rm_jvtypes::TJvPersistentProperty inherited;
	
private:
	bool FEnabled;
	bool FFrameVisible;
	Graphics::TColor FColor;
	Graphics::TColor FFrameColor;
	void __fastcall SetColor(Graphics::TColor Value);
	void __fastcall SetEnabled(bool Value);
	void __fastcall SetFrameColor(Graphics::TColor Value);
	void __fastcall SetFrameVisible(bool Value);
	
public:
	__fastcall virtual TJvHotTrackOptions(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property bool Enabled = {read=FEnabled, write=SetEnabled, default=0};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, default=13811126};
	__property bool FrameVisible = {read=FFrameVisible, write=SetFrameVisible, default=0};
	__property Graphics::TColor FrameColor = {read=FFrameColor, write=SetFrameColor, default=6956042};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TJvHotTrackOptions(void) { }
	#pragma option pop
	
};


class DELPHICLASS TStructPtrMessage;
class PASCALIMPLEMENTATION TStructPtrMessage : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	#pragma pack(push,1)
	Messages::TMessage Msg;
	#pragma pack(pop)
	__fastcall TStructPtrMessage(int Msg, int WParam, void *LParam);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TStructPtrMessage(void) { }
	#pragma option pop
	
};


class DELPHICLASS TJvExControl;
class PASCALIMPLEMENTATION TJvExControl : public Controls::TControl 
{
	typedef Controls::TControl 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 TJvExControl(Classes::TComponent* AOwner);
	
__published:
	__property Rm_jvclver::TJVCLAboutInfo AboutJVCL = {read=FAboutJVCL, write=FAboutJVCL, stored=false, nodefault};
public:
	#pragma option push -w-inl
	/* TControl.Destroy */ inline __fastcall virtual ~TJvExControl(void) { }
	#pragma option pop
	
private:
	void *__IJvExControl;	/* Rm_jvexcontrols::IJvExControl */
	
public:
	operator IJvExControl*(void) { return (IJvExControl*)&__IJvExControl; }
	
};


class DELPHICLASS TJvExWinControl;
class PASCALIMPLEMENTATION TJvExWinControl : public Controls::TWinControl 
{
	typedef Controls::TWinControl 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 TJvExWinControl(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
	/* TWinControl.CreateParented */ inline __fastcall TJvExWinControl(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TJvExWinControl(void) { }
	#pragma option pop
	
private:
	void *__IJvExControl;	/* Rm_jvexcontrols::IJvExControl */
	
public:
	operator IJvExControl*(void) { return (IJvExControl*)&__IJvExControl; }
	
};


class DELPHICLASS TJvExCustomControl;
class PASCALIMPLEMENTATION TJvExCustomControl : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private: