advtoolbarstylers.hpp

Delphi的Office 2007风格界面控件

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'AdvToolBarStylers.pas' rev: 6.00

#ifndef AdvToolBarStylersHPP
#define AdvToolBarStylersHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <AdvMenus.hpp>	// Pascal unit
#include <AdvStyleIF.hpp>	// Pascal unit
#include <AdvGlowButton.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <AdvToolBar.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Advtoolbarstylers
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TToolBarFantasyStyle { bsArctic, bsAquaBlue, bsChocolate, bsMacOS, bsSilverFox, bsSoftSand, bsTerminalGreen, bsTextured, bsWindowsClassic, bsUser, bsWhidbey };
#pragma option pop

#pragma option push -b-
enum TToolBarStyle { bsOffice2003Blue, bsOffice2003Silver, bsOffice2003Olive, bsOffice2003Classic, bsOffice2007Luna, bsOffice2007Obsidian, bsWindowsXP, bsWhidbeyStyle, bsCustom, bsOfficeXP, bsOffice2007Silver };
#pragma option pop

class DELPHICLASS TNotifierWindow;
class PASCALIMPLEMENTATION TNotifierWindow : public Controls::TWinControl 
{
	typedef Controls::TWinControl inherited;
	
private:
	Classes::TNotifyEvent FOnThemeChange;
	
protected:
	virtual void __fastcall WndProc(Messages::TMessage &Msg);
	
__published:
	__property Classes::TNotifyEvent OnThemeChange = {read=FOnThemeChange, write=FOnThemeChange};
public:
	#pragma option push -w-inl
	/* TWinControl.Create */ inline __fastcall virtual TNotifierWindow(Classes::TComponent* AOwner) : Controls::TWinControl(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TNotifierWindow(HWND ParentWindow) : Controls::TWinControl(ParentWindow) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TWinControl.Destroy */ inline __fastcall virtual ~TNotifierWindow(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvToolBarOfficeStyler;
class PASCALIMPLEMENTATION TAdvToolBarOfficeStyler : public Advtoolbar::TCustomAdvToolBarStyler 
{
	typedef Advtoolbar::TCustomAdvToolBarStyler inherited;
	
private:
	TNotifierWindow* FNotifierWnd;
	TToolBarStyle FToolBarStyle;
	
protected:
	void __fastcall SetToolBarStyle(const TToolBarStyle Value);
	void __fastcall ThemeChanged(System::TObject* Sender);
	
public:
	__fastcall virtual TAdvToolBarOfficeStyler(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvToolBarOfficeStyler(void);
	virtual void __fastcall Loaded(void);
	void __fastcall SaveToFile(AnsiString FileName);
	void __fastcall LoadFromFile(AnsiString FileName);
	void __fastcall SetComponentStyle(Advstyleif::TTMSStyle AStyle);
	
__published:
	__property TToolBarStyle Style = {read=FToolBarStyle, write=SetToolBarStyle, default=0};
	__property AdvMenuStyler ;
	__property AutoThemeAdapt  = {default=0};
	__property BackGround ;
	__property BackGroundTransparent  = {default=1};
	__property BackGroundDisplay  = {default=0};
	__property BorderColor  = {default=536870911};
	__property BorderColorHot  = {default=536870911};
	__property ButtonAppearance ;
	__property CaptionAppearance ;
	__property CaptionFont ;
	__property ContainerAppearance ;
	__property Color ;
	__property ColorHot ;
	__property CompactGlowButtonAppearance ;
	__property DockColor ;
	__property DragGripStyle  = {default=0};
	__property DragGripImage ;
	__property FloatingWindowBorderColor ;
	__property FloatingWindowBorderWidth  = {default=2};
	__property Font ;
	__property GlowButtonAppearance ;
	__property GroupAppearance ;
	__property PageAppearance ;
	__property PagerCaption ;
	__property RightHandleImage ;
	__property RightHandleColor  = {default=8421504};
	__property RightHandleColorTo  = {default=8421504};
	__property RightHandleColorHot ;
	__property RightHandleColorHotTo ;
	__property RightHandleColorDown ;
	__property RightHandleColorDownTo ;
	__property TabAppearance ;
private:
	void *__ITMSStyle;	/* Advstyleif::ITMSStyle */
	
public:
	operator ITMSStyle*(void) { return (ITMSStyle*)&__ITMSStyle; }
	
};


class DELPHICLASS TAdvToolBarFantasyStyler;
class PASCALIMPLEMENTATION TAdvToolBarFantasyStyler : public Advtoolbar::TCustomAdvToolBarStyler 
{
	typedef Advtoolbar::TCustomAdvToolBarStyler inherited;
	
private:
	TToolBarFantasyStyle FToolBarStyle;
	
protected:
	void __fastcall SetToolBarStyle(const TToolBarFantasyStyle Value);
	
public:
	__fastcall virtual TAdvToolBarFantasyStyler(Classes::TComponent* AOwner);
	void __fastcall SaveToFile(AnsiString FileName);
	void __fastcall LoadFromFile(AnsiString FileName);
	
__published:
	__property TToolBarFantasyStyle Style = {read=FToolBarStyle, write=SetToolBarStyle, default=2};
	__property AdvMenuStyler ;
	__property BackGround ;
	__property BackGroundTransparent  = {default=1};
	__property BackGroundDisplay  = {default=0};
	__property BorderColor  = {default=536870911};
	__property BorderColorHot  = {default=536870911};
	__property ButtonAppearance ;
	__property CaptionAppearance ;
	__property CaptionFont ;
	__property ContainerAppearance ;
	__property Color ;
	__property ColorHot ;
	__property CompactGlowButtonAppearance ;
	__property DockColor ;
	__property DragGripStyle  = {default=0};
	__property DragGripImage ;
	__property FloatingWindowBorderColor ;
	__property FloatingWindowBorderWidth  = {default=2};
	__property Font ;
	__property GlowButtonAppearance ;
	__property GroupAppearance ;
	__property PageAppearance ;
	__property PagerCaption ;
	__property RightHandleImage ;
	__property RightHandleColor  = {default=8421504};
	__property RightHandleColorTo  = {default=8421504};
	__property RightHandleColorHot ;
	__property RightHandleColorHotTo ;
	__property RightHandleColorDown ;
	__property RightHandleColorDownTo ;
	__property TabAppearance ;
public:
	#pragma option push -w-inl
	/* TCustomAdvToolBarStyler.Destroy */ inline __fastcall virtual ~TAdvToolBarFantasyStyler(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Advtoolbarstylers */
using namespace Advtoolbarstylers;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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