aqdockingvs2005.hpp

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

typedef void __fastcall (__closure *TaqCustomFramePaintEvent)(System::TObject* Sender, Graphics::TCanvas* Canvas, unsigned Region, const Types::TRect &Rect, TaqCustomPaintStage Stage, bool &DefaultDrawing);

class DELPHICLASS TaqVS2005MaskForm;
class PASCALIMPLEMENTATION TaqVS2005MaskForm : public Aqmaskforms::TaqTranslucentMaskForm
{
	typedef Aqmaskforms::TaqTranslucentMaskForm inherited;
	
private:
	System::Byte FTransparency;
	TaqCustomFramePaintEvent FOnCustomPaint;
	Graphics::TBrush* FBrush;
	Graphics::TBrush* FBorder;
	void __fastcall UpdateTransparency(void);
	void __fastcall SetTransparency(const System::Byte Value);
	void __fastcall SetBrush(const Graphics::TBrush* Value);
	void __fastcall SetBorder(const Graphics::TBrush* Value);
	void __fastcall DoColorChanged(System::TObject* Sender);
	
protected:
	virtual void __fastcall DoCreateMask(void);
	virtual void __fastcall SetBoundsRect(const Types::TRect &Value);
	virtual void __fastcall FormPaint(System::TObject* Sender);
	virtual Forms::TCustomFormClass __fastcall GetFormClass(void);
	
public:
	__fastcall virtual TaqVS2005MaskForm(void);
	__fastcall virtual ~TaqVS2005MaskForm(void);
	__property Graphics::TBrush* Border = {read=FBorder, write=SetBorder};
	__property Graphics::TBrush* Brush = {read=FBrush, write=SetBrush};
	__property System::Byte Transparency = {read=FTransparency, write=SetTransparency, nodefault};
	__property TaqCustomFramePaintEvent OnCustomPaint = {read=FOnCustomPaint, write=FOnCustomPaint};
};


class DELPHICLASS TaqVS2005DockingFrame;
class PASCALIMPLEMENTATION TaqVS2005DockingFrame : public Aqdocking::TaqDockingFrame
{
	typedef Aqdocking::TaqDockingFrame inherited;
	
private:
	TaqVS2005DockingStyle* __fastcall GetStyle(void);
	
protected:
	virtual Aqmaskforms::TaqCustomMaskFormClass __fastcall GetMaskFormClass(void);
	__property TaqVS2005DockingStyle* Style = {read=GetStyle};
	
public:
	__fastcall virtual TaqVS2005DockingFrame(Aqdockingbase::TaqCustomDockingManager* ADockingManager);
	__fastcall virtual ~TaqVS2005DockingFrame(void);
};


class DELPHICLASS TaqVS2005DockingFrameOptions;
class PASCALIMPLEMENTATION TaqVS2005DockingFrameOptions : public Classes::TPersistent
{
	typedef Classes::TPersistent inherited;
	
private:
	TaqVS2005DockingStyle* FOwner;
	System::Byte FTransparency;
	Graphics::TBrush* FBorder;
	Graphics::TBrush* FBrush;
	TaqVS2005MaskForm* FForm;
	TaqCustomFramePaintEvent FOnCustomPaint;
	Aqdockingui::TaqFrameSize FBorderSize;
	void __fastcall DoColorChanged(System::TObject* Sender);
	void __fastcall SetBrush(const Graphics::TBrush* Value);
	void __fastcall SetBorder(const Graphics::TBrush* Value);
	void __fastcall SetBorderSize(const Aqdockingui::TaqFrameSize Value);
	
protected:
	void __fastcall RegisterForm(TaqVS2005MaskForm* AForm);
	void __fastcall UnregisterForm(void);
	void __fastcall DoCustomFramePaint(System::TObject* Sender, Graphics::TCanvas* Canvas, unsigned Region, const Types::TRect &Rect, TaqCustomPaintStage Stage, bool &DefaultDrawing);
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	
public:
	__fastcall TaqVS2005DockingFrameOptions(TaqVS2005DockingStyle* AOwner);
	__fastcall virtual ~TaqVS2005DockingFrameOptions(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property Graphics::TBrush* Border = {read=FBorder, write=SetBorder};
	__property Aqdockingui::TaqFrameSize BorderSize = {read=FBorderSize, write=SetBorderSize, default=2};
	__property Graphics::TBrush* Brush = {read=FBrush, write=SetBrush};
	__property System::Byte Transparency = {read=FTransparency, write=FTransparency, default=128};
	__property TaqCustomFramePaintEvent OnCustomPaint = {read=FOnCustomPaint, write=FOnCustomPaint};
};


class DELPHICLASS TaqVS2005DockingZoneOptions;
class PASCALIMPLEMENTATION TaqVS2005DockingZoneOptions : public Classes::TPersistent
{
	typedef Classes::TPersistent inherited;
	
private:
	TaqVS2005DockingStyle* FOwner;
	TaqDockerFadeDelay FFadeInDelay;
	TaqDockerFadeDelay FFadeOutDelay;
	System::Byte FActiveTransparency;
	System::Byte FTransparency;
	
protected:
	DYNAMIC Classes::TPersistent* __fastcall GetOwner(void);
	void __fastcall DoColorChanged(System::TObject* Sender);
	
public:
	__fastcall TaqVS2005DockingZoneOptions(TaqVS2005DockingStyle* AOwner);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property System::Byte ActiveTransparency = {read=FActiveTransparency, write=FActiveTransparency, nodefault};
	__property TaqDockerFadeDelay FadeInDelay = {read=FFadeInDelay, write=FFadeInDelay, nodefault};
	__property TaqDockerFadeDelay FadeOutDelay = {read=FFadeOutDelay, write=FFadeOutDelay, nodefault};
	__property System::Byte Transparency = {read=FTransparency, write=FTransparency, nodefault};
public:
	/* TPersistent.Destroy */ inline __fastcall virtual ~TaqVS2005DockingZoneOptions(void) { }
	
};


struct Aqdockingvs2005__01
{
	
public:
	Types::TPoint Size;
	Types::TPoint Offset;
	unsigned Region;
};


typedef StaticArray<Aqdockingvs2005__01, 10> TaqDockingZoneImageMetrics;

class PASCALIMPLEMENTATION TaqVS2005DockingStyle : public Aqdocking::TaqDockingStyle
{
	typedef Aqdocking::TaqDockingStyle inherited;
	
private:
	Appevnts::TApplicationEvents* FAppEvents;
	Aqdockingutils::TImageListDIB* FImages;
	Aqdockingutils::TImageListDIB* FActiveImages;
	TaqDockingZoneImageMetrics FImageMetrics;
	TaqVS2005DockingFrameOptions* FDockingFrame;
	TaqVS2005DockingZoneOptions* FActiveDockZone;
	TaqVS2005DockingZoneOptions* FDockZone;
	bool FFlashZonesOnStart;
	Controls::TImageList* __fastcall GetImages(void);
	Controls::TImageList* __fastcall GetActiveImages(void);
	TaqDockingZoneImage __fastcall GetImageIndex(Aqdockingbase::TaqCustomDockingControl* Control, TaqDockingZoneRegion Region);
	void __fastcall SetDockingFrame(const TaqVS2005DockingFrameOptions* Value);
	void __fastcall SetActiveDockZone(const TaqVS2005DockingZoneOptions* Value);
	void __fastcall SetDockZone(const TaqVS2005DockingZoneOptions* Value);
	void __fastcall AppSettingChange(System::TObject* Sender, int Flag, const System::UnicodeString Section, int &Result);
	
protected:
	virtual Controls::TImageList* __fastcall CreateImageList(void);
	virtual TaqDockingZoneImageMetrics __fastcall GetDockImageMetrics();
	virtual bool __fastcall HasActiveImages(void);
	virtual void __fastcall UpdateImages(void);
	virtual void __fastcall UpdateActiveImages(void);
	__property Controls::TImageList* Images = {read=GetImages};
	__property Controls::TImageList* ActiveImages = {read=GetActiveImages};
	virtual Aqdocking::TaqDockingFrameClass __fastcall GetDockingFrameClass(void);
	virtual Aqdocking::TaqMoverClass __fastcall GetMoverClass(void);
	virtual Aqdocking::TaqDockerClass __fastcall GetDockerClass(Aqdockingbase::TaqCustomDockingControlClass DockClass);
	
public:
	__fastcall virtual TaqVS2005DockingStyle(Classes::TComponent* AOwner);
	__fastcall virtual ~TaqVS2005DockingStyle(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property TaqVS2005DockingZoneOptions* ActiveDockZone = {read=FActiveDockZone, write=SetActiveDockZone};
	__property TaqVS2005DockingFrameOptions* DockingFrame = {read=FDockingFrame, write=SetDockingFrame};
	__property TaqVS2005DockingZoneOptions* DockZone = {read=FDockZone, write=SetDockZone};
	__property bool FlashZonesOnStart = {read=FFlashZonesOnStart, write=FFlashZonesOnStart, default=1};
};


//-- var, const, procedure ---------------------------------------------------
#define SVS2005DockingStyleName L"VS2005"
static const ShortInt dziLeft = 0x0;
static const ShortInt dziTop = 0x1;
static const ShortInt dziRight = 0x2;
static const ShortInt dziBottom = 0x3;
static const ShortInt dziInside = 0x4;
static const ShortInt dziDetachedLeft = 0x5;
static const ShortInt dziDetachedTop = 0x6;
static const ShortInt dziDetachedRight = 0x7;
static const ShortInt dziDetachedBottom = 0x8;
static const ShortInt dziInsideBottom = 0x9;

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

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