aqdockinguiofficexp.hpp

来自「AutomatedDocking Library 控件源代码修改 适合Delp」· HPP 代码 · 共 126 行

// CodeGear C++Builder
// Copyright (c) 1995, 2008 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Aqdockinguiofficexp.pas' rev: 20.00

#ifndef AqdockinguiofficexpHPP
#define AqdockinguiofficexpHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Imglist.hpp>	// Pascal unit
#include <Aqdockingutils.hpp>	// Pascal unit
#include <Aquihelpers.hpp>	// Pascal unit
#include <Aqdockingui.hpp>	// Pascal unit
#include <Aqdockinguidefault.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit

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

namespace Aqdockinguiofficexp
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TaqOfficeXPScheme { ofsSystem, ofsBlue, ofsOlive, ofsSilver, ofsDefault };
#pragma option pop

#pragma option push -b-
enum TaqOfficeXPSchemeTint { ostFancy, ostModest };
#pragma option pop

class DELPHICLASS TaqOfficeXPUIStyle;
class PASCALIMPLEMENTATION TaqOfficeXPUIStyle : public Aqdockinguidefault::TaqCustomDefaultUIStyle
{
	typedef Aqdockinguidefault::TaqCustomDefaultUIStyle inherited;
	
private:
	bool FThemeAvailable;
	TaqOfficeXPScheme FScheme;
	TaqOfficeXPSchemeTint FSchemeTint;
	Aquihelpers::TGradient* FDownColor;
	unsigned FToolbarStartColor;
	unsigned FCaptionButtonSelColor;
	unsigned FDownStartColor;
	System::TObject* FThemeNotifier;
	Aqdockingutils::TaqApplicationEvents* FAppEvents;
	void __fastcall CheckTheme(void);
	void __fastcall DoAppSettingChange(System::TObject* Sender, int Flag, const System::UnicodeString Section, int &Result);
	void __fastcall ThemeChange(System::TObject* Sender);
	void __fastcall SetScheme(const TaqOfficeXPScheme Value);
	void __fastcall SetSchemeTint(const TaqOfficeXPSchemeTint Value);
	void __fastcall SetDownColor(const Aquihelpers::TGradient* Value);
	
protected:
	virtual void __fastcall SetColors(void);
	virtual void __fastcall DoDrawTabButton(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, Aqdockingui::TaqDockButtonState AState, Aqdockingui::TaqTabButtonKind AKind);
	virtual void __fastcall DoDrawTabPane(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, Aqdockingui::TaqTabOrientation AOrientation);
	virtual void __fastcall DoDrawTabItem(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, const System::UnicodeString ACaption, Aqdockingui::TaqTabItemState AState, Aqdockingui::TaqTabItemPosition APosition, Aquihelpers::TaqOrientation AOrientation, int AButtonAreaWidthBefore, int AButtonAreaWidthAfter, bool ADrawImage, Imglist::TCustomImageList* AImages, int AImageIndex);
	virtual void __fastcall DoDrawTabTarget(Graphics::TCanvas* ACanvas, const Types::TRect &ARect);
	virtual void __fastcall DoDrawCaptionButton(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, Aqdockingui::TaqDockButtonState AState, Aqdockingui::TaqDockCaptionState ACaptionState, Aqdockingui::TaqDockButtonKind AKind);
	virtual void __fastcall DoDrawCaption(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, const System::UnicodeString ACaption, Aqdockingui::TaqDockCaptionState AState, int AMaxCaptionWidth, bool &AFitCaption, bool ADrawImage, Imglist::TCustomImageList* AImages, int AImageIndex);
	virtual void __fastcall DoDrawSplitter(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, Aqdockingui::TaqSplitterOrientation AOrientation);
	virtual void __fastcall DoDrawHideZone(Graphics::TCanvas* ACanvas, const Types::TRect &ASiteRect, const Types::TRect &ARect, Aqdockingui::TaqHideZoneOrientation AOrientation);
	virtual void __fastcall DoDrawHiddenTabItem(Graphics::TCanvas* ACanvas, const Types::TRect &ARect, const System::UnicodeString AText, Aqdockingui::TaqTabItemState AState, Aqdockingui::TaqHideZoneOrientation AOrientation, Aqdockingui::TaqTabItemPosition APosition, bool ADrawImage, bool ADrawText, Imglist::TCustomImageList* AImages, int AImageIndex);
	__property Aquihelpers::TGradient* DownColor = {read=FDownColor, write=SetDownColor};
	
public:
	__fastcall virtual TaqOfficeXPUIStyle(Classes::TComponent* AOwner);
	__fastcall virtual ~TaqOfficeXPUIStyle(void);
	TaqOfficeXPScheme __fastcall GetOfficeXPScheme(void);
	
__published:
	__property CaptionButtons;
	__property Images;
	__property TaqOfficeXPScheme Scheme = {read=FScheme, write=SetScheme, default=0};
	__property TaqOfficeXPSchemeTint SchemeTint = {read=FSchemeTint, write=SetSchemeTint, default=0};
	__property TabIndent;
	__property OnGetTabWidth;
	__property OnDrawTabButton;
	__property OnDrawTabPane;
	__property OnDrawTabItem;
	__property OnDrawTabTarget;
	__property OnDrawCaptionButton;
	__property OnDrawCaption;
	__property OnDrawControl;
	__property OnDrawSplitter;
	__property OnChange;
public:
	/* TaqDockingUIStyle.CreateEx */ inline __fastcall virtual TaqOfficeXPUIStyle(Classes::TComponent* AOwner, bool APredefined) : Aqdockinguidefault::TaqCustomDefaultUIStyle(AOwner, APredefined) { }
	
};


typedef TaqOfficeXPScheme TaqOfficeXPSchemeColor;

//-- var, const, procedure ---------------------------------------------------
static const ShortInt xpToolbarStartColor = 0x0;
static const ShortInt xpToolbarEndColor = 0x1;
static const ShortInt xpBarMarkStartColor = 0x2;
static const ShortInt xpBarMarkEndColor = 0x3;
static const ShortInt xpSelectedStartColor = 0x4;
static const ShortInt xpSelectedEndColor = 0x5;
static const ShortInt xpDownStartColor = 0x6;
static const ShortInt xpDownEndColor = 0x7;
static const ShortInt xpStartColor = 0x0;
static const ShortInt xpEndColor = 0x7;
extern PACKAGE StaticArray<StaticArray<unsigned, 8> , 3> OfficeXPColors;

}	/* namespace Aqdockinguiofficexp */
using namespace Aqdockinguiofficexp;
#pragma pack(pop)
#pragma option pop

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