Board index FiveWin for Harbour/xHarbour Horizontal Scroll via Mouse Scroll

Posts: 408

Joined: Sun Nov 06, 2005 03:55 PM

Horizontal Scroll via Mouse Scroll
Posted: Tue Dec 12, 2017 01: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: 408

Joined: Sun Nov 06, 2005 03:55 PM

Re: Horizontal Scroll via Mouse Scroll
Posted: Wed Dec 13, 2017 03: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

hua

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Re: Horizontal Scroll via Mouse Scroll
Posted: Thu Dec 14, 2017 04:28 AM

post deleted

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Horizontal Scroll via Mouse Scroll
Posted: Thu Dec 14, 2017 06: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 (fw): Select all Collapse

   if aPos[ 1 ] > ::nHeight * 0.80

Please change this line as

Code (fw): Select all Collapse

   if .f. // aPos[ 1 ] > ::nHeight * 0.80

Regards

G. N. Rao.

Hyderabad, India

byron.hopp

Posts: 408

Joined: Sun Nov 06, 2005 03:55 PM

Re: Horizontal Scroll via Mouse Scroll
Posted: Thu Dec 14, 2017 10:31 PM

Mr. Rau, you got it.

Thanks,

Byron ...

Thanks,

Byron Hopp

Matrix Computer Services

FiveTech Support Forums

post deleted

Continue the discussion