Drag and Drop

[Horizon]

Hi,

I use Fwh 15.07 and harbour 3.2.0dev(r1506171039) and msvc 2013.

I have tried testdrop.prg in sample directory. And there is no problem. It works.


I have tried in my application like this. First of all, I use in DIALOG.

Code: Select all  Expand view

 @ 60, 10 LISTBOX oLbx2 var cItem OF oDlg PIXEL;
      ITEMS {} size 60,60   
    oLbx2:bDropOver = { | uDropInfo, nRow, nCol, nKeyFlags | ;
                      IICBELGE_Drag( uDropInfo ), MsgBeep() }


FUNCTION IICBELGE_Drag(aFiles)
   ? "I AM HERE"
RETURN

 

I can compile my app with above lines. But When I drag and drop a file to mt LISTBOX. There is no "I AM HERE" message.

Is there a way to activate drag and drop facilities in application.

Thanks

[nageswaragunupudi]

bDropOver and bDragBegin are meant only for drag and drop within FWH application.

For dropping files from file explorer over to FWH application you need to use DROFILES clause while activating the main window.

For both you can refer to fwh samples folder.

[Horizon]

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

[cnavarro]

In Fivedit, I have implemented it so ( folderex with dialogs )

Code: Select all  Expand view

   // ::oEditor is a Control TScintilla derived from TControl

   DragAcceptFiles( ::oEditor:hWnd, .T. )
   ::oEditor:oDragCursor  := oCrs
   ::oEditor:bDropFiles   := { | nRow, nCol, uDropInfo | ;
                                 Self:SetDropFiles( nRow, nCol, uDropInfo ) }

 

[Horizon]

Thank you Mr. Navarro.

I put these line to ONINIT Procedure. It worked.

Code: Select all  Expand view

    DragAcceptFiles( oDlg:hWnd, .T. )
    oDlg:oDragCursor    := oCrs
    oDlg:bDropFiles:={|nRow,nCol,uDropInfo|IICBELGE_Drag(nRow,nCol,uDropInfo)}