aqmaskforms.hpp

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

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

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

#ifndef AqmaskformsHPP
#define AqmaskformsHPP

#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 <Windows.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Aqdockingui.hpp>	// Pascal unit
#include <Aqdockingutils.hpp>	// Pascal unit

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

namespace Aqmaskforms
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TEndDragEvent)(System::TObject* Sender, bool Successful);

class DELPHICLASS TaqCustomMaskForm;
class PASCALIMPLEMENTATION TaqCustomMaskForm : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	Types::TPoint FCursorOffset;
	Aqdockingui::TaqFrameSize FFrameSize;
	bool FCaptured;
	bool FDragFinished;
	bool FDestroyed;
	Controls::TMouseEvent FOnMouseDown;
	Controls::TMouseMoveEvent FOnMouseMove;
	Controls::TMouseEvent FOnMouseUp;
	Classes::TNotifyEvent FOnFinalize;
	TEndDragEvent FOnEndDrag;
	void __fastcall SetFrameSize(const Aqdockingui::TaqFrameSize Value);
	
protected:
	virtual int __fastcall GetHeight(void) = 0 ;
	virtual unsigned __fastcall GetRegion(void) = 0 ;
	virtual int __fastcall GetWidth(void) = 0 ;
	virtual void __fastcall SetBoundsRect(const Types::TRect &Value) = 0 ;
	virtual void __fastcall SetRegion(const unsigned Value) = 0 ;
	virtual void __fastcall DoCreateMask(void) = 0 ;
	virtual void __fastcall DoDestroyMask(void) = 0 ;
	virtual Types::TRect __fastcall GetBoundsRect(void) = 0 ;
	virtual void __fastcall SetVisible(const bool Value) = 0 ;
	virtual bool __fastcall GetVisible(void) = 0 ;
	virtual Types::TPoint __fastcall ClientToScreen(const Types::TPoint &P) = 0 ;
	virtual void __fastcall DoCaptureFocus(void);
	virtual void __fastcall DoReleaseFocus(void);
	virtual void __fastcall DoMouseMove(Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall DoMouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall DoMouseDown(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall DoEndDrag(bool Successful);
	virtual void __fastcall DoResize(void);
	virtual void __fastcall DoFrameSizeChanged(void);
	virtual void __fastcall DoPaint(void) = 0 ;
	__property bool Captured = {read=FCaptured, nodefault};
	__property bool DragFinished = {read=FDragFinished, nodefault};
	__property bool Destroyed = {read=FDestroyed, nodefault};
	
public:
	__fastcall virtual TaqCustomMaskForm(void);
	__fastcall virtual ~TaqCustomMaskForm(void);
	void __fastcall EndDrag(bool Successful);
	virtual void __fastcall Release(void);
	virtual void __fastcall Finalize(void);
	virtual bool __fastcall SupportsRegions(void);
	__property Types::TPoint CursorOffset = {read=FCursorOffset, write=FCursorOffset};
	__property Types::TRect BoundsRect = {read=GetBoundsRect, write=SetBoundsRect};
	__property int Width = {read=GetWidth, nodefault};
	__property int Height = {read=GetHeight, nodefault};
	__property bool Visible = {read=GetVisible, write=SetVisible, nodefault};
	__property Aqdockingui::TaqFrameSize FrameSize = {read=FFrameSize, write=SetFrameSize, nodefault};
	__property unsigned Region = {read=GetRegion, write=SetRegion, nodefault};
	__property TEndDragEvent OnEndDrag = {read=FOnEndDrag, write=FOnEndDrag};
	__property Classes::TNotifyEvent OnFinalize = {read=FOnFinalize, write=FOnFinalize};
	__property Controls::TMouseMoveEvent OnMouseMove = {read=FOnMouseMove, write=FOnMouseMove};
	__property Controls::TMouseEvent OnMouseUp = {read=FOnMouseUp, write=FOnMouseUp};
	__property Controls::TMouseEvent OnMouseDown = {read=FOnMouseDown, write=FOnMouseDown};
};


typedef TMetaClass* TaqCustomMaskFormClass;

class DELPHICLASS TaqTranslucentMaskForm;
class PASCALIMPLEMENTATION TaqTranslucentMaskForm : public TaqCustomMaskForm
{
	typedef TaqCustomMaskForm inherited;
	
private:
	Forms::TCustomForm* FForm;
	unsigned FRegion;
	Classes::TShiftState FLastMouseState;
	
protected:
	virtual int __fastcall GetHeight(void);
	virtual int __fastcall GetWidth(void);
	virtual void __fastcall DoCreateMask(void);
	virtual void __fastcall DoDestroyMask(void);
	virtual void __fastcall DoCaptureFocus(void);
	virtual void __fastcall DoReleaseFocus(void);
	virtual void __fastcall SetBoundsRect(const Types::TRect &Value);
	virtual Types::TRect __fastcall GetBoundsRect();
	virtual unsigned __fastcall GetRegion(void);
	virtual void __fastcall SetRegion(const unsigned Value);
	virtual void __fastcall SetVisible(const bool Value);
	virtual bool __fastcall GetVisible(void);
	virtual Types::TPoint __fastcall ClientToScreen(const Types::TPoint &P);
	virtual void __fastcall DoFrameSizeChanged(void);
	void __fastcall FormDeactivate(System::TObject* Sender);
	void __fastcall FormMouseMove(System::TObject* Sender, Classes::TShiftState Shift, int X, int Y);
	void __fastcall FormMouseDown(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall FormMouseUp(System::TObject* Sender, Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	void __fastcall FormKeyDown(System::TObject* Sender, System::Word &Key, Classes::TShiftState Shift);
	void __fastcall FormKeyUp(System::TObject* Sender, System::Word &Key, Classes::TShiftState Shift);
	virtual void __fastcall FormPaint(System::TObject* Sender);
	void __fastcall FormShow(System::TObject* Sender);
	virtual Forms::TCustomFormClass __fastcall GetFormClass(void) = 0 ;
	__property Forms::TCustomForm* Form = {read=FForm};
	
public:
	__fastcall virtual TaqTranslucentMaskForm(void);
	virtual bool __fastcall SupportsRegions(void);
public:
	/* TaqCustomMaskForm.Destroy */ inline __fastcall virtual ~TaqTranslucentMaskForm(void) { }
	
};


class DELPHICLASS TaqVCLMaskForm;
class PASCALIMPLEMENTATION TaqVCLMaskForm : public TaqCustomMaskForm
{
	typedef TaqCustomMaskForm inherited;
	
private:
	unsigned FHandle;
	Graphics::TBrush* FBrush;
	bool FVisible;
	Types::TRect FDrawRect;
	Types::TRect FBoundsRect;
	Classes::TShiftState FLastMouseState;
	void __fastcall MainWndProc(Messages::TMessage &Message);
	void __fastcall WndProc(Messages::TMessage &Msg);
	
protected:
	virtual void __fastcall DrawFrame(void);
	virtual int __fastcall GetHeight(void);
	virtual int __fastcall GetWidth(void);
	virtual unsigned __fastcall GetRegion(void);
	virtual void __fastcall SetRegion(const unsigned Value);
	virtual void __fastcall DoCaptureFocus(void);
	virtual void __fastcall DoReleaseFocus(void);
	virtual void __fastcall DoCreateMask(void);
	virtual void __fastcall DoDestroyMask(void);
	virtual void __fastcall SetBoundsRect(const Types::TRect &Value);
	virtual Types::TRect __fastcall GetBoundsRect();
	virtual void __fastcall DoPaint(void);
	virtual void __fastcall SetVisible(const bool Value);
	virtual bool __fastcall GetVisible(void);
	virtual Types::TPoint __fastcall ClientToScreen(const Types::TPoint &P);
	virtual void __fastcall DoFrameSizeChanged(void);
	
public:
	__fastcall virtual TaqVCLMaskForm(void);
public:
	/* TaqCustomMaskForm.Destroy */ inline __fastcall virtual ~TaqVCLMaskForm(void) { }
	
};


typedef TaqVCLMaskForm* TaqMaskForm;

typedef void __fastcall (__closure *TSplitterDropEvent)(int DropCoord);

class DELPHICLASS TaqSplitterForm;
class PASCALIMPLEMENTATION TaqSplitterForm : public TaqVCLMaskForm
{
	typedef TaqVCLMaskForm inherited;
	
private:
	Aqdockingui::TaqSplitterOrientation FOrientation;
	int FMinCoord;
	int FMaxCoord;
	int FCurrentCoord;
	bool FInitialized;
	TSplitterDropEvent FOnSplitterDrop;
	Controls::TCursor FCursor;
	Controls::TWinControl* FSplitterParent;
	int __fastcall FitInBounds(int ALeft, int ARight, int AValue);
	void __fastcall SetCursor(const Controls::TCursor Value);
	
protected:
	virtual void __fastcall DrawFrame(void);
	virtual void __fastcall SetBoundsRect(const Types::TRect &Value);
	virtual void __fastcall DoMouseUp(Controls::TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall DoMouseMove(Classes::TShiftState Shift, int X, int Y);
	virtual void __fastcall DoEndDrag(bool Successful);
	
public:
	__fastcall virtual TaqSplitterForm(void);
	__property Controls::TCursor Cursor = {read=FCursor, write=SetCursor, nodefault};
	__property Aqdockingui::TaqSplitterOrientation Orientation = {read=FOrientation, write=FOrientation, nodefault};
	__property int MinCoord = {read=FMinCoord, write=FMinCoord, nodefault};
	__property int MaxCoord = {read=FMaxCoord, write=FMaxCoord, nodefault};
	__property Controls::TWinControl* SplitterParent = {read=FSplitterParent, write=FSplitterParent};
	__property TSplitterDropEvent OnSplitterDrop = {read=FOnSplitterDrop, write=FOnSplitterDrop};
public:
	/* TaqCustomMaskForm.Destroy */ inline __fastcall virtual ~TaqSplitterForm(void) { }
	
};


//-- var, const, procedure ---------------------------------------------------

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

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