aqdockingvs2005.hpp

来自「AutomatedDocking Library 控件源代码修改 适合Delp」· HPP 代码 · 共 405 行 · 第 1/2 页

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

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

#ifndef Aqdockingvs2005HPP
#define Aqdockingvs2005HPP

#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 <Controls.hpp>	// Pascal unit
#include <Contnrs.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Appevnts.hpp>	// Pascal unit
#include <Aqdockingbase.hpp>	// Pascal unit
#include <Aqdocking.hpp>	// Pascal unit
#include <Aqmaskforms.hpp>	// Pascal unit
#include <Aqdockingutils.hpp>	// Pascal unit
#include <Aqdockingui.hpp>	// Pascal unit

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

namespace Aqdockingvs2005
{
//-- type declarations -------------------------------------------------------
typedef Word TaqDockerFadeDelay;

typedef Aqdocking::TaqDockingRegionType TaqDockingZoneRegion;

typedef ShortInt TaqDockingZoneImage;

class DELPHICLASS TaqVS2005Docker;
class DELPHICLASS TaqVS2005DockingStyle;
class PASCALIMPLEMENTATION TaqVS2005Docker : public Aqdocking::TaqDocker
{
	typedef Aqdocking::TaqDocker inherited;
	
private:
	TaqVS2005DockingStyle* __fastcall GetStyle(void);
	
protected:
	Types::TPoint __fastcall GetDockingZoneOffset(Aqdocking::TaqDockingRegionType ARegion);
	__property TaqVS2005DockingStyle* Style = {read=GetStyle};
	
public:
	virtual Aqdocking::TaqDockingRegionType __fastcall GetDockingRegionType(const Types::TPoint &APoint);
	virtual unsigned __fastcall GetDockingZoneRgn(Aqdocking::TaqDockingRegionType ARegion);
	virtual bool __fastcall HasDockingZone(Aqdocking::TaqDockingRegionType ARegion);
	virtual Types::TRect __fastcall GetDockingRect(Aqdocking::TaqDockingRegionType ARegion, Aqdockingbase::TaqCustomDockingControl* ADragControl);
	virtual unsigned __fastcall GetDockingFrameRgn(Aqdocking::TaqDockingRegionType ARegion, Aqdockingbase::TaqCustomDockingControl* ADragControl);
public:
	/* TaqDocker.Create */ inline __fastcall virtual TaqVS2005Docker(Aqdockingbase::TaqCustomDockingManager* ADockingManager) : Aqdocking::TaqDocker(ADockingManager) { }
	
public:
	/* TaqOwnedObject.Destroy */ inline __fastcall virtual ~TaqVS2005Docker(void) { }
	
};


class DELPHICLASS TaqVS2005MainItemDocker;
class PASCALIMPLEMENTATION TaqVS2005MainItemDocker : public TaqVS2005Docker
{
	typedef TaqVS2005Docker inherited;
	
public:
	virtual Aqdocking::TaqDockingRegionType __fastcall GetDockingRegionType(const Types::TPoint &APoint);
	virtual unsigned __fastcall GetDockingZoneRgn(Aqdocking::TaqDockingRegionType ARegion);
	virtual bool __fastcall HasDockingZone(Aqdocking::TaqDockingRegionType ARegion);
public:
	/* TaqDocker.Create */ inline __fastcall virtual TaqVS2005MainItemDocker(Aqdockingbase::TaqCustomDockingManager* ADockingManager) : TaqVS2005Docker(ADockingManager) { }
	
public:
	/* TaqOwnedObject.Destroy */ inline __fastcall virtual ~TaqVS2005MainItemDocker(void) { }
	
};


class DELPHICLASS TaqDockingZone;
class PASCALIMPLEMENTATION TaqDockingZone : public Forms::TCustomForm
{
	typedef Forms::TCustomForm inherited;
	
private:
	Controls::TImageList* FImages;
	Controls::TImageList* FActiveImages;
	bool FActive;
	int FImageIndex;
	Extctrls::TTimer* FFadeTimer;
	double FAlphaBlendDelta;
	System::Byte FEndAlphaBlendValue;
	int FFadeCounter;
	unsigned FRegion;
	void __fastcall FadeDelayTimer(System::TObject* Sender);
	
protected:
	virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
	void __fastcall InternalShow(bool Show);
	DYNAMIC void __fastcall Paint(void);
	HIDESBASE MESSAGE void __fastcall CMVisibleChanged(Messages::TMessage &Message);
	
public:
	__fastcall TaqDockingZone(Controls::TImageList* AImages, Controls::TImageList* AActiveImages, int AImageIndex);
	__fastcall virtual ~TaqDockingZone(void);
	void __fastcall Fade(System::Byte Transparency, TaqDockerFadeDelay FadeDelay);
	void __fastcall MakeVisible(System::Byte Transparency);
	void __fastcall SetRegion(unsigned ARegion);
public:
	/* TCustomForm.Create */ inline __fastcall virtual TaqDockingZone(Classes::TComponent* AOwner) : Forms::TCustomForm(AOwner) { }
	/* TCustomForm.CreateNew */ inline __fastcall virtual TaqDockingZone(Classes::TComponent* AOwner, int Dummy) : Forms::TCustomForm(AOwner, Dummy) { }
	
public:
	/* TWinControl.CreateParented */ inline __fastcall TaqDockingZone(HWND ParentWindow) : Forms::TCustomForm(ParentWindow) { }
	
};


class DELPHICLASS TaqDockingZoneController;
class PASCALIMPLEMENTATION TaqDockingZoneController : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	TaqVS2005DockingStyle* FStyle;
	Aqdocking::TaqDocker* FDocker;
	Aqdockingbase::TaqCustomDockingControl* FControl;
	StaticArray<TaqDockingZone*, 9> FDockZones;
	Aqdocking::TaqDockingRegionType FActiveRegion;
	TaqDockingZone* __fastcall GetDockZones(TaqDockingZoneRegion Region);
	void __fastcall SetActiveRegion(Aqdocking::TaqDockingRegionType ARegionType);
	
protected:
	__property Aqdockingbase::TaqCustomDockingControl* Control = {read=FControl};
	
public:
	__fastcall TaqDockingZoneController(TaqVS2005DockingStyle* AStyle, Aqdockingbase::TaqCustomDockingControl* AControl);
	__fastcall virtual ~TaqDockingZoneController(void);
	void __fastcall Show(System::Byte Transparency);
	void __fastcall Hide(void);
	void __fastcall Fade(System::Byte Transparency, TaqDockerFadeDelay FadeDelay);
	Aqdocking::TaqDockingRegionType __fastcall FindDockingRegion(const Types::TPoint &APoint);
	__property Aqdocking::TaqDockingRegionType ActiveRegion = {read=FActiveRegion, write=SetActiveRegion, nodefault};
	__property TaqDockingZone* DockZones[TaqDockingZoneRegion Region] = {read=GetDockZones};
};


class DELPHICLASS TaqVS2005Mover;
class PASCALIMPLEMENTATION TaqVS2005Mover : public Aqdocking::TaqMover
{
	typedef Aqdocking::TaqMover inherited;
	
private:
	Aqdockingutils::TaqBucketList* FControllers;
	Classes::TList* FActiveControllers;
	TaqDockingZoneController* FHotController;
	bool FDragJustStarted;
	bool FShowAllDockZones;
	Types::TPoint FOriginDragPosition;
	Aqdockingbase::TaqCustomDockingSite* FDragDockControlSite;
	void __fastcall ClearDockingZones(void);
	void __fastcall EnumDockingZones(void);
	void __fastcall ShowDockingZones(void);
	TaqVS2005DockingStyle* __fastcall GetStyle(void);
	bool __fastcall IsDockingSiteVisible(Aqdockingbase::TaqCustomDockingSite* DockSite);
	bool __fastcall IsDockingControlVisible(Aqdockingbase::TaqCustomDockingControl* DockControl);
	
protected:
	virtual void __fastcall DoDragDock(Aqdockingbase::TaqCustomDockingControl* Target, const Types::TPoint &Coord, unsigned FrameRgn, System::UnicodeString &Info, bool &CanDock, bool &CanFloat);
	Aqdockingbase::TaqCustomDockingControl* __fastcall FindDockingControlInternal(const Types::TPoint &Coord);
	virtual Aqdockingbase::TaqCustomDockingControl* __fastcall FindDockingControl(const Types::TPoint &Coord);
	DYNAMIC void __fastcall EnterInsideContainer(Aqdocking::TaqInsideContainer* AContainer, Aqdocking::TaqDockingRegionType ARegion);
	DYNAMIC void __fastcall LeaveInsideContainer(Aqdocking::TaqInsideContainer* AContainer);
	virtual bool __fastcall CanDockTo(Aqdockingbase::TaqCustomDockingControl* DockTarget);
	TaqDockingZoneController* __fastcall ControllerByControl(Aqdockingbase::TaqCustomDockingControl* AControl);
	Classes::TList* __fastcall ControllersByControl(Aqdockingbase::TaqCustomDockingControl* AControl);
	Aqdockingutils::TaqCustomBucketListIterator* __fastcall ControllerIterator(void);
	void __fastcall SetActiveControllers(Classes::TList* Value);
	void __fastcall SetHotControllerActiveRegion(const Types::TPoint &Point);
	void __fastcall UpdateActiveControllers(Aqdockingbase::TaqCustomDockingControl* Control, const Types::TPoint &Point, bool CanDock);
	__property TaqVS2005DockingStyle* Style = {read=GetStyle};
	
public:
	virtual void __fastcall StartDragging(void);
	virtual void __fastcall EndDragging(const Types::TPoint &Coord, const Types::TRect &Bounds);
	virtual void __fastcall CancelDragging(const Types::TPoint &Coord);
	__fastcall virtual TaqVS2005Mover(Aqdockingbase::TaqCustomDockingManager* ADockingManager);
	__fastcall virtual ~TaqVS2005Mover(void);
};


#pragma option push -b-
enum TaqCustomPaintStage { cpsBefore, cpsAfter };
#pragma option pop