FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour bDragBegin and bDropOver problem (fixed!)
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: bDragBegin and bDropOver problem *Unresolve*
Posted: Fri Dec 06, 2024 01:42 AM
Dear Antonio,

No problem, Thank you.
Antonio Linares wrote:Dear Dutch,

I just contacted Mr. Rao regarding this thread.

We apologize for the answer delay
Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: bDragBegin and bDropOver problem *Unresolve*
Posted: Thu Dec 19, 2024 06:25 AM

Dear Master Rao,

Any update, thx in advance,

Dutch

Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: bDragBegin and bDropOver problem *Unresolve*
Posted: Fri Mar 07, 2025 02:46 PM
Reduced example, we are much closer to solve it :-)

Dropping above the browse does not work, dropping just a little bellow, it works :!:
#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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: bDragBegin and bDropOver problem *Unresolve*
Posted: Fri Mar 07, 2025 03:07 PM
Fixed bug, in Class TXBrowse Method LButtonUp:
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 !!!
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: bDragBegin and bDropOver problem *Resolved*
Posted: Fri Mar 07, 2025 04:03 PM
Dear Antonio,

I changed as below (your suggestion), it got an error. Can I make as dump function?
Error: Unresolved external '_HB_FUN_ISRECORDSET' referenced from D:\FWH2304\LIB\FIVEHX.LIB|drxl
I use my latest version FWH2304.

Thanks in advance,
Antonio Linares wrote: Fixed bug, in Class TXBrowse Method LButtonUp:
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 !!!
Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: bDragBegin and bDropOver problem (fixed!)
Posted: Fri Mar 07, 2025 04:10 PM

Dear Dutch,

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

many thanks for your feedback

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1598
Joined: Fri Oct 07, 2005 05:56 PM
Re: bDragBegin and bDropOver problem (fixed!)
Posted: Fri Mar 07, 2025 05:09 PM
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
Antonio Linares wrote: Dear Dutch,

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

many thanks for your feedback
Regards,

Dutch



FWH 2304 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio

FWPPC 10.02 / Harbour for PPC (FTDN)

ADS V.9 / MySql / MariaDB

R&R 12 Infinity / Crystal Report XI R2

(Thailand)

Continue the discussion