suiskinutils.hpp

SUISkin 是为Delphi和C++Builder开发的最易用的界面增强VCL组件包。它能完全自动的为您的应用程序添加支持换肤功能

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

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

#ifndef SUISkinUtilsHPP
#define SUISkinUtilsHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <TypInfo.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Math.hpp>	// Pascal unit
#include <SysUtils.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 Suiskinutils
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TsuiSkinReader;
class PASCALIMPLEMENTATION TsuiSkinReader : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	bool m_Ready;
	Classes::TStrings* m_StreamList;
	Classes::TStrings* m_IntegerList;
	Classes::TStrings* m_BooleanList;
	Classes::TNotifyEvent m_OnChanged;
	void __fastcall ClearAll(void);
	
protected:
	void __fastcall Assign(TsuiSkinReader* Source);
	
public:
	__fastcall TsuiSkinReader(AnsiString Skin);
	__fastcall virtual ~TsuiSkinReader(void);
	void __fastcall Load(AnsiString Skin);
	bool __fastcall GetBitmap(AnsiString Key, const Graphics::TBitmap* Buf);
	bool __fastcall GetBitmapEx(AnsiString Key, const Graphics::TBitmap* Buf, int SpitCount, int SpitIndex
		);
	Graphics::TColor __fastcall GetColor(AnsiString Key);
	bool __fastcall GetBool(AnsiString Key);
	void __fastcall SetColor(AnsiString Key, Graphics::TColor Value);
	void __fastcall SetBool(AnsiString Key, bool Value);
	void __fastcall SetBitmap(AnsiString Key, const Graphics::TBitmap* Buf);
	__property bool Ready = {read=m_Ready, nodefault};
	__property Classes::TNotifyEvent OnChanged = {read=m_OnChanged, write=m_OnChanged};
};


class DELPHICLASS TsuiSkinRes;
class PASCALIMPLEMENTATION TsuiSkinRes : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	bool __fastcall GetReady(void);
	
protected:
	TsuiSkinReader* m_SkinReader;
	virtual void __fastcall ReaderChanged(void);
	
public:
	void __fastcall SetReader(const TsuiSkinReader* SkinReader);
	__property bool Ready = {read=GetReady, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TsuiSkinRes(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TsuiSkinRes(void) { }
	#pragma option pop
	
};


class DELPHICLASS TsuiSkinScrollBtnRes;
class PASCALIMPLEMENTATION TsuiSkinScrollBtnRes : public TsuiSkinRes 
{
	typedef TsuiSkinRes inherited;
	
private:
	Graphics::TBitmap* m_H1;
	Graphics::TBitmap* m_H2;
	Graphics::TBitmap* m_H3;
	Graphics::TBitmap* m_H4;
	Graphics::TBitmap* m_H5;
	Graphics::TBitmap* m_H6;
	Graphics::TBitmap* m_V1;
	Graphics::TBitmap* m_V2;
	Graphics::TBitmap* m_V3;
	Graphics::TBitmap* m_V4;
	Graphics::TBitmap* m_V5;
	Graphics::TBitmap* m_V6;
	Graphics::TBitmap* m_VS;
	Graphics::TBitmap* m_HS;
	
protected:
	virtual void __fastcall ReaderChanged(void);
	
public:
	__fastcall virtual ~TsuiSkinScrollBtnRes(void);
	Graphics::TBitmap* __fastcall GetHBtn(int Index);
	Graphics::TBitmap* __fastcall GetVBtn(int Index);
	Graphics::TBitmap* __fastcall GetHSlider(void);
	Graphics::TBitmap* __fastcall GetVSlider(void);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TsuiSkinScrollBtnRes(void) : TsuiSkinRes() { }
	#pragma option pop
	
};


class DELPHICLASS TsuiSkinTabRes;
class PASCALIMPLEMENTATION TsuiSkinTabRes : public TsuiSkinRes 
{
	typedef TsuiSkinRes inherited;
	
private:
	Graphics::TBitmap* m_B1;
	Graphics::TBitmap* m_B2;
	Graphics::TBitmap* m_B3;
	Graphics::TBitmap* m_B4;
	Graphics::TBitmap* m_P1;
	Graphics::TBitmap* m_P2;
	Graphics::TBitmap* m_P3;
	Graphics::TBitmap* m_P4;
	Graphics::TBitmap* m_A1;
	Graphics::TBitmap* m_A2;
	Graphics::TBitmap* m_A3;
	Graphics::TBitmap* m_a4;
	
protected:
	virtual void __fastcall ReaderChanged(void);
	
public:
	__fastcall virtual ~TsuiSkinTabRes(void);
	Graphics::TBitmap* __fastcall GetTopBar(void);
	Graphics::TBitmap* __fastcall GetLeftBar(void);
	Graphics::TBitmap* __fastcall GetBottomBar(void);
	Graphics::TBitmap* __fastcall GetRightBar(void);
	Graphics::TBitmap* __fastcall GetTopPage(bool Active);
	Graphics::TBitmap* __fastcall GetLeftPage(bool Active);
	Graphics::TBitmap* __fastcall GetBottomPage(bool Active);
	Graphics::TBitmap* __fastcall GetRightPage(bool Active);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TsuiSkinTabRes(void) : TsuiSkinRes() { }
	#pragma option pop
	
};


#pragma option push -b-
enum TsuiSkinVAlignType { suiSkinTop, suiSkinCenter, suiSkinBottom };
#pragma option pop

typedef void __fastcall (__closure *TsuiSkinBitBtnPainter)(const Graphics::TBitmap* Buf, /* out */ Windows::TRect 
	&TextRect);

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE void __fastcall PaintRadioButtonLikeControl(bool Checked, bool Enabled, Graphics::TColor 
	Color, Classes::TAlignment Alignment, TsuiSkinVAlignType VAlignment, int Width, int ClientHeight, System::TObject* 
	Engine, System::TObject* SkinCtrl, bool CheckBox, int LeftOffset);
extern PACKAGE void __fastcall CalcBitBtnLayout(Buttons::TButtonLayout Layout, int NumGlyphs, int Spacing
	, int Margin, AnsiString Caption, const Graphics::TBitmap* Glyph, const Graphics::TBitmap* Buf, const 
	Graphics::TFont* Font, const Controls::TControl* Control, /* out */ Windows::TRect &TextRect, /* out */ 
	Windows::TPoint &GlyphPos);
extern PACKAGE void __fastcall PaintBitBtnLikeControl(bool Enabled, bool MouseDown, int NumGlyphs, const 
	Windows::TPoint &P, const Graphics::TBitmap* Glyph, const Graphics::TBitmap* Buf);
extern PACKAGE void __fastcall PaintButtonLikeControl(bool MouseDown, bool MouseIn, bool BitBtn, const 
	Controls::TControl* Control, const Graphics::TFont* Font, const System::TObject* Engine, const System::TObject* 
	SkinCtrl, TsuiSkinBitBtnPainter BitBtnPainter);
extern PACKAGE void __fastcall PaintComboButtonLikeControl(const Controls::TControl* Control, const 
	System::TObject* Engine, Graphics::TColor BtnFace);

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

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