FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Richtext
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
Richtext
Posted: Tue Dec 30, 2008 01:38 PM
Hello Antonio,

For drag and drop to a RichTxt control I would like to distinguish between text and files.

drop a text or email fro outlook


drop a file from explorer


To detect a text drop I watch
GetWindowText( ::hWnd ) and changed the HandleEvent method.
This is working. But I can’t find out in which DATA a file drop is stored.

Could you please help me.


Thanks in advance
Otto



METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS xTRich
local nRow, nCol, nFlags
do case
case nMsg == WM_NCHITTEST
if ::cCargo = GetWindowText( ::hWnd ) .or. len(ALLTRIM(GetWindowText( ::hWnd )))=0

else
::MButtonDown( nRow, nCol, nFlags )
::cCargo := GetWindowText( ::hWnd )

endif
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Richtext
Posted: Tue Dec 30, 2008 07:54 PM

Otto,

We are reviewing docs related to your question.

Please expect an answer from us asap,

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
Re: Richtext
Posted: Wed Dec 31, 2008 07:58 AM

Hello Antonio,

I think I can find out with

cText1 := ::SaveAsRTF()

but I need the filename and the path.

Is it possible to save the HandleEvent in the

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS xTRich

and if cText1 := ::SaveAsRTF() is not an email to post pack or forward the

HandleEvent to a DIALOG which DragAcceptFiles( oDlg:hWnd, .t. ) .

Thanks in advance
Otto

Continue the discussion