FiveTech Software tech support forums

hi, i have some GET and enable "DROPFILES"   ON DROPFILES DoDropFiles( nRow, nCol, aFiles ) i try to found TGET and compare Position where i drop PROCEDURE DoDropFiles( nRow, nCol, aFiles )LOCAL ii, iMax, oObj, cVALTYPELOCAL ...

Thank you Mr. Rao,

My main window is TWindow. But I like to use it within TDialog.

Is it possible?. DROPFILES is available only for TWINDOW.

Thanks

... Calls =========== Called from: => PAINTTHENAME( 27 ) Called from: => (b)MAIN( 14 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:DROPFILES( 0 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 0 ) Called from: => WINRUN( 0 ) Called ...

...      427  1451  1455 BDELETE                WINDOW.PRG      432   550   550 BDOWN                  WINDOW.PRG      491  1211  1287  1288 BDROPFILES              WINDOW.PRG      427   492  1212  1226  1227  1227  1539  1541 BDROPOVER              WINDOW.PRG      428  3733  3734 BEGINPAINT() ...

Dear Rao,

Maybe a solution is to capture the mouse so we get the mouse move events

Thank you Otto!

nageswaragunupudi,
Many thanks! Is very for me your code!
Have a nice day
Marco

Mr Otto
This logic does not help when dropping files from outside the FW application over the FW Window. oBrw:bMMoved does not get any message.

May be Mr. Antonio can suggest a way, if we can track the mouse movement till the files are finally dropped.

Download http://www.atzwanger-software.com/fw/xbrdrag.zip Marco, I will remember having done some tests on that issue. I have installed an older xBrowse class. Here you have to click inside the record selector to start drag. This is my code: /*########################################...

... := 1   oBrw:CreateFromCode()   oWnd:oClient := oBrw   ACTIVATE WINDOW oWnd ;      ON DROPFILES ShowItem( nRow, nCol, aFiles, oBrw )return nilstatic function ShowItem( nRow, nCol, aFiles, oBrw )   oBrw:SetPos( ...

Antonio FUNCTION SENDMAIL( nRow, oLbx, aItem ) local nFirst := oLbx:SendMsg( LB_GETTOPINDEX ) + 1 local nHeight := oLbx:SendMsg( LB_GETITEMHEIGHT ) local nAt := Int( nRow / nHeight ) + nFirst LOCAL nPippo := aItem[1] if nAt > 0 .and. nAt <= Len( oLbx:aItems ) oLbx:select( nAt ) else MsgAlert( ...

Antonio, thanks a lot dor your willingness. There is another little problem. In the listbox is not refreshed the cursor position. Now I take a look my outlook express, for instance: If I want to move a message from In folder to another folder I cam drag with the mouse the message and scroll all item...

... oWnd FROM 100 , 100 TO 205 , 205 PIXEL   @ 1 , 1 LISTBOX oLbx VAR cItem ITEMS aItem OF oWnd SIZE 200 , 200 PIXEL   ACTIVATE WINDOW oWnd ;      ON DROPFILES SENDMAIL( nRow, nCol, aFiles, oLbx )return nilFUNCTION SENDMAIL( nRow, nCol, aFiles, oLbx )   local nFirst  := oLbx:SendMsg( ...

... } DEFINE WINDOW oWnd FROM 100 , 100 TO 205 , 205 PIXEL @ 1 , 1 LISTBOX oBrw ITEMS aItem OF oWnd SIZE 200 , 200 PIXEL ACTIVATE WINDOW oWnd ON DROPFILES SENDMAIL( nRow, nCol, aFiles, aItem ) return nil FUNCTION SENDMAIL( nRow, nCol, aFiles, aItem ) LOCAL nPos := 1 // nPos := ???????? ? nRow, ...

... oWnd MAXIMIZED VALID ; ON PAINT (drawbitmap( oWnd:owndclient:hdc, obmp:hbitmap, 0, 0,; oWnd:owndclient:nWidth(), oWnd:owndclient:nHeight())); ON DROPFILES DropArquiva(aFiles) ; ON RESIZE GetWndFrame():arrangeicons() Antonio