winsubclass.hpp

delphi皮肤控件,很好的.我正在使用当中

	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinTabBtn(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinTabBtn(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinTransObj;
class PASCALIMPLEMENTATION TSkinTransObj : public TSkinControl 
{
	typedef TSkinControl inherited;
	
protected:
	void __fastcall ERASEBKGND(HDC dc);
	
public:
	virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
	virtual void __fastcall AfterProc(Messages::TMessage &Message);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinTransObj(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinTransObj(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinProgress;
class PASCALIMPLEMENTATION TSkinProgress : public TSkinControl 
{
	typedef TSkinControl inherited;
	
public:
	virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
	void __fastcall DrawControl1(HDC dc, const Types::TRect &rc);
	virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinProgress(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinProgress(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinTrackBar;
class PASCALIMPLEMENTATION TSkinTrackBar : public TSkinControl 
{
	typedef TSkinControl inherited;
	
protected:
	void __fastcall Drawthumb(Commctrl::PNMCustomDraw PDraw);
	int __fastcall CustomDraw(Commctrl::PNMCustomDraw PDraw);
	void __fastcall DrawTrack(Commctrl::PNMCustomDraw PDraw);
	
public:
	virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
	virtual void __fastcall SkinChange(void);
	virtual void __fastcall Unsubclass(void);
	virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinTrackBar(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinTrackBar(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinToolbar;
class PASCALIMPLEMENTATION TSkinToolbar : public TSkinControl 
{
	typedef TSkinControl inherited;
	
protected:
	int gradCol1;
	int gradCol2;
	void __fastcall ERASEBKGND(const Messages::TMessage &msg);
	
public:
	virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
	virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinToolbar(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinToolbar(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinEdit;
class PASCALIMPLEMENTATION TSkinEdit : public TSkinControl 
{
	typedef TSkinControl inherited;
	
protected:
	void __fastcall FindUPDown(unsigned ahwnd, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas);
	void __fastcall DrawControl1(HDC dc, const Types::TRect &rc);
	void __fastcall PaintControl1(HDC adc = (HDC)(0x0));
	
public:
	TSkinUpDown* updown;
	virtual void __fastcall AfterProc(Messages::TMessage &Message);
	virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinEdit(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinEdit(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinSizer;
class PASCALIMPLEMENTATION TSkinSizer : public TSkinControl 
{
	typedef TSkinControl inherited;
	
public:
	virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
	virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinSizer(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinSizer(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinBoxH;
class PASCALIMPLEMENTATION TSkinBoxH : public TSkinControl 
{
	typedef TSkinControl inherited;
	
public:
	virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinBoxH(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinBoxH(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinTabSheet;
class PASCALIMPLEMENTATION TSkinTabSheet : public TSkinControl 
{
	typedef TSkinControl inherited;
	
public:
	virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
	virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinTabSheet(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinTabSheet(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinObjImage;
class PASCALIMPLEMENTATION TSkinObjImage : public TSkinControl 
{
	typedef TSkinControl inherited;
	
protected:
	void __fastcall ChangeImage(void);
	void __fastcall SetRzImage(void);
	void __fastcall SetRzRadio(void);
	void __fastcall SetDevCheck(void);
	
public:
	int kind;
	virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
	virtual void __fastcall SkinChange(void);
	virtual void __fastcall Unsubclass(void);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinObjImage(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinObjImage(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinAdvPage;
class PASCALIMPLEMENTATION TSkinAdvPage : public TSkinControl 
{
	typedef TSkinControl inherited;
	
protected:
	TSkinUpDown* updown;
	void __fastcall ChangeImage(void);
	void __fastcall SetAdvPage(void);
	bool __fastcall FindScroll(void);
	
public:
	int kind;
	virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
	virtual void __fastcall SkinChange(void);
	virtual void __fastcall Unsubclass(void);
	virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinAdvPage(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinControl.Destroy */ inline __fastcall virtual ~TSkinAdvPage(void) { }
	#pragma option pop
	
};


struct TScrollBarPos
{
	
public:
	int Btn;
	int ScrollArea;
	int Thumb;
	int ThumbPos;
	int MsgID;
} ;

#pragma option push -b-
enum TSkinScroll { HB, VB };
#pragma option pop

class DELPHICLASS TSkinScrollbar;
class PASCALIMPLEMENTATION TSkinScrollbar : public TSkinControl 
{
	typedef TSkinControl inherited;
	
protected:
	bool nobe;
	virtual void __fastcall AfterProc(Messages::TMessage &Message);
	virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
	void __fastcall SetScrollbarPos(const Messages::TMessage &message);
	virtual void __fastcall Unsubclass(void);
	void __fastcall DrawBorder(HDC dc, const Types::TRect &rc);
	void __fastcall BENCPAINT(HDC adc);
	
public:
	TWScrollbar* hb;
	TWScrollbar* vb;
	int postype;
	bool painted;
	bool border;
	__fastcall virtual TSkinScrollbar(Classes::TComponent* AOwner);
	__fastcall virtual ~TSkinScrollbar(void);
	virtual void __fastcall InitScrollbar(Controls::TWinControl* acontrol, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
	virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
	virtual void __fastcall SkinChange(void);
};


class DELPHICLASS TSkinScControl;
class PASCALIMPLEMENTATION TSkinScControl : public TSkinControl 
{
	typedef TSkinControl inherited;
	
protected:
	int downBtn;
	TScrollBarPos SP;
	TWScrollbar* sb;
	virtual void __fastcall AfterProc(Messages::TMessage &Message);
	
public:
	virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
	void __fastcall InitScrollbar(Controls::TWinControl* acontrol, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
	virtual void __fastcall Unsubclass(void);
	__fastcall virtual ~TSkinScControl(void);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinScControl(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	
};


typedef DynamicArray<Types::TRect >  WinSubClass__14;

class DELPHICLASS TSkinHeader;
class PASCALIMPLEMENTATION TSkinHeader : public TSkinControl 
{
	typedef TSkinControl inherited;
	
protected:
	DynamicArray<Types::TRect >  Items;
	int indexitem;
	void __fastcall WMMouseMove(Messages::TMessage &Message);
	void __fastcall DrawItem(unsigned ImgList, Graphics::TCanvas* acanvas, const Types::TRect &rc, int index);
	
public:
	__fastcall virtual ~TSkinHeader(void);
	virtual void __fastcall Inithwnd(unsigned ahwnd, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
	virtual void __fastcall Init(Classes::TComponent* sf, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, bool acolor = false);
	virtual bool __fastcall BeforeProc(Messages::TMessage &Message);
	virtual void __fastcall AfterProc(Messages::TMessage &Message);
	virtual void __fastcall DrawControl(HDC dc, const Types::TRect &rc);
public:
	#pragma option push -w-inl
	/* TSkinControl.Create */ inline __fastcall virtual TSkinHeader(Classes::TComponent* AOwner) : TSkinControl(AOwner) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinListView;
class PASCALIMPLEMENTATION TSkinListView : public TSkinScrollbar 
{
	typedef TSkinScrollbar inherited;
	
protected:
	void *FHeaderInstance;
	void *FDefHeaderProc;
	unsigned hHwnd;
	TSkinHeader* header;
	void __fastcall SetHeaderOwnerDraw(void);
	void __fastcall DrawHeaderItem(const tagDRAWITEMSTRUCT &DrawItemStruct);
	void __fastcall Drawheader(void);
	void __fastcall drawitem(HDC dc, const Types::TRect &rc, Comctrls::TListColumn* acolumn);
	void __fastcall WMNotify(Messages::TWMNotify &Message);
	
public:
	virtual void __fastcall InitScrollbar(Controls::TWinControl* acontrol, Winskindata::TSkinData* sd, Graphics::TCanvas* acanvas, Classes::TComponent* sf);
	void __fastcall HeaderProc(Messages::TMessage &Message);
public:
	#pragma option push -w-inl
	/* TSkinScrollbar.Create */ inline __fastcall virtual TSkinListView(Classes::TComponent* AOwner) : TSkinScrollbar(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TSkinScrollbar.Destroy */ inline __fastcall virtual ~TSkinListView(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Byte CM_Scroll1 = 0xa1;
static const Word CM_Scroll2 = 0x201;
static const Byte CM_Scroll3 = 0xa2;
static const Word CM_Scroll4 = 0x202;
static const Shortint C_Paramv = 0x7;
static const Shortint C_Paramh = 0x6;
static const Shortint c_paramB = 0x1;
static const Byte SBM_GETSCROLLBARINFO = 0xeb;
extern PACKAGE void __fastcall CopyBMP(Graphics::TBitmap* src, Graphics::TBitmap* &dst);
extern PACKAGE void __fastcall FillColor(HDC dc, const Types::TRect &rc, Graphics::TColor acolor);
extern PACKAGE AnsiString __fastcall GetProperty(System::TObject* control, AnsiString aprop);
extern PACKAGE int __fastcall GetIntProperty(System::TObject* control, AnsiString aprop);
extern PACKAGE AnsiString __fastcall GetEnumProperty(System::TObject* control, AnsiString aprop);
extern PACKAGE WideString __fastcall GetStringProp(System::TObject* control, AnsiString aprop);
extern PACKAGE System::TMethod __fastcall GetObjMethod(System::TObject* control, AnsiString aprop);
extern PACKAGE System::TObject* __fastcall GetObjProp(System::TObject* control, AnsiString aprop, TMetaClass* MinClass);
extern PACKAGE void __fastcall SetProperty(System::TObject* control, AnsiString aprop, AnsiString value);
extern PACKAGE WideString __fastcall StringReplaceW(WideString s, WideString s1, WideString s2);
extern PACKAGE void __fastcall MyDrawCaption(Graphics::TCanvas* acanvas, const Types::TRect &rc, WideString text, bool enabled, bool defaulted, Classes::TAlignment Alignment = (Classes::TAlignment)(0x2));
extern PACKAGE void __fastcall DrawArrow(Graphics::TCanvas* ACanvas, int X, int Y, int Orientation);
extern PACKAGE void __fastcall MyDrawImgCaption(Graphics::TCanvas* acanvas, const Types::TRect &rc, Imglist::TCustomImageList* ImgList, int imgIndex, AnsiString text, bool enabled, bool defaulted, Classes::TAlignment Alignment = (Classes::TAlignment)(0x2));

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

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