#include <CtrlLib/CtrlLib.h>

using namespace Upp;

struct MyApp : TopWindow {
	virtual void CancelMode();
	virtual void Paint(Draw& w);
	virtual void DragAndDrop(Point p, PasteClip& d);
	virtual void DragLeave();

	Image img;
	bool  dnd;
	
	MyApp() { dnd = false; }
};

void MyApp::Paint(Draw& w)
{
	Size sz = GetSize();
	w.DrawRect(sz, dnd ? SColorInfo() : SColorFace());
	w.DrawImage(0, 0, img);
}

void MyApp::DragAndDrop(Point p, PasteClip& d)
{
	if(AcceptImage(d))
		img = GetImage(d);
	dnd = d.IsAccepted();
	Refresh();
}

void MyApp::DragLeave()
{
	CancelMode();
}

void MyApp::CancelMode()
{
	dnd = false;
	Refresh();
}

GUI_APP_MAIN
{
	MyApp().Run();
}

#include <CtrlLib/CtrlLib.h>

using namespace Upp;

struct MyApp : TopWindow {
	virtual void CancelMode();
	virtual void Paint(Draw& w);
	virtual void DragAndDrop(Point p, PasteClip& d);
	virtual void DragLeave();

	Image img;
	bool  dnd;
	
	MyApp() { dnd = false; }
};

void MyApp::Paint(Draw& w)
{
	Size sz = GetSize();
	w.DrawRect(sz, dnd ? SColorInfo() : SColorFace());
	w.DrawImage(0, 0, img);
}

void MyApp::DragAndDrop(Point p, PasteClip& d)
{
	LOG("DragAndDrop");              // this never gets called
	if(AcceptImage(d))
		img = GetImage(d);
	dnd = d.IsAccepted();
	Refresh();
}

void MyApp::DragLeave()
{
	LOG("DragLeave");                // this never gets called
	CancelMode();
}

void MyApp::CancelMode()
{
	LOG("CancelMode");
	dnd = false;
	Refresh();
}

GUI_APP_MAIN
{
	MyApp().Run();
}

#include <CtrlLib/CtrlLib.h>

using namespace Upp;

struct MyApp : TopWindow {
	virtual void CancelMode();
	virtual void Paint(Draw& w);
	virtual void DragAndDrop(Point p, PasteClip& d);
	virtual void DragLeave();

	Image img;
	String txt;
	bool  dnd;
	
	MyApp() { dnd = false; }
};

void MyApp::Paint(Draw& w)
{
	Size sz = GetSize();
	w.DrawRect(sz, dnd ? SColorInfo() : SColorFace());
	w.DrawImage(0, 0, img);
	w.DrawText(10, 10, txt);
}

void MyApp::DragAndDrop(Point p, PasteClip& d)
{
	LOG("DragAndDrop");
	if(AcceptImage(d)) {
		img = GetImage(d);
		txt = "";
	} else if(AcceptText(d)) {
		txt = GetString(d);
		img.Clear();
	}
	dnd = d.IsAccepted();
	Refresh();
}

void MyApp::DragLeave()
{
	LOG("DragLeave");
	CancelMode();
}

void MyApp::CancelMode()
{
	LOG("CancelMode");
	dnd = false;
	Refresh();
}

GUI_APP_MAIN
{
	MyApp().Run();
}

STDMETHODIMP UDropTarget::DragEnter(LPDATAOBJECT pDataObj, DWORD grfKeyState, POINTL pt, LPDWORD pdwEffect)
{
	GuiLock __;
	LLOG("DragEnter " << pt);
	data = pDataObj;
	data->AddRef();
	fmt.Clear();
	IEnumFORMATETC *fe;
	if(!ctrl || pDataObj->EnumFormatEtc(DATADIR_GET, &fe) != NOERROR) {
		*pdwEffect = DROPEFFECT_NONE;
		return NOERROR;
	}
	FORMATETC fmtetc;
	while(fe->Next(1, &fmtetc, 0) == S_OK) {
		fmt.FindAdd(FromWin32CF(fmtetc.cfFormat));
		if(fmtetc.ptd)
			CoTaskMemFree(fmtetc.ptd);
	}
	fe->Release();
DUMP(fmt)
	DnD(pt, false, pdwEffect, grfKeyState);
	return NOERROR;
}

* C:\upp\out\examples\MSC10.Debug.Debug_Full.Gui.Mt\UWord.exe 15.01.2015 18:19:00, user: admin

fmt = [text/QTF, Rich Text Format, text/rtf, application/rtf, wtext, text]
data = Memory at 03A71D38, size 0x10B = 267
    +0 0x03A71D38 7B 5C 72 74 66 31 5C 61 6E 73 69 5C 61 6E 73 69     {\rtf1\ansi\ansi
   +16 0x03A71D48 63 70 67 31 32 35 32 5C 64 65 66 66 30 7B 5C 66     cpg1252\deff0{\f
   +32 0x03A71D58 6F 6E 74 74 62 6C 7B 5C 66 30 5C 66 73 77 69 73     onttbl{\f0\fswis
   +48 0x03A71D68 73 5C 66 63 68 61 72 73 65 74 30 20 41 72 69 61     s\fcharset0 Aria
   +64 0x03A71D78 6C 3B 7D 7B 5C 66 31 5C 66 74 65 63 68 5C 66 63     l;}{\f1\ftech\fc
   +80 0x03A71D88 68 61 72 73 65 74 32 20 53 79 6D 62 6F 6C 3B 7D     harset2 Symbol;}
   +96 0x03A71D98 7B 5C 66 32 5C 66 63 68 61 72 73 65 74 30 20 57     {\f2\fcharset0 W
  +112 0x03A71DA8 69 6E 67 64 69 6E 67 73 3B 7D 7D 7B 5C 73 74 79     ingdings;}}{\sty
  +128 0x03A71DB8 6C 65 73 68 65 65 74 7B 5C 73 30 5C 73 62 61 73     lesheet{\s0\sbas
  +144 0x03A71DC8 65 64 6F 6E 32 32 32 20 44 65 66 61 75 6C 74 3B     edon222 Default;
  +160 0x03A71DD8 7D 7D 5C 70 61 70 65 72 77 31 31 39 30 34 5C 70     }}\paperw11904\p
  +176 0x03A71DE8 61 70 65 72 68 31 36 38 33 36 5C 6D 61 72 67 6C     aperh16836\margl
  +192 0x03A71DF8 31 31 33 33 5C 6D 61 72 67 72 31 31 33 33 5C 6D     1133\margr1133\m
  +208 0x03A71E08 61 72 67 74 31 31 33 33 5C 6D 61 72 67 62 31 31     argt1133\margb11
  +224 0x03A71E18 33 33 5C 73 30 5C 70 61 72 64 5C 66 73 32 34 5C     33\s0\pard\fs24\
  +240 0x03A71E28 6C 61 6E 67 31 30 33 33 20 66 6B 6A 66 5C 75 32     lang1033 fkjf\u2
  +256 0x03A71E38 33 31 3F 68 75 69 6F 71 72 75 7D                    31?huioqru}     

* C:\upp\out\examples\MSC9.Debug.Debug_Full.Gui\UWord.exe 15.01.2015 19:00:32, user: admin

fmt = [text/x-moz-url, FileGroupDescriptor, FileGroupDescriptorW, FileContents, UniformResourceLocator, UniformResourceLocatorW, text/x-moz-url-data, text/x-moz-url-desc, text/uri-list, text/_moz_htmlcontext, text/_moz_htmlinfo, text/html, HTML Format, wtext, text, application/x-moz-nativeimage, ¤"_þ@ 
0ó, dib, files, Preferred DropEffect, application/x-moz-file-promise-url, application/x-moz-file-promise-dest-filename, DragImageBits, DragContext]

* C:\upp\out\examples\MSC9.Debug.Debug_Full.Gui\UWord.exe 15.01.2015 19:04:35, user: admin

fmt = [Woozle, Object Descriptor, Rich Text Format, HTML Format, text, wtext, "Šü`û0ó, Embed Source]
{\rtf1\adeflang1025\ansi\ansicpg1252\uc1\adeff31507\deff0\stshfdbch31506\stshfloch31506\stshfhich31506\stshfbi31507\deflang1046\deflangfe1046\themelang1046\themelangfe0\themelangcs0{\fonttbl{\f0\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f1\fbidi \fswiss\fcharset0\fprq2{\*\panose 020b0604020202020204}Arial;}
{\f34\fbidi \froman\fcharset1\fprq2{\*\panose 02040503050406030204}Cambria Math;}{\f37\fbidi \fswiss\fcharset0\fprq2{\*\panose 020f0502020204030204}Calibri;}{\flomajor\f31500\fbidi \froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}.................TO LONG TO INCLUDE IN THIS MESSAGE...........

bool   PasteClip::Accept(const char *_fmt)
{
	Vector<String> f = Split(_fmt, ';');
	for(int i = 0; i < f.GetCount(); i++) {
		if(IsAccepted() && fmt == f[i])
			return paste;
		if(IsAvailable(f[i])) {
			accepted = true;
			if(paste) {
				fmt = f[i];
				DDUMP(fmt); // NEW
				data = Get(f[i]);
				SaveFile(GetHomeDirFile("data.bin"), data); // NEW, Set appropriate path here....
				return true;
			}
			break;
		}
	}
	return false;
}

* C:\upp\out\examples\MSC9.Debug.Debug_Full.Gui.Mt\UWord.exe 22.01.2015 17:05:00, user: admin
fmt = dib

Image GetImage(PasteClip& clip)
{
	GuiLock __;
	Image m;
	if(Accept<Image>(clip)) {
		LoadFromString(m, ~clip);
		if(!m.IsEmpty())
			return m;
	}
	if(clip.Accept("dib")) {
LOG("DIB accepted");
		String data = ~clip;
		if((unsigned)data.GetCount() < sizeof(BITMAPINFO)) return Null;
LOG("DIB accepted 2");
		BITMAPINFO *lpBI = 	(BITMAPINFO *)~data;
		BITMAPINFOHEADER& hdr = lpBI->bmiHeader;
		byte *bits = (byte *)lpBI + hdr.biSize;
		if(hdr.biBitCount <= 8)
			bits += (hdr.biClrUsed ? hdr.biClrUsed : 1 << hdr.biBitCount) * sizeof(RGBQUAD);
		if(hdr.biBitCount >= 16 || hdr.biBitCount == 32) {
			if(hdr.biCompression == 3)
				bits += 12;
			if(hdr.biClrUsed != 0)
				bits += hdr.biClrUsed * sizeof(RGBQUAD);
		}
DUMP(bits);
DUMP((int)hdr.biHeight);
DUMP((int)hdr.biWidth);
		int h = abs((int)hdr.biHeight);
		ImageDraw   iw(hdr.biWidth, h);
		::StretchDIBits(iw.GetHandle(),
			0, 0, hdr.biWidth, h,
			0, 0, hdr.biWidth, h,
			bits, lpBI, DIB_RGB_COLORS, SRCCOPY);
		return iw;
	}
	return Null;
}

* C:\upp\out\examples\MSC9.Debug.Debug_Full.Gui.Mt\UWord.exe 23.01.2015 16:02:45, user: admin
DIB accepted

	if(clip.Accept("dib")) {
LOG("DIB accepted");
		String data = ~clip;
DUMPHEX(data);

* C:\upp\out\examples\MSC9.Debug.Debug_Full.Gui.Mt\UWord.exe 24.01.2015 10:52:52, user: admin
DIB accepted
data = Memory at 0018E754, size 0x0 = 0

String UDropTarget::Get(const char *fmt) const
{
	FORMATETC fmtetc = ToFORMATETC(fmt);
	STGMEDIUM s;
        HRESULT hr = data->GetData(&fmtetc, &s);
        DDUMP(hr); DDUMP(hr == S_OK); DDUMP(s.tymed); DDUMP(s.tymed == TYMED_HGLOBAL);
	if(hr == S_OK && s.tymed == TYMED_HGLOBAL) {
		char *val = (char *)GlobalLock(s.hGlobal);
		String data(val, (int)GlobalSize(s.hGlobal));
		GlobalUnlock(s.hGlobal);
		ReleaseStgMedium(&s);
		return data;
    }
	return Null;
}

* C:\upp\out\examples\MSC9.Debug.Debug_Full.Gui.Mt\UWord.exe 26.01.2015 16:57:39, user: admin
hr = -2147221404
hr == ((HRESULT)0L) = false
s.tymed = 0
s.tymed == TYMED_HGLOBAL = false
DIB accepted
data = Memory at 0018E754, size 0x0 = 0