🚀 go-pugleaf

"Remy Lebeau \(TeamB\)" <no.spam@no.spam.com> wrote:
>
>You will need to use OLE Drag&Drop for that.  Specifically, you need to
>derive your own classes from IDropSource and IDataObject, and then call
>DoDragDrop().  Refer to MSDN for more details.
>
>
>Gambit
>
>

So much for beautifully, but if I want to insert (for instance in Word) formatted text. I tried to do this inserting text in format HTML. The Following code does not work. As it is correct to do this?

void __fastcall TForm1::DBGrid1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    if(!Shift.Contains(ssLeft)) return;

    TGridCoord GC = DBGrid1->MouseCoord(X, Y);

    if(GC.X || GC.Y) return;

    m_bDragMode = true;

    TStringList *sl = new TStringList();
    sl->Add("<HTML>");
    sl->Add("<BODY>");
    sl->Add("<B>bold.</B> <I><B>This is bold italic.</B></I> <I>This</I>");
    sl->Add("</BODY>");
    sl->Add("</HTML>");
    wstr = sl->Text;
    delete sl;
}

void __fastcall TForm1::DBGrid1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
    if(m_bDragMode && Shift.Contains(ssLeft)) {

        USES_CONVERSION;

		TDropSource* pdsrc = new TDropSource;
		if(pdsrc == NULL)
			return;
		pdsrc->AddRef();

		TDataObject* pdobj = new TDataObject(pdsrc);
		if(pdobj == NULL)
			return;
		pdobj->AddRef();

		FORMATETC fmtetc = {0};
		fmtetc.cfFormat = RegisterClipboardFormat("HTML Format");//CF_TEXT;
		fmtetc.dwAspect = DVASPECT_CONTENT;
		fmtetc.lindex = -1;
		fmtetc.tymed = TYMED_HGLOBAL;

		STGMEDIUM medium = {0};
		medium.tymed = TYMED_HGLOBAL;
		TCHAR* str = OLE2T(wstr.c_bstr());

		medium.hGlobal = GlobalAlloc(GMEM_MOVEABLE, strlen(str)+1); //for NULL
		TCHAR* pMem = (TCHAR*)GlobalLock(medium.hGlobal);
		strcpy(pMem,str);
		GlobalUnlock(medium.hGlobal);

		pdobj->SetData(&fmtetc,&medium,TRUE);

		TDragSourceHelper dragSrcHelper;
		TPoint ptDrag(X, Y);
		dragSrcHelper.InitializeFromWindow(DBGrid1->Handle, ptDrag, pdobj);
		DWORD dwEffect;
		HRESULT hr = ::DoDragDrop(pdobj, pdsrc, DROPEFFECT_COPY, &dwEffect);
		pdsrc->Release();
		pdobj->Release();
		m_bDragMode = false;
    }
}