bDragBegin and bDropOver problem (fixed!)

[dutch]

Dear Master Rao,

Any update, thx in advance,
Dutch

[Antonio Linares]

Reduced example, we are much closer to solve it

Dropping above the browse does not work, dropping just a little bellow, it works

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   local oCur, oDlg, oBrw

   DEFINE CURSOR oCur DRAG

   DEFINE DIALOG oDlg SIZE 600,250 PIXEL

   @ 20,20 XBROWSE oBrw SIZE 100,-20 PIXEL OF oDlg ;
      DATASOURCE { "One", "Two", "Three" } ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw
      :nStretchCol := 1
      :oDragCursor := oCur
      :bDragBegin  := { || SetDropInfo( oBrw:aCols[ 1 ]:Value ) }
      :CreateFromCode()
   END

   oDlg:bDropOver := { |u,r,c,f| MsgInfo( "no drop here" ) }

   ACTIVATE DIALOG oDlg CENTERED

return nil

[Antonio Linares]

Fixed bug, in Class TXBrowse Method LButtonUp:

Code: Select all | Expand

METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TXBrowse

   local nCaptured
   local nRowAdvanced, nTimeScrolled, nVelocity, nRowToAdvance
   local nRatio, n, cMsg := ""

   if ::lDrag
      return ::Super:LButtonUp( nRow, nCol, nFlags )
   endif

   // if nRow <= ::nTopBarHeight           HERE !!!
   //    return 0                          HERE !!!
   // endif                                HERE !!!

[dutch]

Dear Antonio,

I changed as below (your suggestion), it got an error. Can I make as dump function?

Code: Select all | Expand

Error: Unresolved external '_HB_FUN_ISRECORDSET' referenced from D:\FWH2304\LIB\FIVEHX.LIB|drxl

I use my latest version FWH2304.

Thanks in advance,

Fixed bug, in Class TXBrowse Method LButtonUp:

Code: Select all | Expand

METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TXBrowse

   local nCaptured
   local nRowAdvanced, nTimeScrolled, nVelocity, nRowToAdvance
   local nRatio, n, cMsg := ""

   if ::lDrag
      return ::Super:LButtonUp( nRow, nCol, nFlags )
   endif

   // if nRow <= ::nTopBarHeight           HERE !!!
   //    return 0                          HERE !!!
   // endif                                HERE !!!

[Antonio Linares]

Dear Dutch,

I have just emailed you the latest FWH libs for you to test them

many thanks for your feedback

[dutch]

Dear Antonio,

I've reinstall, change in source and rebuild library. It works well now.

Thank you so much for your kind help. I want to use many new and useful feature after FWH1901 but struck for long time.
Now It's clear and fixed.

Thanks once again.
Dutch

Dear Dutch,

I have just emailed you the latest FWH libs for you to test them

many thanks for your feedback