outlookgroupedlist.hpp

TMS component pack v4.2 for delphi

	__property OnContextPopup ;
	__property OnDblClick ;
	__property OnDockDrop ;
	__property OnDockOver ;
	__property OnDragDrop ;
	__property OnDragOver ;
	__property OnEndDock ;
	__property OnEndDrag ;
	__property OnEnter ;
	__property OnExit ;
	__property OnGetSiteInfo ;
	__property OnMouseDown ;
	__property OnMouseMove ;
	__property OnMouseUp ;
	__property OnMouseWheel ;
	__property OnMouseWheelDown ;
	__property OnMouseWheelUp ;
	__property OnKeyDown ;
	__property OnKeyPress ;
	__property OnKeyUp ;
	__property OnResize ;
	__property OnStartDock ;
	__property OnStartDrag ;
	__property OnUnDock ;
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TOutlookGroupedList(HWND ParentWindow) : Forms::TScrollingWinControl(ParentWindow) { }
	#pragma option pop
	
};


class PASCALIMPLEMENTATION TOGLThumbnailOptions : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	TOutlookGroupedList* FOwner;
	Byte FHorizSpacing;
	Byte FVertSpacing;
	Word FThumbnailWidth;
	Word FThumbnailHeight;
	void __fastcall SetHorizSpacing(const Byte Value);
	void __fastcall SetVertSpacing(const Byte Value);
	void __fastcall SetThumbnailWidth(const Word Value);
	void __fastcall SetThumbnailHeight(const Word Value);
	
public:
	__fastcall TOGLThumbnailOptions(TOutlookGroupedList* AOwner);
	
__published:
	__property Byte HorizSpacing = {read=FHorizSpacing, write=SetHorizSpacing, default=12};
	__property Byte VertSpacing = {read=FVertSpacing, write=SetVertSpacing, default=12};
	__property Word ThumbnailWidth = {read=FThumbnailWidth, write=SetThumbnailWidth, default=96};
	__property Word ThumbnailHeight = {read=FThumbnailHeight, write=SetThumbnailHeight, default=96};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TOGLThumbnailOptions(void) { }
	#pragma option pop
	
};


typedef TOGLHintData *POGLHintData;

class DELPHICLASS TOGLHintWindow;
class PASCALIMPLEMENTATION TOGLHintWindow : public Controls::THintWindow 
{
	typedef Controls::THintWindow inherited;
	
private:
	Graphics::TBitmap* FBmpBlend;
	#pragma pack(push,1)
	TOGLHintData FHintData;
	#pragma pack(pop)
	HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
	HIDESBASE MESSAGE void __fastcall WMNCPaint(Messages::TMessage &Message);
	MESSAGE void __fastcall WMShowWindow(Messages::TWMShowWindow &Message);
	HIDESBASE MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
	
protected:
	virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TOGLHintWindow(Classes::TComponent* AOwner);
	__fastcall virtual ~TOGLHintWindow(void);
	virtual void __fastcall ActivateHint(const Types::TRect &Rect, const AnsiString AHint);
	virtual Types::TRect __fastcall CalcHintRect(int MaxWidth, const AnsiString AHint, void * AData);
	virtual bool __fastcall IsHintMsg(tagMSG &Msg);
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TOGLHintWindow(HWND ParentWindow) : Controls::THintWindow(ParentWindow) { }
	#pragma option pop
	
};


class DELPHICLASS TOGLEnumFormatEtc;
class PASCALIMPLEMENTATION TOGLEnumFormatEtc : public System::TInterfacedObject 
{
	typedef System::TInterfacedObject inherited;
	
private:
	TOutlookGroupedList* FOutlookGroupedList;
	DynamicArray<tagFORMATETC >  FFormatEtcArray;
	int FIndex;
	int __fastcall GetFormatCount(void);
	
protected:
	__property int FormatCount = {read=GetFormatCount, nodefault};
	__property int Index = {read=FIndex, write=FIndex, nodefault};
	
public:
	__fastcall TOGLEnumFormatEtc(const TOutlookGroupedList* AOutlookGroupedList, const TFormatEtcArray AFormatEtcArray, const int AIndex);
	__fastcall virtual ~TOGLEnumFormatEtc(void);
	HRESULT __stdcall Next(int celt, /* out */ void *elt, PLongint pceltFetched);
	HRESULT __stdcall Skip(int celt);
	HRESULT __stdcall Reset(void);
	HRESULT __stdcall Clone(/* out */ _di_IEnumFORMATETC &Enum);
private:
	void *__IEnumFORMATETC;	/* IEnumFORMATETC */
	
public:
	operator IEnumFORMATETC*(void) { return (IEnumFORMATETC*)&__IEnumFORMATETC; }
	
};


class DELPHICLASS TOGLDataObject;
class PASCALIMPLEMENTATION TOGLDataObject : public System::TInterfacedObject 
{
	typedef System::TInterfacedObject inherited;
	
private:
	TOutlookGroupedList* FOwner;
	DynamicArray<tagFORMATETC >  FFormatEtcArray;
	
protected:
	bool __fastcall EqualFormatEtc(const tagFORMATETC &FormatEtc1, const tagFORMATETC &FormatEtc2);
	__property TOutlookGroupedList* Owner = {read=FOwner};
	__property TFormatEtcArray FormatEtcArray = {read=FFormatEtcArray, write=FFormatEtcArray};
	
public:
	__fastcall virtual TOGLDataObject(TOutlookGroupedList* AOwner);
	__fastcall virtual ~TOGLDataObject(void);
	HRESULT __stdcall GetData(const tagFORMATETC &FormatEtcIn, /* out */ tagSTGMEDIUM &medium);
	HRESULT __stdcall GetDataHere(const tagFORMATETC &FormatEtcIn, /* out */ tagSTGMEDIUM &medium);
	HRESULT __stdcall QueryGetData(const tagFORMATETC &FormatEtcIn);
	HRESULT __stdcall GetCanonicalFormatEtc(const tagFORMATETC &FormatEtcIn, /* out */ tagFORMATETC &FormatEtcOut);
	HRESULT __stdcall SetData(const tagFORMATETC &FormatEtcIn, tagSTGMEDIUM &medium, BOOL fRelease);
	HRESULT __stdcall EnumFormatEtc(int dwDirection, /* out */ _di_IEnumFORMATETC &EnumFormatEtc);
	HRESULT __stdcall DAdvise(const tagFORMATETC &FormatEtcIn, int advf, const _di_IAdviseSink advSink, /* out */ int &dwConnection);
	HRESULT __stdcall DUnadvise(int dwConnection);
	HRESULT __stdcall EnumDAdvise(/* out */ _di_IEnumSTATDATA &enumAdvise);
private:
	void *__IDataObject;	/* IDataObject */
	
public:
	operator IDataObject*(void) { return (IDataObject*)&__IDataObject; }
	
};


struct TSHDragImage;
typedef TSHDragImage *PSHDragImage;

#pragma pack(push,1)
struct TSHDragImage
{
	
public:
	#pragma pack(push,1)
	tagSIZE sizeDragImage;
	#pragma pack(pop)
	#pragma pack(push,1)
	Types::TPoint ptOffset;
	#pragma pack(pop)
	HBITMAP hbmpDragImage;
	unsigned crColorKey;
} ;
#pragma pack(pop)

__interface IDropTargetHelper;
typedef System::DelphiInterface<IDropTargetHelper> _di_IDropTargetHelper;
__interface  INTERFACE_UUID("{4657278B-411B-11D2-839A-00C04FD918D0}") IDropTargetHelper  : public IInterface 
{
	
public:
	virtual HRESULT __stdcall DragEnter(HWND hwndTarget, _di_IDataObject pDataObject, Types::TPoint &ppt, int dwEffect) = 0 ;
	virtual HRESULT __stdcall DragLeave(void) = 0 ;
	virtual HRESULT __stdcall DragOver(Types::TPoint &ppt, int dwEffect) = 0 ;
	virtual HRESULT __stdcall Drop(_di_IDataObject pDataObject, Types::TPoint &ppt, int dwEffect) = 0 ;
	virtual HRESULT __stdcall Show(BOOL fShow) = 0 ;
};

__interface IDragSourceHelper;
typedef System::DelphiInterface<IDragSourceHelper> _di_IDragSourceHelper;
__interface  INTERFACE_UUID("{DE5BF786-477A-11D2-839D-00C04FD918D0}") IDragSourceHelper  : public IInterface 
{
	
public:
	virtual HRESULT __stdcall InitializeFromBitmap(TSHDragImage &SHDragImage, _di_IDataObject pDataObject) = 0 ;
	virtual HRESULT __stdcall InitializeFromWindow(HWND Window, Types::TPoint &ppt, _di_IDataObject pDataObject) = 0 ;
};

class DELPHICLASS TOGLDragEngine;
class PASCALIMPLEMENTATION TOGLDragEngine : public System::TInterfacedObject 
{
	typedef System::TInterfacedObject inherited;
	
private:
	TOutlookGroupedList* FOwner;
	bool FDropActive;
	_di_IDataObject FDataObject;
	_di_IDropTargetHelper FDropTargetHelper;
	_di_IDataObject __stdcall GetDataObject();
	bool __stdcall GetDropActive(void);
	
public:
	__fastcall virtual TOGLDragEngine(TOutlookGroupedList* AOwner);
	__fastcall virtual ~TOGLDragEngine(void);
	HRESULT __stdcall QueryContinueDrag(BOOL fEscapePressed, int KeyState);
	HRESULT __stdcall GiveFeedback(int dwEffect);
	HRESULT __stdcall DragEnter(const _di_IDataObject DataObject, int KeyState, const Types::TPoint Pt, int &dwEffect);
	HRESULT __stdcall DragOver(int KeyState, const Types::TPoint Pt, int &dwEffect);
	HRESULT __stdcall DragLeave(void);
	HRESULT __stdcall Drop(const _di_IDataObject DataObject, int KeyState, const Types::TPoint Pt, int &dwEffect);
	void __stdcall ForceDragLeave(void);
private:
	void *__IOGLDragEngine;	/* Outlookgroupedlist::IOGLDragEngine */
	void *__IDropSource;	/* IDropSource */
	void *__IDropTarget;	/* IDropTarget */
	
public:
	operator IDropTarget*(void) { return (IDropTarget*)&__IDropTarget; }
	operator IDropSource*(void) { return (IDropSource*)&__IDropSource; }
	operator IOGLDragEngine*(void) { return (IOGLDragEngine*)&__IOGLDragEngine; }
	
};


//-- var, const, procedure ---------------------------------------------------
#define DefaultAutoOptions (Set<TOGLAutoOption, toAutoExpandOnCreate, toAutoDeleteMovedItems> () << TOGLAutoOption(0) << TOGLAutoOption(3) << TOGLAutoOption(4) << TOGLAutoOption(5) )
#define DefaultDragOptions (Set<TOGLDragOption, doOLEAcceptDrop, doOLEShowDragImage> () << TOGLDragOption(0) << TOGLDragOption(1) << TOGLDragOption(2) )
#define DefaultSelectionOptions (Set<TOGLSelectionOption, soMultiSelect, soRightClickSelect> () << TOGLSelectionOption(0) << TOGLSelectionOption(1) )
#define DefaultDragOperations (Set<TOGLDragOperation, doCopy, doLink> () << TOGLDragOperation(0) )
static const Shortint NoColumn = -1;
static const Shortint InvalidColumn = -2;
extern PACKAGE GUID IID_IDragSourceHelper;
extern PACKAGE GUID IID_IDropTargetHelper;
extern PACKAGE GUID IID_IDropTarget;
extern PACKAGE GUID CLSID_DragDropHelper;
#define SID_IDragSourceHelper "{DE5BF786-477A-11D2-839D-00C04FD918D0}"
#define SID_IDropTargetHelper "{4657278B-411B-11D2-839A-00C04FD918D0}"
#define SID_IDropTarget "{00000122-0000-0000-C000-000000000046}"
extern PACKAGE tagFORMATETC DefaultGlobalClipboardFormat;
extern PACKAGE tagFORMATETC DefaultStreamClipboardFormat;

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

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