advmenus.hpp

Delphi的Office 2007风格界面控件

	Graphics::TColor FHoverTextColor;
	Graphics::TColor FHoverBorderColor;
	Graphics::TColor FSelectedColor;
	Graphics::TColor FSelectedColorTo;
	Graphics::TColor FSelectedColorMirror;
	Graphics::TColor FSelectedColorMirrorTo;
	Graphics::TColor FHoverColor;
	Graphics::TColor FHoverColorTo;
	Graphics::TColor FHoverColorMirror;
	Graphics::TColor FHoverColorMirrorTo;
	TGradientDirection FHoverGradientDirection;
	TGradientDirection FSelectedGradientDirection;
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetUseSystemFont(const bool Value);
	Graphics::TColor __fastcall GetSelectedColor(const int Index);
	void __fastcall SetSelectedColor(const int Index, const Graphics::TColor Value);
	Graphics::TColor __fastcall GetHoverColor(const int Index);
	void __fastcall SetHoverColor(const int Index, const Graphics::TColor Value);
	
public:
	__fastcall TRootItem(Menus::TMenu* AMenu);
	__fastcall virtual ~TRootItem(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Color  = {index=0, default=15062999};
	__property ColorTo  = {index=1, default=16249586};
	__property GradientDirection  = {default=1};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property bool UseSystemFont = {read=FUseSystemFont, write=SetUseSystemFont, default=1};
	__property Graphics::TColor SelectedColor = {read=GetSelectedColor, write=SetSelectedColor, index=0, default=15919336};
	__property Graphics::TColor SelectedColorTo = {read=GetSelectedColor, write=SetSelectedColor, index=1, default=13482169};
	__property Graphics::TColor SelectedColorMirror = {read=GetSelectedColor, write=SetSelectedColor, index=2, default=536870911};
	__property Graphics::TColor SelectedColorMirrorTo = {read=GetSelectedColor, write=SetSelectedColor, index=3, default=536870911};
	__property TGradientDirection SelectedGradientDirection = {read=FSelectedGradientDirection, write=FSelectedGradientDirection, default=0};
	__property Graphics::TColor SelectedBorderColor = {read=FSelectedBorderColor, write=FSelectedBorderColor, default=9731196};
	__property Graphics::TColor SelectedTextColor = {read=FSelectedTextColor, write=FSelectedTextColor, default=-2147483640};
	__property Graphics::TColor HoverColor = {read=GetHoverColor, write=SetHoverColor, index=0, default=13629183};
	__property Graphics::TColor HoverColorTo = {read=GetHoverColor, write=SetHoverColor, index=1, default=10344703};
	__property Graphics::TColor HoverColorMirror = {read=GetHoverColor, write=SetHoverColor, index=2, default=536870911};
	__property Graphics::TColor HoverColorMirrorTo = {read=GetHoverColor, write=SetHoverColor, index=3, default=536870911};
	__property TGradientDirection HoverGradientDirection = {read=FHoverGradientDirection, write=FHoverGradientDirection, default=0};
	__property Graphics::TColor HoverBorderColor = {read=FHoverBorderColor, write=FHoverBorderColor, default=7293771};
	__property Graphics::TColor HoverTextColor = {read=FHoverTextColor, write=FHoverTextColor, default=-2147483640};
};


class DELPHICLASS TSelectedItem;
class PASCALIMPLEMENTATION TSelectedItem : public TGradientBar 
{
	typedef TGradientBar inherited;
	
private:
	Graphics::TColor FRadioBorder;
	Graphics::TColor FCheckBorder;
	Graphics::TColor FRadioColor;
	Graphics::TColor FRadioColorTo;
	Graphics::TColor FCheckColor;
	Graphics::TColor FCheckColorTo;
	TGradientDirection FCheckGradientDirection;
	TGradientDirection FRadioGradientDirection;
	Graphics::TColor FBorderColor;
	Graphics::TFont* FFont;
	bool FUseSystemFont;
	Graphics::TColor FColorMirror;
	Graphics::TColor FColorMirrorTo;
	Graphics::TColor __fastcall GetCheckColor(const int Index);
	void __fastcall SetCheckColor(const int Index, const Graphics::TColor Value);
	Graphics::TColor __fastcall GetRadioColor(const int Index);
	void __fastcall SetRadioColor(const int Index, const Graphics::TColor Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetUseSystemFont(const bool Value);
	
public:
	__fastcall TSelectedItem(Menus::TMenu* AMenu);
	__fastcall virtual ~TSelectedItem(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Color  = {index=0, default=12775167};
	__property ColorTo  = {index=1, default=536870911};
	__property Graphics::TColor ColorMirror = {read=FColorMirror, write=FColorMirror, default=536870911};
	__property Graphics::TColor ColorMirrorTo = {read=FColorMirrorTo, write=FColorMirrorTo, default=536870911};
	__property GradientDirection  = {default=0};
	__property Graphics::TColor BorderColor = {read=FBorderColor, write=FBorderColor, default=7293771};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property bool UseSystemFont = {read=FUseSystemFont, write=SetUseSystemFont, default=1};
	__property Graphics::TColor CheckColor = {read=GetCheckColor, write=SetCheckColor, index=0, default=4096254};
	__property Graphics::TColor CheckColorTo = {read=GetCheckColor, write=SetCheckColor, index=1, default=536870911};
	__property Graphics::TColor CheckBorder = {read=FCheckBorder, write=FCheckBorder, default=7293771};
	__property TGradientDirection CheckGradientDirection = {read=FCheckGradientDirection, write=FCheckGradientDirection, default=0};
	__property Graphics::TColor RadioColor = {read=GetRadioColor, write=SetRadioColor, index=0, default=4096254};
	__property Graphics::TColor RadioColorTo = {read=GetRadioColor, write=SetRadioColor, index=1, default=536870911};
	__property Graphics::TColor RadioBorder = {read=FRadioBorder, write=FRadioBorder, default=7293771};
	__property TGradientDirection RadioGradientDirection = {read=FRadioGradientDirection, write=FRadioGradientDirection, default=0};
};


class DELPHICLASS TSideBar;
class DELPHICLASS TBarCaption;
class PASCALIMPLEMENTATION TBarCaption : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FCaption;
	Graphics::TFont* FFont;
	int FOffsetY;
	TDirection FDirection;
	Graphics::TColor FShadowColor;
	Graphics::TColor FHighlightColor;
	int FDepth;
	Classes::TAlignment FAlignment;
	Menus::TMenu* FMenu;
	
protected:
	void __fastcall SetFont(Graphics::TFont* Value);
	__property int OffsetY = {read=FOffsetY, write=FOffsetY, default=6};
	
public:
	__fastcall TBarCaption(Menus::TMenu* AMenu);
	__fastcall virtual ~TBarCaption(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property Graphics::TColor HighlightColor = {read=FHighlightColor, write=FHighlightColor, default=536870911};
	__property Menus::TMenu* Menu = {read=FMenu};
	
__published:
	__property Classes::TAlignment Alignment = {read=FAlignment, write=FAlignment, default=0};
	__property AnsiString Caption = {read=FCaption, write=FCaption};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property Graphics::TColor ShadowColor = {read=FShadowColor, write=FShadowColor, default=536870911};
	__property int Depth = {read=FDepth, write=FDepth, default=1};
	__property TDirection Direction = {read=FDirection, write=FDirection, default=0};
};


class PASCALIMPLEMENTATION TSideBar : public TBarCaption 
{
	typedef TBarCaption inherited;
	
private:
	bool FVisible;
	TBackground* FBackground;
	TBackground* FImage;
	int FSplitterWidth;
	TSideBarPosition FPosition;
	int FSize;
	int FSplitterMargin;
	int FSplitterGradientWidth;
	TGradientType FSplitterGradientType;
	Graphics::TColor FBorderColor;
	Graphics::TColor FSplitterColor;
	Graphics::TColor FSplitterColorTo;
	TSideBarVisibleIn FVisibleIn;
	int FPopupHeight;
	Menus::TMenu* FMenu;
	TBackground* __fastcall GetImage(void);
	TBackground* __fastcall GetBackground(void);
	void __fastcall SetImage(const TBackground* Value);
	void __fastcall SetBackground(const TBackground* Value);
	void __fastcall SetVisible(bool Value);
	bool __fastcall GetVisible(void);
	
protected:
	__property int PopupHeight = {read=FPopupHeight, write=FPopupHeight, nodefault};
	__property TSideBarPosition Position = {read=FPosition, write=FPosition, default=0};
	
public:
	__fastcall TSideBar(Menus::TMenu* AMenu);
	__fastcall virtual ~TSideBar(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property Menus::TMenu* Menu = {read=FMenu};
	
__published:
	__property bool Visible = {read=GetVisible, write=SetVisible, default=0};
	__property TSideBarVisibleIn VisibleIn = {read=FVisibleIn, write=FVisibleIn, default=0};
	__property TBackground* Image = {read=GetImage, write=SetImage};
	__property TBackground* Background = {read=GetBackground, write=SetBackground};
	__property int Size = {read=FSize, write=FSize, default=24};
	__property Graphics::TColor SplitterColor = {read=FSplitterColor, write=FSplitterColor, default=8421504};
	__property Graphics::TColor SplitterColorTo = {read=FSplitterColorTo, write=FSplitterColorTo, default=536870911};
	__property int SplitterWidth = {read=FSplitterWidth, write=FSplitterWidth, default=1};
	__property int SplitterMargin = {read=FSplitterMargin, write=FSplitterMargin, default=0};
	__property int SplitterGradientWidth = {read=FSplitterGradientWidth, write=FSplitterGradientWidth, default=0};
	__property TGradientType SplitterGradientType = {read=FSplitterGradientType, write=FSplitterGradientType, default=2};
	__property Graphics::TColor BorderColor = {read=FBorderColor, write=FBorderColor, default=10591645};
};


class PASCALIMPLEMENTATION TCustomAdvMenuStyler : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	bool FUseSystemFont;
	TSeparator* FSeparator;
	TBackground* FBackground;
	Graphics::TFont* FFont;
	TIconBar* FIconBar;
	TMenuGlyphs* FGlyphs;
	TRootItem* FRootItem;
	TSelectedItem* FSelectedItem;
	TSideBar* FSideBar;
	Graphics::TColor FMenuBorderColor;
	bool FMenuBarUpdating;
	Menus::TMenu* FMenu;
	Graphics::TBitmap* FBackgroundBitmap;
	void __fastcall SetBackground(const TBackground* Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetGlyphs(const TMenuGlyphs* Value);
	void __fastcall SetIconBar(const TIconBar* Value);
	void __fastcall SetRootItem(const TRootItem* Value);
	void __fastcall SetSelectedItem(const TSelectedItem* Value);
	void __fastcall SetSeparator(const TSeparator* Value);
	void __fastcall SetSideBar(const TSideBar* Value);
	void __fastcall SetUseSystemFont(const bool Value);
	void __fastcall SetMenu(const Menus::TMenu* Value);
	
protected:
	__property bool MenuBarUpdating = {read=FMenuBarUpdating, write=FMenuBarUpdating, default=0};
	
public:
	__fastcall virtual TCustomAdvMenuStyler(Classes::TComponent* AOwner);
	__fastcall virtual ~TCustomAdvMenuStyler(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property Menus::TMenu* Menu = {read=FMenu, write=SetMenu};
	__property TBackground* Background = {read=FBackground, write=SetBackground};
	__property TIconBar* IconBar = {read=FIconBar, write=SetIconBar};
	__property TSelectedItem* SelectedItem = {read=FSelectedItem, write=SetSelectedItem};
	__property TRootItem* RootItem = {read=FRootItem, write=SetRootItem};
	__property TMenuGlyphs* Glyphs = {read=FGlyphs, write=SetGlyphs};
	__property TSideBar* SideBar = {read=FSideBar, write=SetSideBar};
	__property TSeparator* Separator = {read=FSeparator, write=SetSeparator};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property bool UseSystemFont = {read=FUseSystemFont, write=SetUseSystemFont, default=1};
	__property Graphics::TColor MenuBorderColor = {read=FMenuBorderColor, write=FMenuBorderColor, default=8158356};
};


class DELPHICLASS TAdvMenuStyler;
class PASCALIMPLEMENTATION TAdvMenuStyler : public TCustomAdvMenuStyler 
{
	typedef TCustomAdvMenuStyler inherited;
	
__published:
	__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.Create */ inline __fastcall virtual TAdvMenuStyler(Classes::TComponent* AOwner) : TCustomAdvMenuStyler(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomAdvMenuStyler.Destroy */ inline __fastcall virtual ~TAdvMenuStyler(void) { }
	#pragma option pop
	
};


class DELPHICLASS TAdvMainMenu;
class PASCALIMPLEMENTATION TAdvMainMenu : public Menus::TMainMenu 
{
	typedef Menus::TMainMenu inherited;
	
private:
	TCustomAdvMenuStyler* FMenuStyler;
	TCustomAdvMenuStyler* FInternalMenuStyler;