advtoolbar.hpp

TMSPack基本上涵盖了Delphi所有的基础控件

private:
	Graphics::TColor FFullSizeColorTo;
	Graphics::TColor FFullSizeColor;
	Graphics::TColor FFullSizeBorderColor;
	int FSteps;
	Graphics::TColor FColor;
	Graphics::TColor FColorTo;
	Graphics::TColor FBorderColor;
	Classes::TNotifyEvent FOnChange;
	void __fastcall SetFullSizeColor(const Graphics::TColor Value);
	void __fastcall SetFullSizeColorTo(const Graphics::TColor Value);
	void __fastcall SetFullSizeBorderColor(const Graphics::TColor Value);
	void __fastcall SetBorderColor(const Graphics::TColor Value);
	void __fastcall SetColor(const Graphics::TColor Value);
	void __fastcall SetColorTo(const Graphics::TColor Value);
	void __fastcall SetSteps(const int Value);
	
protected:
	void __fastcall Changed(void);
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
	
public:
	__fastcall TQATAppearance(void);
	__fastcall virtual ~TQATAppearance(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TColor BorderColor = {read=FBorderColor, write=SetBorderColor, nodefault};
	__property Graphics::TColor Color = {read=FColor, write=SetColor, nodefault};
	__property Graphics::TColor ColorTo = {read=FColorTo, write=SetColorTo, nodefault};
	__property Graphics::TColor FullSizeBorderColor = {read=FFullSizeBorderColor, write=SetFullSizeBorderColor, nodefault};
	__property Graphics::TColor FullSizeColor = {read=FFullSizeColor, write=SetFullSizeColor, nodefault};
	__property Graphics::TColor FullSizeColorTo = {read=FFullSizeColorTo, write=SetFullSizeColorTo, nodefault};
	__property int Steps = {read=FSteps, write=SetSteps, default=64};
};


class PASCALIMPLEMENTATION TCustomAdvToolBarStyler : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	bool FBackGroundTransparent;
	TBackGroundDisplay FBackGroundDisplay;
	Graphics::TBitmap* FBackGround;
	TVistaGradientBackground* FColor;
	TGradientBackground* FDockColor;
	Advmenus::TCustomAdvMenuStyler* FInternalAdvMenuStyler;
	Advmenus::TCustomAdvMenuStyler* FAdvMenuStyler;
	Advmenus::TCustomAdvMenuStyler* FCurrentAdvMenuStyler;
	TDragGripStyle FDragGripStyle;
	Graphics::TBitmap* FDragGripImage;
	Graphics::TBitmap* FRightHandleImage;
	Graphics::TFont* FFont;
	bool FTransparent;
	TDbgList* FControlList;
	bool FRoundEdges;
	Graphics::TColor FRightHandleColor;
	Graphics::TColor FRightHandleColorHot;
	Graphics::TColor FRightHandleColorTo;
	Graphics::TColor FRightHandleColorHotTo;
	int FFloatingWindowBorderWidth;
	Graphics::TColor FFloatingWindowBorderColor;
	TButtonAppearance* FButtonAppearance;
	bool FAutoThemeAdapt;
	Graphics::TColor FRightHandleColorDownTo;
	Graphics::TColor FRightHandleColorDown;
	Controls::TBevelCut FBevel;
	bool FUseBevel;
	Graphics::TColor FBorderColorHot;
	Graphics::TColor FBorderColor;
	TVistaGradientBackground* FColorHot;
	Graphics::TFont* FCaptionFont;
	Advstyleif::TTMSStyle FTMSStyle;
	TContainerAppearance* FContainerAppearance;
	Advglowbutton::TGlowButtonAppearance* FGlowButtonAppearance;
	TVistaTextBackground* FPagerCaption;
	TTabAppearance* FTabAppearance;
	TVistaPageBackground* FPageAppearance;
	TCaptionAppearance* FCaptionAppearance;
	TGroupAppearance* FGroupAppearance;
	Advglowbutton::TGlowButtonAppearance* FCompactGlowButtonAppearance;
	TQATAppearance* FQATAppearance;
	bool FSystemFont;
	bool FQatSharpCurve;
	void __fastcall OnPagerCaptionChanged(System::TObject* Sender);
	void __fastcall OnTabAppearanceChanged(System::TObject* Sender);
	void __fastcall OnPageAppearanceChanged(System::TObject* Sender);
	void __fastcall OnGroupAppearanceChanged(System::TObject* Sender);
	void __fastcall OnContainerAppearanceChanged(System::TObject* Sender);
	void __fastcall OnGlowButtonAppearanceChanged(System::TObject* Sender);
	void __fastcall OnCaptionAppearanceChanged(System::TObject* Sender);
	void __fastcall OnQATAppearanceChanged(System::TObject* Sender);
	void __fastcall SetBackGround(const Graphics::TBitmap* Value);
	void __fastcall SetBackGroundDisplay(const TBackGroundDisplay Value);
	void __fastcall SetBackGroundTransparent(const bool Value);
	void __fastcall SetColor(const TVistaGradientBackground* Value);
	void __fastcall SetAdvMenuStyler(const Advmenus::TCustomAdvMenuStyler* Value);
	void __fastcall SetDragGripStyle(const TDragGripStyle Value);
	void __fastcall SetDragGripImage(const Graphics::TBitmap* Value);
	void __fastcall SetRightHandleImage(const Graphics::TBitmap* Value);
	void __fastcall SetFont(const Graphics::TFont* Value);
	void __fastcall SetTransparent(const bool Value);
	void __fastcall SetRoundEdges(const bool Value);
	void __fastcall SetRightHandleColor(const Graphics::TColor Value);
	void __fastcall SetRightHandleColorHot(const Graphics::TColor Value);
	void __fastcall SetFloatingWindowBorderColor(const Graphics::TColor Value);
	void __fastcall SetFloatingWindowBorderWidth(const int Value);
	void __fastcall SetTButtonAppearance(const TButtonAppearance* Value);
	void __fastcall SetDockColor(const TGradientBackground* Value);
	void __fastcall SetRightHandleColorTo(const Graphics::TColor Value);
	void __fastcall SetRightHandleColorHotTo(const Graphics::TColor Value);
	void __fastcall SetRightHandleColorDown(const Graphics::TColor Value);
	void __fastcall SetRightHandleColorDownTo(const Graphics::TColor Value);
	void __fastcall SetBevel(const Controls::TBevelCut Value);
	void __fastcall SetUseBevel(const bool Value);
	void __fastcall SetBorderColor(const Graphics::TColor Value);
	void __fastcall SetBorderColorHot(const Graphics::TColor Value);
	void __fastcall SetColorHot(const TVistaGradientBackground* Value);
	void __fastcall SetCaptionFont(const Graphics::TFont* Value);
	void __fastcall SetContainerAppearance(const TContainerAppearance* Value);
	void __fastcall SetGlowButtonAppearance(const Advglowbutton::TGlowButtonAppearance* Value);
	void __fastcall SetPagerCaption(const TVistaTextBackground* Value);
	void __fastcall SetTabAppearance(const TTabAppearance* Value);
	void __fastcall SetPageAppearance(const TVistaPageBackground* Value);
	void __fastcall SetGroupAppearance(const TGroupAppearance* Value);
	void __fastcall SetCaptionAppearance(const TCaptionAppearance* Value);
	void __fastcall SetCompactGlowButtonAppearance(const Advglowbutton::TGlowButtonAppearance* Value);
	void __fastcall SetQATAppearance(const TQATAppearance* Value);
	void __fastcall SetSystemFont(const bool Value);
	
protected:
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	void __fastcall BackgroundChanged(System::TObject* Sender);
	__property Advmenus::TCustomAdvMenuStyler* CurrentAdvMenuStyler = {read=FCurrentAdvMenuStyler};
	__property bool AutoThemeAdapt = {read=FAutoThemeAdapt, write=FAutoThemeAdapt, default=0};
	__property TButtonAppearance* ButtonAppearance = {read=FButtonAppearance, write=SetTButtonAppearance};
	__property TVistaGradientBackground* Color = {read=FColor, write=SetColor};
	__property TGradientBackground* DockColor = {read=FDockColor, write=SetDockColor};
	__property Graphics::TBitmap* BackGround = {read=FBackGround, write=SetBackGround};
	__property bool BackGroundTransparent = {read=FBackGroundTransparent, write=SetBackGroundTransparent, default=1};
	__property TBackGroundDisplay BackGroundDisplay = {read=FBackGroundDisplay, write=SetBackGroundDisplay, default=0};
	__property Graphics::TFont* Font = {read=FFont, write=SetFont};
	__property bool QATSharpCurve = {read=FQatSharpCurve, write=FQatSharpCurve, nodefault};
	__property TDragGripStyle DragGripStyle = {read=FDragGripStyle, write=SetDragGripStyle, default=0};
	__property Graphics::TBitmap* DragGripImage = {read=FDragGripImage, write=SetDragGripImage};
	__property Graphics::TBitmap* RightHandleImage = {read=FRightHandleImage, write=SetRightHandleImage};
	__property Graphics::TColor RightHandleColor = {read=FRightHandleColor, write=SetRightHandleColor, default=8421504};
	__property Graphics::TColor RightHandleColorHot = {read=FRightHandleColorHot, write=SetRightHandleColorHot, nodefault};
	__property Graphics::TColor RightHandleColorTo = {read=FRightHandleColorTo, write=SetRightHandleColorTo, default=8421504};
	__property Graphics::TColor RightHandleColorHotTo = {read=FRightHandleColorHotTo, write=SetRightHandleColorHotTo, nodefault};
	__property Graphics::TColor RightHandleColorDown = {read=FRightHandleColorDown, write=SetRightHandleColorDown, nodefault};
	__property Graphics::TColor RightHandleColorDownTo = {read=FRightHandleColorDownTo, write=SetRightHandleColorDownTo, nodefault};
	__property Graphics::TColor FloatingWindowBorderColor = {read=FFloatingWindowBorderColor, write=SetFloatingWindowBorderColor, nodefault};
	__property int FloatingWindowBorderWidth = {read=FFloatingWindowBorderWidth, write=SetFloatingWindowBorderWidth, default=2};
	__property Controls::TBevelCut Bevel = {read=FBevel, write=SetBevel, default=0};
	__property bool RoundEdges = {read=FRoundEdges, write=SetRoundEdges, default=1};
	__property bool Transparent = {read=FTransparent, write=SetTransparent, default=0};
	__property bool UseBevel = {read=FUseBevel, write=SetUseBevel, default=0};
	__property Graphics::TColor BorderColor = {read=FBorderColor, write=SetBorderColor, default=536870911};
	__property Graphics::TColor BorderColorHot = {read=FBorderColorHot, write=SetBorderColorHot, default=536870911};
	__property TVistaGradientBackground* ColorHot = {read=FColorHot, write=SetColorHot};
	__property Graphics::TFont* CaptionFont = {read=FCaptionFont, write=SetCaptionFont};
	__property TContainerAppearance* ContainerAppearance = {read=FContainerAppearance, write=SetContainerAppearance};
	__property TVistaTextBackground* PagerCaption = {read=FPagerCaption, write=SetPagerCaption};
	__property TTabAppearance* TabAppearance = {read=FTabAppearance, write=SetTabAppearance};
	__property TVistaPageBackground* PageAppearance = {read=FPageAppearance, write=SetPageAppearance};
	__property TGroupAppearance* GroupAppearance = {read=FGroupAppearance, write=SetGroupAppearance};
	__property TQATAppearance* QATAppearance = {read=FQATAppearance, write=SetQATAppearance};
	__property Advstyleif::TTMSStyle TMSStyle = {read=FTMSStyle, write=FTMSStyle, nodefault};
	void __fastcall Change(int PropID);
	void __fastcall LoadPropFromFile(TextFile &F);
	void __fastcall SavePropToFile(TextFile &F);
	void __fastcall ReleaseAllControls(void);
	
public:
	__fastcall virtual TCustomAdvToolBarStyler(Classes::TComponent* AOwner);
	__fastcall virtual ~TCustomAdvToolBarStyler(void);
	virtual void __fastcall Loaded(void);
	void __fastcall UpdateStyle(void);
	void __fastcall AddControl(Controls::TCustomControl* AControl);
	void __fastcall RemoveControl(Controls::TCustomControl* AControl);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property Advmenus::TCustomAdvMenuStyler* AdvMenuStyler = {read=FAdvMenuStyler, write=SetAdvMenuStyler};
	__property Advglowbutton::TGlowButtonAppearance* GlowButtonAppearance = {read=FGlowButtonAppearance, write=SetGlowButtonAppearance};
	__property Advglowbutton::TGlowButtonAppearance* CompactGlowButtonAppearance = {read=FCompactGlowButtonAppearance, write=SetCompactGlowButtonAppearance};
	__property TCaptionAppearance* CaptionAppearance = {read=FCaptionAppearance, write=SetCaptionAppearance};
	__property bool SystemFont = {read=FSystemFont, write=SetSystemFont, default=1};
};


typedef void __fastcall (__closure *TOnDeleteItemEvent)(System::TObject* Sender, int Index);

class DELPHICLASS TRowCollectionItem;
class DELPHICLASS TAdvCustomToolBar;
class PASCALIMPLEMENTATION TRowCollectionItem : public Classes::TCollectionItem 
{
	typedef Classes::TCollectionItem inherited;
	
private:
	TDbgList* FToolBarList;
	#pragma pack(push,1)
	Types::TRect FRowRect;
	#pragma pack(pop)
	int __fastcall GetHeight(void);
	Types::TRect __fastcall GetRowRect();
	
protected:
	int __fastcall GetSpace(TAdvCustomToolBar* FirstAdvToolBar, TAdvCustomToolBar* SecondAdvToolBar);
	void __fastcall SetRowRect(const Types::TRect &R);
	__property TDbgList* ToolBarList = {read=FToolBarList};
	
public:
	__fastcall virtual TRowCollectionItem(Classes::TCollection* Collection);
	__fastcall virtual ~TRowCollectionItem(void);
	void __fastcall ArrangeToolBars(void);
	bool __fastcall IsAllowed(TAdvCustomToolBar* aAdvToolBar);
	int __fastcall AddToolBar(TAdvCustomToolBar* aAdvToolBar);
	void __fastcall RemoveToolBar(TAdvCustomToolBar* aAdvToolBar, bool DeleteIfEmpty = true);
	void __fastcall SetToolBarLeftAndWidth(TAdvCustomToolBar* aAdvToolBar, int &ALeft, int &AWidth);
	void __fastcall SetToolBarTopAndHeight(TAdvCustomToolBar* aAdvToolBar, int &ATop, int &AHeight);
	__property int Height = {read=GetHeight, nodefault};
	__property Types::TRect RowRect = {read=GetRowRect};
};


class DELPHICLASS TRowCollection;
class DELPHICLASS TAdvDockPanel;
class DELPHICLASS TPersistence;
#pragma option push -b-
enum TPersistenceLocation { plRegistry, plIniFile };
#pragma option pop

class PASCALIMPLEMENTATION TPersistence : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	Classes::TComponent* FOwner;
	AnsiString FKey;
	AnsiString FSection;
	TPersistenceLocation FLocation;
	bool FEnabled;
	Classes::TNotifyEvent FOnChange;
	void __fastcall SetEnabled(const bool Value);
	void __fastcall SetKey(const AnsiString Value);
	void __fastcall SetLocation(const TPersistenceLocation Value);
	void __fastcall SetSection(const AnsiString Value);
	
protected:
	void __fastcall Change(void);
	
public:
	__fastcall TPersistence(Classes::TComponent* AOwner);
	__fastcall virtual ~TPersistence(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property TPersistenceLocation Location = {read=FLocation, write=SetLocation, nodefault};
	__property AnsiString Key = {read=FKey, write=SetKey};
	__property AnsiString Section = {read=FSection, write=SetSection};
	__property bool Enabled = {read=FEnabled, write=SetEnabled, nodefault};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


class PASCALIMPLEMENTATION TAdvDockPanel : public Controls::TCustomControl 
{
	typedef Controls::TCustomControl inherited;
	
private:
	TCustomAdvToolBarStyler* FInternalToolBarStyler;
	TCustomAdvToolBarStyler* FToolBarStyler;
	TCustomAdvToolBarStyler* FCurrentToolBarStyler;
	TDockAlign FDockAlign;
	TRowCollection* FRows;
	int FOffSetY;
	int FOffSetX;
	TDbgList* FToolBars;
	TDbgList* FHiddenToolBars;