Horizontal Scroll via Mouse Scroll

Horizontal Scroll via Mouse Scroll

Postby byron.hopp » Tue Dec 12, 2017 1:01 am

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 ...
Thanks,
Byron Hopp
Matrix Computer Services
byron.hopp
 
Posts: 346
Joined: Sun Nov 06, 2005 3:55 pm
Location: Southern California, USA

Re: Horizontal Scroll via Mouse Scroll

Postby byron.hopp » Wed Dec 13, 2017 3:51 pm

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

Thanks,
Thanks,
Byron Hopp
Matrix Computer Services
byron.hopp
 
Posts: 346
Joined: Sun Nov 06, 2005 3:55 pm
Location: Southern California, USA

Re: Horizontal Scroll via Mouse Scroll

Postby hua » Thu Dec 14, 2017 4:28 am

# post deleted #
Last edited by hua on Fri Dec 15, 2017 8:09 am, edited 1 time in total.
FWH 11.08/FWH 19.12
BCC5.82/BCC7.3
xHarbour/Harbour
hua
 
Posts: 1034
Joined: Fri Oct 28, 2005 2:27 am

Re: Horizontal Scroll via Mouse Scroll

Postby nageswaragunupudi » Thu Dec 14, 2017 6:27 pm

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
 
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10206
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Horizontal Scroll via Mouse Scroll

Postby byron.hopp » Thu Dec 14, 2017 10:31 pm

Mr. Rau, you got it.

Thanks,

Byron ...
Thanks,
Byron Hopp
Matrix Computer Services
byron.hopp
 
Posts: 346
Joined: Sun Nov 06, 2005 3:55 pm
Location: Southern California, USA


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 11 guests