Horizontal Scroll via Mouse Scroll

[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 ...

[byron.hopp]

This may be in WBrowse but I cannot seem to turn off the Horizontal Scroll, just don't know the trick.

Thanks,

[hua]

# post deleted #

[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
 

[byron.hopp]

Mr. Rau, you got it.

Thanks,

Byron ...