Mousewheel and Wbrowse
Posted: Wed Jul 22, 2009 3:16 pm
Hi Antonio
Occasionally in our browses using wbrowse, when scrolling down or up using the mouse wheel, the browse scrolls left or right instead
This has been irritating me for a long time. The following seems to be the offending code:
METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) CLASS TWBrowse
local aPos := { nYPos, nXPos }
aPos := ScreenToClient( ::hWnd, aPos )
if aPos[ 1 ] > ::nHeight * 0.80
if nDelta > 0
::GoLeft()
else
::GoRight()
endif
else
etc
The *.8 above seems to some sort of guestimate value and I think causes the wrong behavior occasionally.
Can you explain the *8 please / consider the above
Thanks
Peter
Occasionally in our browses using wbrowse, when scrolling down or up using the mouse wheel, the browse scrolls left or right instead
This has been irritating me for a long time. The following seems to be the offending code:
METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) CLASS TWBrowse
local aPos := { nYPos, nXPos }
aPos := ScreenToClient( ::hWnd, aPos )
if aPos[ 1 ] > ::nHeight * 0.80
if nDelta > 0
::GoLeft()
else
::GoRight()
endif
else
etc
The *.8 above seems to some sort of guestimate value and I think causes the wrong behavior occasionally.
Can you explain the *8 please / consider the above
Thanks
Peter