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)

dutch

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)

Antonio Linares

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 :!:

Code: Select all Collapse

#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

Antonio Linares

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:

Code: Select all Collapse

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

dutch

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?

Code: Select all Collapse

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:

Code: Select all Collapse

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)

Antonio Linares

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

dutch

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)

FiveTech Support Forums

Continue the discussion