Page 3 of 3
Re: bDragBegin and bDropOver problem *Unresolve*
Posted: Thu Dec 19, 2024 6:25 am
by dutch
Dear Master Rao,
Any update, thx in advance,
Dutch
Re: bDragBegin and bDropOver problem *Unresolve*
Posted: Fri Mar 07, 2025 2:46 pm
by 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
Re: bDragBegin and bDropOver problem *Unresolve*
Posted: Fri Mar 07, 2025 3:07 pm
by 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 !!!
Re: bDragBegin and bDropOver problem *Resolved*
Posted: Fri Mar 07, 2025 4:03 pm
by 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,
Antonio Linares wrote: Fri Mar 07, 2025 3:07 pm
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 !!!
Re: bDragBegin and bDropOver problem (fixed!)
Posted: Fri Mar 07, 2025 4:10 pm
by Antonio Linares
Dear Dutch,
I have just emailed you the latest FWH libs for you to test them
many thanks for your feedback
Re: bDragBegin and bDropOver problem (fixed!)
Posted: Fri Mar 07, 2025 5:09 pm
by 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
Antonio Linares wrote: Fri Mar 07, 2025 4:10 pm
Dear Dutch,
I have just emailed you the latest FWH libs for you to test them
many thanks for your feedback