advmenustylers.hpp

Delphi的Office 2007风格界面控件

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

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

#ifndef AdvMenuStylersHPP
#define AdvMenuStylersHPP

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

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

namespace Advmenustylers
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TOfficeStyle { osOffice2003Blue, osOffice2003Silver, osOffice2003Olive, osOfficeXP, osOffice2007Luna, osOffice2007Obsidian, osCustom, osOffice2007Silver };
#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 TAdvMenuOfficeStyler;
class PASCALIMPLEMENTATION TAdvMenuOfficeStyler : public Advmenus::TCustomAdvMenuStyler 
{
	typedef Advmenus::TCustomAdvMenuStyler inherited;
	
private:
	TNotifierWindow* FNotifierWnd;
	TOfficeStyle FStyle;
	bool FAutoThemeAdapt;
	void __fastcall SetStyle(const TOfficeStyle Value);
	
protected:
	void __fastcall ThemeChanged(System::TObject* Sender);
	
public:
	__fastcall virtual TAdvMenuOfficeStyler(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvMenuOfficeStyler(void);
	virtual void __fastcall Loaded(void);
	void __fastcall SetComponentStyle(Advstyleif::TTMSStyle AStyle);
	
__published:
	__property bool AutoThemeAdapt = {read=FAutoThemeAdapt, write=FAutoThemeAdapt, nodefault};
	__property TOfficeStyle Style = {read=FStyle, write=SetStyle, nodefault};
	__property Background ;
	__property IconBar ;
	__property SelectedItem ;
	__property RootItem ;
	__property Glyphs ;
	__property SideBar ;
	__property Separator ;
	__property Font ;
	__property UseSystemFont  = {default=1};
	__property MenuBorderColor  = {default=8158356};
private:
	void *__ITMSStyle;	/* Advstyleif::ITMSStyle */
	
public:
	operator ITMSStyle*(void) { return (ITMSStyle*)&__ITMSStyle; }
	
};


#pragma option push -b-
enum TFantasyStyle { fsArctic, fsAquaBlue, fsChocolate, fsMacOS, fsSilverFox, fsSoftSand, fsTerminalGreen, fsTextured, fsWindowsClassic, fsWhidbey, fsCustom };
#pragma option pop

class DELPHICLASS TAdvMenuFantasyStyler;
class PASCALIMPLEMENTATION TAdvMenuFantasyStyler : public Advmenus::TCustomAdvMenuStyler 
{
	typedef Advmenus::TCustomAdvMenuStyler inherited;
	
private:
	TFantasyStyle FStyle;
	void __fastcall SetStyle(const TFantasyStyle Value);
	
public:
	__fastcall virtual TAdvMenuFantasyStyler(Classes::TComponent* AOwner);
	
__published:
	__property TFantasyStyle Style = {read=FStyle, write=SetStyle, nodefault};
	__property Background ;
	__property IconBar ;
	__property SelectedItem ;
	__property RootItem ;
	__property Glyphs ;
	__property SideBar ;
	__property Separator ;
	__property Font ;
	__property UseSystemFont  = {default=1};
	__property MenuBorderColor  = {default=8158356};
public:
	#pragma option push -w-inl
	/* TCustomAdvMenuStyler.Destroy */ inline __fastcall virtual ~TAdvMenuFantasyStyler(void) { }
	#pragma option pop
	
};


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

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

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