advpreviewmenustylers.hpp

来自「TMS.AdvToolBar」· HPP 代码 · 共 129 行

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

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

#ifndef AdvPreviewMenuStylersHPP
#define AdvPreviewMenuStylersHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <AdvGlowButton.hpp>	// Pascal unit
#include <AdvStyleIF.hpp>	// Pascal unit
#include <AdvPreviewMenu.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 <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Advpreviewmenustylers
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TPreviewMenuStyle { psOffice2003Blue, psOffice2003Silver, psOffice2003Olive, psOffice2003Classic, psOffice2007Luna, psOffice2007Obsidian, psWindowsXP, psWhidbeyStyle, psCustom, psOfficeXP, psOffice2007Silver };
#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 TAdvPreviewMenuOfficeStyler;
class PASCALIMPLEMENTATION TAdvPreviewMenuOfficeStyler : public Advpreviewmenu::TAdvCustomPreviewMenuStyler 
{
	typedef Advpreviewmenu::TAdvCustomPreviewMenuStyler inherited;
	
private:
	TNotifierWindow* FNotifierWnd;
	TPreviewMenuStyle FStyle;
	void __fastcall SetStyle(const TPreviewMenuStyle Value);
	
protected:
	void __fastcall ThemeChanged(System::TObject* Sender);
	
public:
	__fastcall virtual TAdvPreviewMenuOfficeStyler(Classes::TComponent* AOwner);
	__fastcall virtual ~TAdvPreviewMenuOfficeStyler(void);
	virtual void __fastcall Loaded(void);
	void __fastcall SetComponentStyle(Advstyleif::TTMSStyle AStyle);
	
__published:
	__property FrameAppearance ;
	__property LeftFrameColor ;
	__property RightFrameColor ;
	__property MenuItemAppearance ;
	__property ButtonAppearance ;
	__property TPreviewMenuStyle Style = {read=FStyle, write=SetStyle, nodefault};
private:
	void *__ITMSStyle;	/* Advstyleif::ITMSStyle */
	
public:
	operator ITMSStyle*(void) { return (ITMSStyle*)&__ITMSStyle; }
	
};


class DELPHICLASS TAdvPreviewMenuFantasyStyler;
class PASCALIMPLEMENTATION TAdvPreviewMenuFantasyStyler : public Advpreviewmenu::TAdvCustomPreviewMenuStyler 
{
	typedef Advpreviewmenu::TAdvCustomPreviewMenuStyler inherited;
	
public:
	__fastcall virtual TAdvPreviewMenuFantasyStyler(Classes::TComponent* AOwner);
	
__published:
	__property FrameAppearance ;
	__property LeftFrameColor ;
	__property RightFrameColor ;
	__property MenuItemAppearance ;
	__property ButtonAppearance ;
public:
	#pragma option push -w-inl
	/* TAdvCustomPreviewMenuStyler.Destroy */ inline __fastcall virtual ~TAdvPreviewMenuFantasyStyler(void) { }
	#pragma option pop
	
};


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

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

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