Page 1 of 1

Horizontal Scroll via Mouse Scroll

PostPosted: Tue Dec 12, 2017 1:01 am
by byron.hopp
Seems TCBrowse has a feature that Horizontally Scrolls the grid if the mouse cursor is in the last 5 to 6 rows of the grid.
If the mouse is higher on the grid the scrolls vertically. Is there a way to turn off the horizontal scroll.
I think it is pretty neat, but my customer is not so enthusiastic.

Tried oBrw:lNoHScroll := True, or False doesn't seem to make any difference.

Thanks,

Byron ...

Re: Horizontal Scroll via Mouse Scroll

PostPosted: Wed Dec 13, 2017 3:51 pm
by byron.hopp
This may be in WBrowse but I cannot seem to turn off the Horizontal Scroll, just don't know the trick.

Thanks,

Re: Horizontal Scroll via Mouse Scroll

PostPosted: Thu Dec 14, 2017 4:28 am
by hua
# post deleted #

Re: Horizontal Scroll via Mouse Scroll

PostPosted: Thu Dec 14, 2017 6:27 pm
by nageswaragunupudi
Can you please make this modification in your copy of "wbrowse.prg" ?

Locate Method WheelScroll(...)
In this method, please locate this line:
Code: Select all  Expand view
  if aPos[ 1 ] > ::nHeight * 0.80
 

Please change this line as
Code: Select all  Expand view
  if .f. // aPos[ 1 ] > ::nHeight * 0.80
 

Re: Horizontal Scroll via Mouse Scroll

PostPosted: Thu Dec 14, 2017 10:31 pm
by byron.hopp
Mr. Rau, you got it.

Thanks,

Byron ...