aqdockingbase.hpp

AutomatedDocking Library 控件源代码修改 适合Delphi 2009 和C++ Builder 20009 使用。 修正汉字不能正确显示问题

	virtual void __fastcall SetInteger(const System::UnicodeString Name, const int Value);
	virtual void __fastcall SetString(const System::UnicodeString Name, const System::UnicodeString Value);
	virtual void __fastcall SetPoint(const System::UnicodeString Name, const Types::TPoint &Value);
	virtual void __fastcall SetRect(const System::UnicodeString Name, const Types::TRect &Value);
	virtual void __fastcall SetGUID(const System::UnicodeString Name, const GUID &Value);
};


class DELPHICLASS TaqXMLDockingReader;
class PASCALIMPLEMENTATION TaqXMLDockingReader : public TaqCustomDockingReader
{
	typedef TaqCustomDockingReader inherited;
	
private:
	Xmlintf::_di_IXMLNode FNode;
	Xmlintf::_di_IXMLDocument FDocument;
	int FVersion;
	Xmlintf::_di_IXMLNode FDockingSitesNode;
	int FDockingSitesIndex;
	Contnrs::TObjectList* FDockingControlStack;
	int FDockingControlIndex;
	
protected:
	virtual int __fastcall GetVersion(void);
	
public:
	__fastcall TaqXMLDockingReader(const System::UnicodeString AFileName);
	__fastcall virtual ~TaqXMLDockingReader(void);
	virtual void __fastcall BeginDockingLayout(void);
	virtual void __fastcall EndDockingLayout(void);
	virtual void __fastcall BeginDockingSites(void);
	virtual void __fastcall EndDockingSites(void);
	virtual bool __fastcall NextDockingSite(void);
	virtual void __fastcall SkipDockingSite(void);
	virtual void __fastcall BeginDockingControls(void);
	virtual void __fastcall EndDockingControls(void);
	virtual bool __fastcall NextDockingControl(void);
	virtual void __fastcall SkipDockingControl(void);
	virtual void __fastcall EndDockingControl(void);
	virtual void __fastcall BeginHideZone(Aqdockingui::TaqHideZoneOrientation Orientation);
	virtual void __fastcall EndHideZone(void);
	virtual bool __fastcall GetBoolean(const System::UnicodeString Name);
	virtual System::Byte __fastcall GetByte(const System::UnicodeString Name);
	virtual int __fastcall GetInteger(const System::UnicodeString Name);
	virtual System::UnicodeString __fastcall GetString(const System::UnicodeString Name);
	virtual void __fastcall GetPoint(const System::UnicodeString Name, /* out */ Types::TPoint &Value);
	virtual void __fastcall GetRect(const System::UnicodeString Name, /* out */ Types::TRect &Value);
	virtual void __fastcall GetGUID(const System::UnicodeString Name, /* out */ GUID &Value);
	virtual void __fastcall Skip(int ByteCount);
};


class DELPHICLASS TaqXMLDockingWriter;
class PASCALIMPLEMENTATION TaqXMLDockingWriter : public TaqCustomDockingWriter
{
	typedef TaqCustomDockingWriter inherited;
	
private:
	Xmlintf::_di_IXMLNode FNode;
	Xmlintf::_di_IXMLDocument FDocument;
	System::UnicodeString FFileName;
	
public:
	__fastcall TaqXMLDockingWriter(const System::UnicodeString AFileName);
	__fastcall virtual ~TaqXMLDockingWriter(void);
	virtual void __fastcall BeginDockingLayout(void);
	virtual void __fastcall EndDockingLayout(void);
	virtual void __fastcall BeginDockingSites(void);
	virtual void __fastcall EndDockingSites(void);
	virtual void __fastcall BeginDockingSite(void);
	virtual void __fastcall EndDockingSite(void);
	virtual void __fastcall BeginDockingControls(void);
	virtual void __fastcall EndDockingControls(void);
	virtual void __fastcall BeginDockingControl(void);
	virtual void __fastcall EndDockingControl(void);
	virtual void __fastcall BeginHideZone(Aqdockingui::TaqHideZoneOrientation Orientation);
	virtual void __fastcall EndHideZone(void);
	virtual void __fastcall SetBoolean(const System::UnicodeString Name, const bool Value);
	virtual void __fastcall SetByte(const System::UnicodeString Name, const System::Byte Value);
	virtual void __fastcall SetInteger(const System::UnicodeString Name, const int Value);
	virtual void __fastcall SetString(const System::UnicodeString Name, const System::UnicodeString Value);
	virtual void __fastcall SetPoint(const System::UnicodeString Name, const Types::TPoint &Value);
	virtual void __fastcall SetRect(const System::UnicodeString Name, const Types::TRect &Value);
	virtual void __fastcall SetGUID(const System::UnicodeString Name, const GUID &Value);
};


class DELPHICLASS TaqDockActionLink;
class DELPHICLASS TaqCustomDockAction;
class PASCALIMPLEMENTATION TaqDockActionLink : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	TaqCustomDockAction* FAction;
	Classes::TNotifyEvent FOnChange;
	bool FDoChange;
	void __fastcall SetAction(const TaqCustomDockAction* Value);
	
protected:
	void __fastcall DoChange(void);
	
public:
	__fastcall TaqDockActionLink(void);
	__fastcall virtual ~TaqDockActionLink(void);
	void __fastcall Execute(System::TObject* Sender);
	__property TaqCustomDockAction* Action = {read=FAction, write=SetAction};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
};


typedef void __fastcall (__closure *TaqDockActionExecuteEvent)(TaqCustomDockAction* Sender, bool &DoDefault);

class DELPHICLASS TaqCustomDockingControl;
class PASCALIMPLEMENTATION TaqCustomDockAction : public Classes::TComponent
{
	typedef Classes::TComponent inherited;
	
private:
	TaqCustomDockingControl* FOwner;
	Classes::TList* FLinks;
	bool FEnabled;
	System::UnicodeString FHint;
	System::UnicodeString FCaption;
	TaqDockActionExecuteEvent FOnExecute;
	Classes::TNotifyEvent FOnDefaultExecute;
	Imglist::TImageIndex FImageIndex;
	int FUpdateCount;
	bool FChecked;
	int FId;
	System::TObject* FSender;
	void __fastcall SetCaption(const System::UnicodeString Value);
	void __fastcall SetEnabled(const bool Value);
	void __fastcall SetHint(const System::UnicodeString Value);
	void __fastcall SetImageIndex(const Imglist::TImageIndex Value);
	void __fastcall SetChecked(const bool Value);
	
protected:
	void __fastcall DoChange(void);
	void __fastcall DoExecute(System::TObject* ASender);
	void __fastcall AddLink(TaqDockActionLink* ALink);
	void __fastcall RemoveLink(TaqDockActionLink* ALink);
	__property Classes::TNotifyEvent OnDefaultExecute = {read=FOnDefaultExecute, write=FOnDefaultExecute};
	
public:
	__fastcall virtual TaqCustomDockAction(Classes::TComponent* AOwner);
	__fastcall virtual ~TaqCustomDockAction(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	void __fastcall Execute(System::TObject* Sender);
	void __fastcall BeginUpdate(void);
	void __fastcall EndUpdate(void);
	__property System::UnicodeString Caption = {read=FCaption, write=SetCaption};
	__property System::UnicodeString Hint = {read=FHint, write=SetHint};
	__property bool Enabled = {read=FEnabled, write=SetEnabled, nodefault};
	__property Imglist::TImageIndex ImageIndex = {read=FImageIndex, write=SetImageIndex, nodefault};
	__property bool Checked = {read=FChecked, write=SetChecked, nodefault};
	__property TaqCustomDockingControl* Owner = {read=FOwner};
	__property System::TObject* Sender = {read=FSender};
	__property TaqDockActionExecuteEvent OnExecute = {read=FOnExecute, write=FOnExecute};
};


class DELPHICLASS TaqDefaultDockAction;
class PASCALIMPLEMENTATION TaqDefaultDockAction : public TaqCustomDockAction
{
	typedef TaqCustomDockAction inherited;
	
private:
	Aqdockingui::TaqDockButtonKind FButtonKind;
	void __fastcall SetButtonKind(const Aqdockingui::TaqDockButtonKind Value);
	void __fastcall ButtonKindChanged(void);
	
public:
	__fastcall TaqDefaultDockAction(Classes::TComponent* AOwner, Aqdockingui::TaqDockButtonKind AKind);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	__property Aqdockingui::TaqDockButtonKind ButtonKind = {read=FButtonKind, write=SetButtonKind, nodefault};
public:
	/* TaqCustomDockAction.Destroy */ inline __fastcall virtual ~TaqDefaultDockAction(void) { }
	
};


class DELPHICLASS TaqCustomButtonDockAction;
class PASCALIMPLEMENTATION TaqCustomButtonDockAction : public TaqCustomDockAction
{
	typedef TaqCustomDockAction inherited;
	
private:
	int FButtonIndex;
	
protected:
	__property int ButtonIndex = {read=FButtonIndex, nodefault};
	
public:
	__fastcall TaqCustomButtonDockAction(Classes::TComponent* AOwner, int AButtonIndex);
public:
	/* TaqCustomDockAction.Destroy */ inline __fastcall virtual ~TaqCustomButtonDockAction(void) { }
	
};


class DELPHICLASS TaqAlignDockAction;
class PASCALIMPLEMENTATION TaqAlignDockAction : public TaqCustomDockAction
{
	typedef TaqCustomDockAction inherited;
	
private:
	TaqDockingAlignment FAlignment;
	void __fastcall SetAlignment(const TaqDockingAlignment Value);
	void __fastcall AlignmentChanged(void);
	
public:
	__fastcall TaqAlignDockAction(Classes::TComponent* AOwner, TaqDockingAlignment AAlign);
	__property TaqDockingAlignment Alignment = {read=FAlignment, write=SetAlignment, nodefault};
public:
	/* TaqCustomDockAction.Destroy */ inline __fastcall virtual ~TaqAlignDockAction(void) { }
	
};


class DELPHICLASS TaqDockButton;
class DELPHICLASS TaqDockCaptionButtons;
class PASCALIMPLEMENTATION TaqDockButton : public Controls::TGraphicControl
{
	typedef Controls::TGraphicControl inherited;
	
private:
	bool FPressed;
	Aqdockingui::TaqDockButtonState FButtonState;
	TaqDockCaptionButtons* FButtons;
	bool FMouseInControl;
	TaqDockActionLink* FActionLink;
	void __fastcall SetButtonState(Aqdockingui::TaqDockButtonState Value);
	TaqDockCaptionButtons* __fastcall GetButtons(void);
	void __fastcall UpdateTracking(void);
	
protected:
	HIDESBASE void __fastcall SetAction(const TaqCustomDockAction* Value);
	virtual TaqCustomDockAction* __fastcall GetDockAction(void);
	virtual void __fastcall DockActionChange(System::TObject* Sender);
	virtual void __fastcall Paint(void);
	HIDESBASE MESSAGE void __fastcall CMMouseEnter(Messages::TMessage &message);
	HIDESBASE MESSAGE void __fastcall CMMouseLeave(Messages::TMessage &message);
	MESSAGE void __fastcall WMEraseBackground(Messages::TWMEraseBkgnd &Message);
	HIDESBASE MESSAGE void __fastcall CMVisibleChanged(Messages::TMessage &Message);
	DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift, int X, int Y);
	__property TaqDockCaptionButtons* Buttons = {read=GetButtons, write=FButtons};
	
public:
	__fastcall virtual TaqDockButton(Classes::TComponent* AOwner);
	__fastcall virtual ~TaqDockButton(void);
	__property Aqdockingui::TaqDockButtonState ButtonState = {read=FButtonState, write=SetButtonState, nodefault};
	__property TaqCustomDockAction* Action = {read=GetDockAction, write=SetAction};
};


class DELPHICLASS TaqCustomDockingManager;
class PASCALIMPLEMENTATION TaqDockCaptionButtons : public System::TObject
{
	typedef System::TObject inherited;
	
public:
	TaqDockButton* operator[](Aqdockingui::TaqDockButtonKind Kind) { return Items[Kind]; }
	
private:
	Types::TRect FBounds;
	TaqCustomDockingControl* FOwner;
	TaqDockButtonItems FButtonItems;
	StaticArray<TaqDockButton*, 10> FButtons;
	TaqDockingPanelState FPanelState;
	bool FVisible;