// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Rvdragdrop.pas' rev: 10.00

#ifndef RvdragdropHPP
#define RvdragdropHPP

#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 <Sysutils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Activex.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Rvstr.hpp>	// Pascal unit
#include <Rvuni.hpp>	// Pascal unit
#include <Rvscroll.hpp>	// Pascal unit
#include <Shlobj.hpp>	// Pascal unit
#include <Rvclasses.hpp>	// Pascal unit
#include <Rvtypes.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------
DECLARE_DINTERFACE_TYPE(IDropTarget)
DECLARE_DINTERFACE_TYPE(IDropSource)
DECLARE_DINTERFACE_TYPE(IEnumFORMATETC)

namespace Rvdragdrop
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TRVDropTarget;
class PASCALIMPLEMENTATION TRVDropTarget : public Rvscroll::TRVScrollerInternalIfcObject 
{
	typedef Rvscroll::TRVScrollerInternalIfcObject inherited;
	
private:
	bool FAccepted;
	bool __fastcall HasAcceptableFormats(const _di_IDataObject DataObj);
	bool __fastcall AllowMoving(int KeyState, int Effect);
	int __fastcall GetEffect(int KeyState, int Effect);
	void __fastcall FillFormatEtc(tagFORMATETC &FmtEtc, Word Format);
	bool __fastcall GetFiles(const unsigned Handle, Classes::TStrings* Files);
	
protected:
	DYNAMIC Types::TPoint __fastcall ScreenToRichView(const Types::TPoint &pt);
	DYNAMIC void __fastcall DoDragDropCaretChanged(void);
	
public:
	virtual HRESULT __stdcall DragEnter(const _di_IDataObject DataObj, int KeyState, const Types::TPoint pt, int &Effect);
	HRESULT __stdcall DragOver(int KeyState, const Types::TPoint pt, int &Effect);
	HRESULT __stdcall DragLeave(void);
	HRESULT __stdcall Drop(const _di_IDataObject DataObj, int KeyState, const Types::TPoint pt, int &Effect);
	bool __fastcall GetMedium(const _di_IDataObject DataObj, Word Format, tagSTGMEDIUM &StgMedium);
	Rvclasses::TRVMemoryStream* __fastcall GetAsStream(const _di_IDataObject DataObj, Word Format);
	bool __fastcall GetAsTextA(const _di_IDataObject DataObj, Word Format, AnsiString &s);
	bool __fastcall GetAsTextW(const _di_IDataObject DataObj, Word Format, AnsiString &s);
	Graphics::TBitmap* __fastcall GetAsBitmap(const _di_IDataObject DataObj, bool TryDIBFirst);
	Graphics::TMetafile* __fastcall GetAsMetafile(const _di_IDataObject DataObj);
	Classes::TStringList* __fastcall GetAsFiles(const _di_IDataObject DataObj);
	bool __fastcall HasFormat(const _di_IDataObject DataObj, Word Format);
	__fastcall virtual ~TRVDropTarget(void);
	DYNAMIC bool __fastcall RegisterDragDropWindow(void);
	DYNAMIC void __fastcall UnRegisterDragDropWindow(void);
public:
	#pragma option push -w-inl
	/* TRVScrollerInternalIfcObject.Create */ inline __fastcall virtual TRVDropTarget(Rvscroll::TRVScroller* AOwner) : Rvscroll::TRVScrollerInternalIfcObject(AOwner) { }
	#pragma option pop
	
private:
	void *__IDropTarget;	/* IDropTarget */
	
public:
	operator IDropTarget*(void) { return (IDropTarget*)&__IDropTarget; }
	
};


class DELPHICLASS TRVEnumFormatEtc;
class PASCALIMPLEMENTATION TRVEnumFormatEtc : public System::TInterfacedObject 
{
	typedef System::TInterfacedObject inherited;
	
private:
	Graphics::TGraphic* FGraphic;
	int FIndex;
	Word __fastcall GetCurFormat(void);
	
public:
	__fastcall TRVEnumFormatEtc(Graphics::TGraphic* Graphic, int Index);
	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);
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRVEnumFormatEtc(void) { }
	#pragma option pop
	
private:
	void *__IEnumFORMATETC;	/* IEnumFORMATETC */
	
public:
	operator IEnumFORMATETC*(void) { return (IEnumFORMATETC*)&__IEnumFORMATETC; }
	
};


class DELPHICLASS TRVDropSource;
class PASCALIMPLEMENTATION TRVDropSource : public Rvscroll::TRVScrollerInternalIfcObject 
{
	typedef Rvscroll::TRVScrollerInternalIfcObject inherited;
	
protected:
	tagSTGMEDIUM FMedium;
	bool FUseMedium;
	DYNAMIC bool __fastcall IsAvailableFormat(Word Format);
	DYNAMIC Classes::TMemoryStream* __fastcall GetAsStream(Word Format);
	DYNAMIC HRESULT __fastcall GetAsHandle(Word Format, unsigned &Handle);
	DYNAMIC HRESULT __fastcall SaveToHandle(Word Format, unsigned Handle);
	
public:
	HRESULT __stdcall QueryContinueDrag(BOOL FEscapePressed, int KeyState);
	HRESULT __stdcall GiveFeedback(int Effect);
	virtual HRESULT __stdcall GetData(const tagFORMATETC &FormatEtcIn, /* out */ tagSTGMEDIUM &Medium);
	virtual HRESULT __stdcall GetDataHere(const tagFORMATETC &FormatEtcIn, /* out */ tagSTGMEDIUM &Medium);
	virtual HRESULT __stdcall QueryGetData(const tagFORMATETC &FormatEtc);
	virtual HRESULT __stdcall GetCanonicalFormatEtc(const tagFORMATETC &FormatEtc, /* out */ tagFORMATETC &FormatEtcOut);
	virtual HRESULT __stdcall SetData(const tagFORMATETC &FormatEtc, tagSTGMEDIUM &Medium, BOOL FRelease);
	virtual HRESULT __stdcall EnumFormatEtc(int Direction, /* out */ _di_IEnumFORMATETC &EnumFormatEtc);
	virtual HRESULT __stdcall DAdvise(const tagFORMATETC &FormatEtc, int advf, const _di_IAdviseSink advsink, /* out */ int &Connection);
	virtual HRESULT __stdcall DUnadvise(int Connection);
	virtual HRESULT __stdcall EnumDAdvise(/* out */ _di_IEnumSTATDATA &EnumAdvise);
	__fastcall virtual ~TRVDropSource(void);
	bool __fastcall StoreData(Word Format);
public:
	#pragma option push -w-inl
	/* TRVScrollerInternalIfcObject.Create */ inline __fastcall virtual TRVDropSource(Rvscroll::TRVScroller* AOwner) : Rvscroll::TRVScrollerInternalIfcObject(AOwner) { }
	#pragma option pop
	
private:
	void *__IDropSource;	/* IDropSource */
	void *__IDataObject;	/* IDataObject */
	
public:
	operator IDataObject*(void) { return (IDataObject*)&__IDataObject; }
	operator IDropSource*(void) { return (IDropSource*)&__IDropSource; }
	
};


typedef TMetaClass* TRVDropSourceClass;

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

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

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