aqdocking.hpp

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

	virtual Types::TRect __fastcall GetScreenClientRect();
	virtual void __fastcall SetDockingManager(const Aqdockingbase::TaqCustomDockingManager* Value);
	virtual void __fastcall UpdateMainTreeItem(Aqdockingbase::TaqCustomDockingControl* AControl);
	virtual void __fastcall DoActiveControlChange(void);
	virtual void __fastcall DoControlChange(Aqdockingbase::TaqCustomDockingControl* Sender, Aqdockingbase::TaqDockingControlChange Change);
	virtual void __fastcall DoControlResized(Aqdockingbase::TaqCustomDockingControl* Sender);
	virtual bool __fastcall BeforeDockingRead(void);
	virtual void __fastcall LoadFromStream(Aqdockingbase::TaqCustomDockingReader* Reader);
	virtual void __fastcall SaveToStream(Aqdockingbase::TaqCustomDockingWriter* Writer);
	virtual void __fastcall PerformSizeConstraintsUpdate(void);
	virtual void __fastcall HandleOleDropActivity(const Types::TPoint &Pos, Aqdockingbase::TOleDropAction Action, GUID &Key);
	void __fastcall ActiveControlChange(void);
	void __fastcall AdjustRect(Types::TRect &R);
	__property TaqDockingHideZone* HideZones[Aqdockingui::TaqHideZoneOrientation Index] = {read=GetHideZones};
	
public:
	__fastcall virtual TaqDockingSite(Classes::TComponent* AOwner);
	__fastcall virtual ~TaqDockingSite(void);
	virtual void __fastcall PerformUpdate(void);
	virtual Aqdockingbase::TaqCustomDockingControl* __fastcall GetItemByPos(const Types::TPoint &Pos);
	void __fastcall StopAnimate(void);
	__property Aqdockingbase::TaqCustomDockingControl* WorkspaceControl = {read=FWorkspaceControl};
	
__published:
	__property Align = {default=0};
	__property Aquihelpers::TaqOrientations AllowAutoHide = {read=FAllowAutoHide, write=SetAllowAutoHide, default=15};
	__property Anchors = {default=3};
	__property Color = {default=-16777211};
	__property DockingManager;
	__property Font;
	__property ParentColor = {default=1};
	__property ParentFont = {default=1};
	__property PopupMenu;
	__property OnCanDock;
	__property OnCanUndock;
	__property OnContextPopup;
	__property OnDock;
	__property OnUndock;
public:
	/* TWinControl.CreateParented */ inline __fastcall TaqDockingSite(HWND ParentWindow) : Aqdockingbase::TaqParentedDockingSite(ParentWindow) { }
	
};


class DELPHICLASS TaqFloatingForm;
class PASCALIMPLEMENTATION TaqFloatingForm : public Aqdockingbase::TaqCustomFloatingForm
{
	typedef Aqdockingbase::TaqCustomFloatingForm inherited;
	
private:
	HIDESBASE unsigned __fastcall GetHandle(void);
	bool __fastcall CanDesigning(void);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	HIDESBASE MESSAGE void __fastcall WMActivate(Messages::TWMActivate &Message);
	
public:
	DYNAMIC void __fastcall DoClose(Forms::TCloseAction &Action);
	__fastcall virtual ~TaqFloatingForm(void);
public:
	/* TaqCustomFloatingForm.CreateNew */ inline __fastcall virtual TaqFloatingForm(Classes::TComponent* AOwner, int Dummy) : Aqdockingbase::TaqCustomFloatingForm(AOwner, Dummy) { }
	/* TaqCustomFloatingForm.CreateEx */ inline __fastcall virtual TaqFloatingForm(Classes::TComponent* AOwner, bool AStayOnTop) : Aqdockingbase::TaqCustomFloatingForm(AOwner, AStayOnTop) { }
	
public:
	/* TCustomForm.Create */ inline __fastcall virtual TaqFloatingForm(Classes::TComponent* AOwner) : Aqdockingbase::TaqCustomFloatingForm(AOwner) { }
	
public:
	/* TWinControl.CreateParented */ inline __fastcall TaqFloatingForm(HWND ParentWindow) : Aqdockingbase::TaqCustomFloatingForm(ParentWindow) { }
	
};


class DELPHICLASS TaqWorkspaceControl;
class PASCALIMPLEMENTATION TaqWorkspaceControl : public Aqdockingbase::TaqCustomDockingControl
{
	typedef Aqdockingbase::TaqCustomDockingControl inherited;
	
protected:
	virtual void __fastcall Paint(void);
	virtual Aqdockingbase::TaqBooleanValue __fastcall GetShowCaption(void);
	virtual System::UnicodeString __fastcall GetCaption();
	virtual void __fastcall DoShow(void);
	virtual void __fastcall DoHide(void);
	DYNAMIC void __fastcall DoContextPopup(const Types::TPoint &MousePos, bool &Handled);
	virtual void __fastcall SetDockingManager(const Aqdockingbase::TaqCustomDockingManager* Value);
	virtual void __fastcall CreatePopupMenu(void);
	DYNAMIC void __fastcall DoEnter(void);
	HIDESBASE MESSAGE void __fastcall CMFocusChanged(Controls::TCMFocusChanged &Message);
	
public:
	__fastcall virtual TaqWorkspaceControl(Classes::TComponent* AOwner);
	__fastcall virtual ~TaqWorkspaceControl(void);
public:
	/* TWinControl.CreateParented */ inline __fastcall TaqWorkspaceControl(HWND ParentWindow) : Aqdockingbase::TaqCustomDockingControl(ParentWindow) { }
	
};


class DELPHICLASS TaqWorkspaceDocker;
class PASCALIMPLEMENTATION TaqWorkspaceDocker : public TaqDocker
{
	typedef TaqDocker inherited;
	
public:
	virtual TaqDockingRegionType __fastcall GetDockingRegionType(const Types::TPoint &APoint);
	virtual unsigned __fastcall GetDockingZoneRgn(TaqDockingRegionType ARegion);
	virtual bool __fastcall HasDockingZone(TaqDockingRegionType ARegion);
	virtual Types::TRect __fastcall GetDockingRect(TaqDockingRegionType ARegion, Aqdockingbase::TaqCustomDockingControl* ADragControl);
	virtual unsigned __fastcall GetDockingFrameRgn(TaqDockingRegionType ARegion, Aqdockingbase::TaqCustomDockingControl* ADragControl);
	virtual void __fastcall DockItem2(TaqDockingRegionType Region, Aqdockingbase::TaqCustomDockingControl* Item, bool FocusItem = true);
	virtual void __fastcall DockItem(const Types::TPoint &P, Aqdockingbase::TaqCustomDockingControl* Item);
public:
	/* TaqDocker.Create */ inline __fastcall virtual TaqWorkspaceDocker(Aqdockingbase::TaqCustomDockingManager* ADockingManager) : TaqDocker(ADockingManager) { }
	
public:
	/* TaqOwnedObject.Destroy */ inline __fastcall virtual ~TaqWorkspaceDocker(void) { }
	
};


__interface IaqDockingManagerCustomizer;
typedef System::DelphiInterface<IaqDockingManagerCustomizer> _di_IaqDockingManagerCustomizer;
__interface  INTERFACE_UUID("{AC3F8B48-60ED-405B-B7D9-9F543D391A6F}") IaqDockingManagerCustomizer  : public System::IInterface 
{
	
public:
	virtual void __fastcall EnableParentForms(bool AEnable) = 0 ;
	virtual void __fastcall SelectPanel(Aqdockingbase::TaqCustomDockingControl* AControl, bool AEdit) = 0 ;
	virtual void __fastcall ShowDockingSetup(TaqDockingManager* ADockingManager, bool AShow = true, const System::UnicodeString ActivePage = L"") = 0 ;
	virtual void __fastcall UpdatePanel(Aqdockingbase::TaqCustomDockingControl* AControl) = 0 ;
	virtual bool __fastcall GetCustomizing(void) = 0 ;
	__property bool Customizing = {read=GetCustomizing};
};

typedef void __fastcall (__closure *TaqFloatingFormCreateEvent)(TaqDockingManager* Sender, Aqdockingbase::TaqCustomFloatingForm* Form);

typedef void __fastcall (__closure *TaqFloatingFormCloseEvent)(TaqDockingManager* Sender, Aqdockingbase::TaqCustomFloatingForm* Form, Forms::TCloseAction &Action);

typedef void __fastcall (__closure *TaqCollisionEvent)(TaqDockingManager* Sender, Aqdockingbase::TaqCustomDockingControl* AControl, Aqdockingbase::TaqCustomDockingControl* ATarget, Types::TPoint &ASize, TaqDockingRegionType &ARegion);

typedef void __fastcall (__closure *TaqContainerPopupEvent)(Aqdockingbase::TaqCustomDockingManager* Sender, Aqdockingbase::TaqCustomDockingContainer* Control, Menus::TPopupMenu* AMenu, unsigned Flags, Types::TPoint &ACoord, bool &Allow);

class PASCALIMPLEMENTATION TaqDockingManager : public Aqdockingbase::TaqCustomDockingManager
{
	typedef Aqdockingbase::TaqCustomDockingManager inherited;
	
private:
	Aqdockingbase::TaqCustomDockingSite* FMainDockSite;
	TaqDockingStyle* FDockingStyle;
	TaqDockingStyle* FIntDockingStyle;
	Forms::TCustomForm* FOwnerForm;
	bool FShowCloseButtonOnTabs;
	Aqdockingui::TaqCustomCaptionButtonPosition FCloseButtonOnTabPosition;
	bool FAdjustButtonSizeOnTabs;
	bool FShowTabsPopupButton;
	bool FShowInsideContainerDockZones;
	TaqContainerTypes FShowContainerCaption;
	TaqCaptionType FShowImages;
	Controls::TCursor FCursor;
	System::UnicodeString FStorePath;
	TaqDockingStoreKind FStoreKind;
	TaqDockingStoreOptions FStoreOptions;
	bool FStored;
	bool FFinalized;
	Controls::TWinControl* FNullSite;
	_di_IaqDockingManagerCustomizer FCustomizer;
	Contnrs::TComponentList* FCustomPages;
	bool FOwnDockingStyle;
	void *FInfo;
	Aqdockingbase::TaqCustomFloatingFormClass FFloatingFormClass;
	int FAutoHideInterval;
	TaqContainerTypes FAutoHideContainers;
	bool FAutoHideEnabled;
	TaqAutoHideStartAction FAutoHideStartAction;
	TaqAutoHideCaptions FAutoHideCaptions;
	TaqAutoHideTabs FAutoHideTabs;
	System::Byte FAutoShowSpeed;
	System::Byte FAutoHideSpeed;
	TaqFloatingFormCloseEvent FOnFloatingFormClose;
	TaqFloatingFormCreateEvent FOnFloatingFormCreate;
	TaqCollisionEvent FOnCollision;
	TaqContainerPopupEvent FOnContainerPopup;
	void __fastcall SetMainDockSite(const Aqdockingbase::TaqCustomDockingSite* Value);
	bool __fastcall DockToMainSite(Aqdockingbase::TaqCustomDockingControl* Control);
	void __fastcall DockAllToMainSite(void);
	void __fastcall SetShowContainerCaption(const TaqContainerTypes Value);
	void __fastcall SetShowImages(const TaqCaptionType Value);
	void __fastcall FloatingFormDestroy(void);
	void __fastcall ParentFormDestroy(void);
	bool __fastcall GetCustomizing(void);
	void __fastcall SetDockingStyle(const TaqDockingStyle* Value);
	void __fastcall InitializeDockingStyle(void);
	void __fastcall FinalizeDockingStyle(void);
	TaqDockingStyle* __fastcall GetDockingStyle(void);
	TaqDockingStyleClass __fastcall GetDockingStyleClass(void);
	void __fastcall SetDockingStyleClass(const TaqDockingStyleClass Value);
	System::UnicodeString __fastcall GetDockingStyleClassName();
	void __fastcall SetDockingStyleClassName(const System::UnicodeString Value);
	void __fastcall ReadStyle(Classes::TReader* Reader);
	void __fastcall WriteStyle(Classes::TWriter* Writer);
	void __fastcall SetAutoHideContainers(const TaqContainerTypes Value);
	void __fastcall SetAutoHideEnabled(const bool Value);
	void __fastcall SetAutoHideCaptions(const TaqAutoHideCaptions Value);
	void __fastcall SetAutoHideTabs(const TaqAutoHideTabs Value);
	void __fastcall SetShowCloseButtonOnTabs(const bool Value);
	void __fastcall SetCloseButtonOnTabPosition(const Aqdockingui::TaqCustomCaptionButtonPosition Value);
	void __fastcall SetAdjustButtonSizeOnTabs(const bool Value);
	void __fastcall SetShowTabsPopupButton(const bool Value);
	
protected:
	Aqdockingbase::TaqCustomDockingContainer* __fastcall GetContainerByClass(Aqdockingbase::TaqCustomDockingContainerClass AContainerClass);
	virtual void __fastcall DoFloatingFormCreate(Aqdockingbase::TaqCustomFloatingForm* AForm);
	virtual void __fastcall DoFloatingFormClose(Aqdockingbase::TaqCustomFloatingForm* AForm, Forms::TCloseAction &AAction);
	virtual void __fastcall DoCollision(Aqdockingbase::TaqCustomDockingControl* AControl, Aqdockingbase::TaqCustomDockingControl* ATarget, Types::TPoint &ASize, TaqDockingRegionType &ARegion);
	virtual Aqdockingbase::TaqCustomDockingControl* __fastcall CreateControl(void);
	virtual Aqdockingbase::TaqCustomDockingSite* __fastcall CreateNullDockingSite(void);
	virtual void __fastcall FinalizeNullDockingSite(Aqdockingbase::TaqCustomDockingSite* &Site);
	virtual void __fastcall RegisterControl(Aqdockingbase::TaqCustomDockingControl* Control);
	virtual void __fastcall UnregisterControl(Aqdockingbase::TaqCustomDockingControl* Control);
	virtual void __fastcall BeforeDockingRead(void);
	virtual void __fastcall AfterDockingRead(void);
	virtual void __fastcall DoControlChanged(Aqdockingbase::TaqCustomDockingControl* Control, Aqdockingbase::TaqDockingControlChange Change);
	virtual System::UnicodeString __fastcall DoRenameDockControl(Aqdockingbase::TaqCustomDockingControl* Control);
	virtual Aqdockingbase::TaqCustomDockingSite* __fastcall CreateFloatingForm(const Types::TRect &Rect, bool ClientCoords = true);
	virtual Aqdockingbase::TaqCustomDockingFrame* __fastcall CreateDockingFrame(const Types::TRect &Rect, const Aqdockingbase::TaqCustomMover* AMover);
	virtual Aqdockingbase::TaqCustomDockingContainerClass __fastcall GetContainerClass(int Id);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	virtual void __fastcall Loaded(void);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	virtual Aqdockingui::TaqCustomCaptionButtonPosition __fastcall GetCustomButtonsPosition(int ButtonIndex);
	__property Forms::TCustomForm* OwnerForm = {read=FOwnerForm};
	__property Contnrs::TComponentList* CustomPages = {read=FCustomPages};
	__property Aqdockingbase::TaqCustomFloatingFormClass FloatingFormClass = {read=FFloatingFormClass, write=FFloatingFormClass};
	
public:
	__fastcall virtual TaqDockingManager(Classes::TComponent* AOwner);
	__fastcall virtual ~TaqDockingManager(void);
	void __fastcall AddPropertyPage(Forms::TCustomFrame* PageFrame);
	void __fastcall RemovePropertyPage(Forms::TCustomFrame* PageFrame);
	void __fastcall Customize(bool AShow = true, const System::UnicodeString ActivePage = L"");
	virtual void __fastcall SaveLayout(Aqdockingbase::TaqCustomDockingWriter* Writer);
	virtual void __fastcall LoadLayout(Aqdockingbase::TaqCustomDockingReader* Reader);
	void __fastcall Dock(Aqdockingbase::TaqCustomDockingControl* AControl, Aqdockingbase::TaqCustomDockingControl* ADest, TaqDockingRegionType ARegion, bool AFocusItem = true);
	__property bool Customizing = {read=GetCustomizing, nodefault};
	__property TaqDockingStyleClass DockingStyleClass = {read=GetDockingStyleClass, write=SetDockingStyleClass};
	__property Aqdockingbase::TaqCustomDockingSite* MainDockSite = {read=FMainDockSite, write=SetMainDockSite};
	__property bool ShowInsideContainerDockZones = {read=FShowInsideContainerDockZones, write=FShowInsideContainerDockZones, nodefault};
	
__published:
	__property ActiveControl;
	__property AutoDockKey = {default=4};
	__property AutoDragDocking = {default=1};
	__property AutoDragKey = {default=5};
	__property TaqAutoHideCaptions AutoHideCaptions = {read=FAutoHideCaptions, write=SetAutoHideCaptions, default=0};
	__property TaqContainerTypes AutoHideContainers = {read=FAutoHideContainers, write=SetAutoHideContainers, default=31};
	__property bool AutoHideEnabled = {read=FAutoHideEnabled, write=SetAutoHideEnabled, default=1};
	__property int AutoHideInterval = {read=FAutoHideInterval, write=FAutoHideInterval, default=500};
	__property System::Byte AutoHideSpeed = {read=FAutoHideSpeed, write=FAutoHideSpeed, default=150};
	__property TaqAutoHideStartAction AutoHideStartAction = {read=FAutoHideStartAction, write=FAutoHideStartAction, default=0};
	__property TaqAutoHideTabs AutoHideTabs = {read=FAutoHideTabs, write=SetAutoHideTabs, default=2};
	__property System::Byte AutoShowSpeed = {read=FAutoShowSpeed, write=FAutoShowSpeed, default=150};
	__property CaptionButtons = {default=93};
	__property CtrlTabControlSwitch = {default=1};
	__property System::UnicodeString DockingStyleClassName = {read=GetDockingStyleClassName, write=SetDockingStyleClassName};
	__property TaqDockingStyle* DockingStyle = {read=FDockingStyle, write=SetDockingStyle};