winskindata.hpp

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

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

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

#ifndef WinSkinDataHPP
#define WinSkinDataHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <TypInfo.hpp>	// Pascal unit
#include <ImgList.hpp>	// Pascal unit
#include <WinSkinIni.hpp>	// Pascal unit
#include <ImgUtil.hpp>	// Pascal unit
#include <WinSkinStore.hpp>	// Pascal unit
#include <SkinRead.hpp>	// Pascal unit
#include <FileCtrl.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <IniFiles.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Winskindata
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TWinContainer { xccForm, xccFrame, xccToolbar, xccCoolbar, xccControlbar, xccPanel, xccScrollBox, 
	xccGroupBox, xccTabSheet, xccPageScroller };
#pragma option pop

typedef Set<TWinContainer, xccForm, xccPageScroller>  TWinContainers;

#pragma option push -b-
enum TSkinOption { xoMDIScrollbar, xoMenuMerge, xoTransparent, xoPreview, xoParentBackGround, xoNoFocusRect, 
	xoToolbarBK, xoMDIChildBorder, xoMenuBG, xoFormScrollbar };
#pragma option pop

typedef Set<TSkinOption, xoMDIScrollbar, xoFormScrollbar>  TSkinOptions;

#pragma option push -b-
enum TSkinControlType { xcMainMenu, xcPopupMenu, xcMenuItem, xcToolbar, xcControlbar, xcCombo, xcCheckBox, 
	xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcSpin, xcPanel, 
	xcGroupBox, xcStatusBar, xcTab, xcTrackBar, xcSystemMenu, xcFastReport };
#pragma option pop

typedef Set<TSkinControlType, xcMainMenu, xcFastReport>  TSkinControlTypes;

#pragma option push -b-
enum TShemeColor { csText, csTitleTextActive, csTitleTextNoActive, csButtonFace, csButtonText, csButtonHilight, 
	csButtonlight, csButtonShadow, csButtonDkshadow, csSelectText, csSelectBg, csHilightText, csHilight, 
	csMenuBar, csMenuBarText, csMenuText, csMenubg, csCaption, csScrollbar, csTextDisable };
#pragma option pop

typedef Graphics::TColor TShemeColors[20];

#pragma option push -b-
enum TSkinFormType { sfMainform, sfOnlyThisForm, sfDialog, sfDLL };
#pragma option pop

typedef void __fastcall (__closure *TOnFormSkin)(System::TObject* Sender, AnsiString aName, bool &DoSkin
	);

typedef void __fastcall (__closure *TOnSkinForm)(System::TObject* Sender, HWND ahwnd, AnsiString aName
	);

class DELPHICLASS TSkinData;
typedef void __fastcall (__closure *TOnSkinControl)(Classes::TComponent* Sender, TSkinData* SkinData
	, Controls::TControl* Form, Controls::TControl* Control, AnsiString ControlClass, Classes::TComponent* 
	&SkinnedControl);

typedef BOOL __stdcall (*TGetScrollBarInfo)(HWND hwnd, int idObject, tagSCROLLBARINFO &psbi);

typedef BOOL __stdcall (*FTrackMouseEvent)(tagTRACKMOUSEEVENT &EventTrack);

typedef BOOL __stdcall (*TGetComboBoxInfo)(HWND hwndCombo, tagCOMBOBOXINFO &pcbi);

typedef void __stdcall (*TDisableProcessWindowsGhosting)(void);

class DELPHICLASS TDataSkinObject;
class PASCALIMPLEMENTATION TDataSkinObject : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	Windows::TRect r;
	Graphics::TBitmap* Map;
	int trans;
	int Tile;
	AnsiString IDName;
	int frame;
	int style;
	int Normalcolor;
	int Overcolor;
	int Downcolor;
	Graphics::TColor Normalcolor2;
	Graphics::TColor Overcolor2;
	Graphics::TColor Downcolor2;
	__fastcall TDataSkinObject(AnsiString AIDName);
	__fastcall virtual ~TDataSkinObject(void);
};


class DELPHICLASS TDataSkinBorder;
class PASCALIMPLEMENTATION TDataSkinBorder : public TDataSkinObject 
{
	typedef TDataSkinObject inherited;
	
public:
	Graphics::TBitmap* MaskMap;
	__fastcall TDataSkinBorder(AnsiString AIDName);
	__fastcall virtual ~TDataSkinBorder(void);
};


class DELPHICLASS TDataSkinTitle;
class PASCALIMPLEMENTATION TDataSkinTitle : public TDataSkinObject 
{
	typedef TDataSkinObject inherited;
	
public:
	int Aligment;
	int BackGround;
	int FontHeight;
	int backleft;
	int backright;
	Graphics::TColor activetext;
	Graphics::TColor inactivetext;
public:
	#pragma option push -w-inl
	/* TDataSkinObject.Create */ inline __fastcall TDataSkinTitle(AnsiString AIDName) : TDataSkinObject(
		AIDName) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDataSkinObject.Destroy */ inline __fastcall virtual ~TDataSkinTitle(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDataSkinButton;
class PASCALIMPLEMENTATION TDataSkinButton : public TDataSkinObject 
{
	typedef TDataSkinObject inherited;
	
public:
	Graphics::TBitmap* CheckMap;
	Graphics::TBitmap* RadioMap;
	int radioframe;
	int checkframe;
	bool newnormal;
	bool newover;
	bool newdown;
	__fastcall TDataSkinButton(AnsiString AIDName);
	__fastcall virtual ~TDataSkinButton(void);
};


class DELPHICLASS TDataSkinSysButton;
class PASCALIMPLEMENTATION TDataSkinSysButton : public TDataSkinObject 
{
	typedef TDataSkinObject inherited;
	
public:
	int Action;
	int Align;
	int XCoord;
	int YCoord;
	int CombineOp;
	int Visibility;
	int Visibility1;
public:
	#pragma option push -w-inl
	/* TDataSkinObject.Create */ inline __fastcall TDataSkinSysButton(AnsiString AIDName) : TDataSkinObject(
		AIDName) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDataSkinObject.Destroy */ inline __fastcall virtual ~TDataSkinSysButton(void) { }
	#pragma option pop
	
};


class DELPHICLASS TDataSkinBoxLabel;
class PASCALIMPLEMENTATION TDataSkinBoxLabel : public TDataSkinObject 
{
	typedef TDataSkinObject inherited;
	
public:
	int LeftShift;
	int RightShift;
	int Alignment;
public:
	#pragma option push -w-inl
	/* TDataSkinObject.Create */ inline __fastcall TDataSkinBoxLabel(AnsiString AIDName) : TDataSkinObject(
		AIDName) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TDataSkinObject.Destroy */ inline __fastcall virtual ~TDataSkinBoxLabel(void) { }
	#pragma option pop
	
};


class DELPHICLASS TSkinControlList;
class PASCALIMPLEMENTATION TSkinControlList : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TStrings* Fedit;
	Classes::TStrings* fCheckbox;
	Classes::TStrings* fRadiobutton;
	Classes::TStrings* fcombobox;
	void __fastcall SetEdit(Classes::TStrings* Value);
	void __fastcall SetCheckbox(Classes::TStrings* Value);
	void __fastcall SetRadiobutton(Classes::TStrings* Value);
	void __fastcall Setcombobox(Classes::TStrings* Value);
	
public: