aqdockingutils.hpp

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

	Controls::TWinControl* FControl;
	bool FDestroying;
	TaqWindowNotifyEvent FOnMove;
	TaqWindowNotifyEvent FOnResize;
	TaqWindowNotifyEvent FOnDestroy;
	TaqWindowNotifyEvent FOnScroll;
	void *FDefWndProc;
	bool FIsUnicode;
	virtual void __fastcall WndProc(Messages::TMessage &Message);
	
protected:
	void __fastcall DoMove(void);
	void __fastcall DoResize(void);
	void __fastcall DoScroll(void);
	void __fastcall DoDestroy(void);
	void __fastcall AttachTo(unsigned ControlHandle);
	void __fastcall DetachFrom(unsigned ControlHandle);
	
public:
	__fastcall virtual ~TaqWindowEventFilter(void);
	void __fastcall AttachToWindow(Controls::TWinControl* Wnd);
	virtual void __fastcall DetachFromWindow(void);
	__property Controls::TWinControl* Window = {read=FControl};
	__property unsigned Handle = {read=FControlHandle, nodefault};
	__property TaqWindowNotifyEvent OnMove = {read=FOnMove, write=FOnMove};
	__property TaqWindowNotifyEvent OnResize = {read=FOnResize, write=FOnResize};
	__property TaqWindowNotifyEvent OnScroll = {read=FOnScroll, write=FOnScroll};
	__property TaqWindowNotifyEvent OnDestroy = {read=FOnDestroy, write=FOnDestroy};
public:
	/* TObject.Create */ inline __fastcall TaqWindowEventFilter(void) : System::TObject() { }
	
};


class DELPHICLASS TaqWindowEventFilterEx;
class PASCALIMPLEMENTATION TaqWindowEventFilterEx : public TaqWindowEventFilter
{
	typedef TaqWindowEventFilter inherited;
	
private:
	bool FInitialized;
	
public:
	__fastcall TaqWindowEventFilterEx(void);
	void __fastcall AttachToWindowByHandle(unsigned Handle);
	virtual void __fastcall DetachFromWindow(void);
public:
	/* TaqWindowEventFilter.Destroy */ inline __fastcall virtual ~TaqWindowEventFilterEx(void) { }
	
};


class DELPHICLASS TaqCustomControl;
class PASCALIMPLEMENTATION TaqCustomControl : public Controls::TCustomControl
{
	typedef Controls::TCustomControl inherited;
	
protected:
	MESSAGE void __fastcall WMEraseBackground(Messages::TWMEraseBkgnd &Message);
	virtual void __fastcall Paint(void);
public:
	/* TCustomControl.Create */ inline __fastcall virtual TaqCustomControl(Classes::TComponent* AOwner) : Controls::TCustomControl(AOwner) { }
	/* TCustomControl.Destroy */ inline __fastcall virtual ~TaqCustomControl(void) { }
	
public:
	/* TWinControl.CreateParented */ inline __fastcall TaqCustomControl(HWND ParentWindow) : Controls::TCustomControl(ParentWindow) { }
	
};


class DELPHICLASS TaqChangeLink;
class PASCALIMPLEMENTATION TaqChangeLink : public System::TObject
{
	typedef System::TObject inherited;
	
private:
	System::TObject* FSender;
	Classes::TComponent* FOwner;
	Classes::TNotifyEvent FOnChange;
	
protected:
	__property Classes::TComponent* Owner = {read=FOwner};
	
public:
	__fastcall TaqChangeLink(Classes::TComponent* AOwner);
	DYNAMIC void __fastcall Change(void);
	__property System::TObject* Sender = {read=FSender, write=FSender};
	__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};
public:
	/* TObject.Destroy */ inline __fastcall virtual ~TaqChangeLink(void) { }
	
};


typedef void __fastcall (__closure *TaqFreeNotificationEvent)(Classes::TComponent* Sender);

class DELPHICLASS TaqFreeNotifier;
class PASCALIMPLEMENTATION TaqFreeNotifier : public Classes::TComponent
{
	typedef Classes::TComponent inherited;
	
private:
	TaqFreeNotificationEvent FOnFreeNotification;
	
protected:
	virtual void __fastcall DoFreeNotification(Classes::TComponent* Sender);
	virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation);
	
public:
	void __fastcall AddSender(Classes::TComponent* ASender);
	void __fastcall RemoveSender(Classes::TComponent* ASender);
	__property TaqFreeNotificationEvent OnFreeNotification = {read=FOnFreeNotification, write=FOnFreeNotification};
public:
	/* TComponent.Create */ inline __fastcall virtual TaqFreeNotifier(Classes::TComponent* AOwner) : Classes::TComponent(AOwner) { }
	/* TComponent.Destroy */ inline __fastcall virtual ~TaqFreeNotifier(void) { }
	
};


class DELPHICLASS TaqTargetFreeNotifier;
class PASCALIMPLEMENTATION TaqTargetFreeNotifier : public TaqFreeNotifier
{
	typedef TaqFreeNotifier inherited;
	
private:
	Classes::TComponent* FTarget;
	bool __fastcall GetTargetFreed(void);
	
protected:
	virtual void __fastcall DoFreeNotification(Classes::TComponent* Sender);
	
public:
	__fastcall virtual TaqTargetFreeNotifier(Classes::TComponent* ATarget);
	__property bool TargetFreed = {read=GetTargetFreed, nodefault};
public:
	/* TComponent.Destroy */ inline __fastcall virtual ~TaqTargetFreeNotifier(void) { }
	
};


typedef bool __fastcall (*TaqAllowItemAdd)(Menus::TMenuItem* AItem);

class DELPHICLASS TaqApplicationEvents;
class PASCALIMPLEMENTATION TaqApplicationEvents : public Appevnts::TApplicationEvents
{
	typedef Appevnts::TApplicationEvents inherited;
	
public:
	/* TCustomApplicationEvents.Create */ inline __fastcall virtual TaqApplicationEvents(Classes::TComponent* AOwner) : Appevnts::TApplicationEvents(AOwner) { }
	
public:
	/* TComponent.Destroy */ inline __fastcall virtual ~TaqApplicationEvents(void) { }
	
};


class DELPHICLASS TImageListDIB;
class PASCALIMPLEMENTATION TImageListDIB : public Controls::TImageList
{
	typedef Controls::TImageList inherited;
	
private:
	HIDESBASE void __fastcall CopyImages(unsigned Value, int Index = 0xffffffff);
	HIDESBASE bool __fastcall InternalGetInstRes(unsigned Instance, Imglist::TResType ResType, System::WideChar * Name, int Width, unsigned LoadFlags, Graphics::TColor MaskColor);
	
public:
	HIDESBASE bool __fastcall GetInstRes(unsigned Instance, Imglist::TResType ResType, const System::UnicodeString Name, int Width, unsigned LoadFlags, Graphics::TColor MaskColor);
	void __fastcall CreateRegionFromItem(int ImageIndex, unsigned &Region);
public:
	/* TCustomImageList.Create */ inline __fastcall virtual TImageListDIB(Classes::TComponent* AOwner) : Controls::TImageList(AOwner) { }
	/* TCustomImageList.CreateSize */ inline __fastcall TImageListDIB(int AWidth, int AHeight) : Controls::TImageList(AWidth, AHeight) { }
	/* TCustomImageList.Destroy */ inline __fastcall virtual ~TImageListDIB(void) { }
	
};


__interface IaqCustomDesigner;
typedef System::DelphiInterface<IaqCustomDesigner> _di_IaqCustomDesigner;
__interface  INTERFACE_UUID("{02A07181-F50B-4DDE-A2B0-F078BF26DB18}") IaqCustomDesigner  : public System::IInterface 
{
	
public:
	virtual void __fastcall SelectComponent(Classes::TPersistent* Component) = 0 /* overload */;
	virtual void __fastcall SelectComponent(Classes::TComponent* Manager, Classes::TPersistent* Component) = 0 /* overload */;
	virtual System::UnicodeString __fastcall UniqueName(Classes::TComponent* Owner, const System::UnicodeString BaseName) = 0 ;
	virtual void __fastcall Modified(Classes::TPersistent* Instance) = 0 ;
};

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE unsigned aqNullHandle;
extern PACKAGE GUID GUID_NULL;
extern PACKAGE TaqRegionComplexity aqRegionError;
extern PACKAGE TaqRegionComplexity aqRegionSimple;
extern PACKAGE TaqRegionComplexity aqRegionComplex;
extern PACKAGE TaqRegionComplexity aqRegionEmpty;
extern PACKAGE _di_IaqCustomDesigner aqIDEDesigner;
extern PACKAGE void __fastcall aqWriteString(Classes::TStream* AStream, const System::UnicodeString AString);
extern PACKAGE System::UnicodeString __fastcall aqReadString(Classes::TStream* AStream);
extern PACKAGE void __fastcall aqWriteGUID(Classes::TStream* AStream, const GUID &AValue);
extern PACKAGE void __fastcall aqReadGUID(Classes::TStream* AStream, /* out */ GUID &AValue);
extern PACKAGE void __fastcall aqGetDesigner(Classes::TPersistent* Obj, /* out */ Classes::_di_IDesignerNotify &Result);
extern PACKAGE void __fastcall aqNotifyDesigner(Classes::TPersistent* Self, Classes::TPersistent* Item, Classes::TOperation Operation);
extern PACKAGE void __fastcall aqMergeMenu(Menus::TMenu* Source, HMENU Dest, TaqAllowItemAdd Proc = 0x0);
extern PACKAGE void __fastcall aqMergeMenuItems(Menus::TMenuItem* Source, Menus::TMenu* Dest, TaqAllowItemAdd Proc = 0x0);
extern PACKAGE bool __fastcall aqIsCaptured(void);
extern PACKAGE void __fastcall aqShowHintWindow(const Types::TPoint &Pos, const System::UnicodeString Text);
extern PACKAGE void __fastcall aqHideHintWindow(void);
extern PACKAGE void __fastcall aqEditCaption(Comctrls::TListItem* Item);
extern PACKAGE void __fastcall aqMakeVisible(Comctrls::TListItem* Item);
extern PACKAGE void __fastcall aqSelectionSort(Classes::PPointerList SortList, int L, int R, Classes::TListSortCompare SCompare);
extern PACKAGE unsigned __fastcall aqGetWindowHandle(Controls::TControl* Window);
extern PACKAGE Controls::TWinControl* __fastcall aqGetRootParent(Controls::TControl* Control);
extern PACKAGE unsigned __fastcall aqGetRootParentHandle(Controls::TControl* Control);
extern PACKAGE unsigned __fastcall aqGetParent(unsigned Handle);
extern PACKAGE int __fastcall aqIsWindowHigher(unsigned Wnd1, unsigned Wnd2);
extern PACKAGE void __fastcall aqEnumChildWindows(unsigned Parent, Classes::TList* Children);
extern PACKAGE void __fastcall aqLockWindowRedraw(unsigned Handle);
extern PACKAGE void __fastcall aqUnlockWindowRedraw(unsigned Handle);
extern PACKAGE int __fastcall aqMouseTrack(const Types::TPoint &P1, const Types::TPoint &P2);
extern PACKAGE Classes::TShiftState __fastcall aqButtonToShiftState(Controls::TMouseButton Button);
extern PACKAGE bool __fastcall aqIsRgnEmpty(unsigned Region);
extern PACKAGE void __fastcall aqTransformRegion(unsigned &Region, const tagXFORM &Transformation);
extern PACKAGE unsigned __fastcall aqDuplicateRegion(unsigned Region);
extern PACKAGE bool __fastcall aqEqualRgn(unsigned Region1, unsigned Region2);
extern PACKAGE TaqRegionComplexity __fastcall aqGetRegionComplexity(unsigned Region);
extern PACKAGE System::UnicodeString __fastcall aqPointToStr(const Types::TPoint &Value);
extern PACKAGE System::UnicodeString __fastcall aqRectToStr(const Types::TRect &Value);
extern PACKAGE int __fastcall aqVarToIntDef(const System::OleVariant &Value, int DefValue = 0x0);
extern PACKAGE bool __fastcall aqVarToBoolDef(const System::OleVariant &Value, bool DefValue = false);
extern PACKAGE System::Byte __fastcall aqVarToByteDef(const System::OleVariant &Value, System::Byte DefValue = (System::Byte)(0x0));
extern PACKAGE Types::TPoint __fastcall aqVarToPointDef(const System::OleVariant &Value, const Types::TPoint &DefValue);
extern PACKAGE Types::TRect __fastcall aqVarToRectDef(const System::OleVariant &Value, const Types::TRect &DefValue);
extern PACKAGE int __fastcall PosEx(const System::UnicodeString SubStr, const System::UnicodeString S, unsigned Offset = (unsigned)(0x1));

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

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