Problem with mouse scrolling since FW 2.5

[driessen]

First of all, I use Clipper 5.3b, Blinker 7.0 and FW 2.7

Since I use FW 2.5, 2.6 or 2.7, there is a problem with mouse scrolling in a listbox.

If I set the focus to one of the four or five last lines of a listbox and I use the mouse scroll to scroll down, the listbox scrolls to the left but not down.

I know there is a problem with the mouse scrolling in FW 16-bits (one can only scroll down, not scroll up), but until FW 2.4, mouse scrolling just worked fine for scrolling down in a listbox, even with the focus on the last line.

What is the problem ? How can it be solved ?

(I hope that everyone can understand what I mean).

Thank you.

[Antonio Linares]

Michel,

It is not a bug, it is a behavior that has been coded that way.

Code: Select all  Expand view  RUN

You may modify it in METHOD MouseWheel( ... ) CLASS TWBrowse:

...

   if aPos[ 1 ] > ::nHeight * 0.80   // Close to the bottom
      if nDelta > 0
         ::GoLeft()
      else
         ::GoRight()
      endif
   else
      ...


Simply remove that part of the if.

[driessen]

Antonio,

Thanks a lot for your answer. I know what you mean.

So I took a copy of wbrowse.prg from the FW-files and changed it like you told me to do.

Then I wanted to add my wbrowse.prg to my library. But while compiling, I got a preprocessor table overflow.

How do I have to solve that problem ?
Or can you send me a obj-file of the changed wbrowse.prg ?

Thanks a lot.

Michel

[Antonio Linares]

Michel,

You may use Clipper 5.2 E to compile the PRG as it has more preprocessor capability that 5.3.

Keep using 5.3 libraries, there is no problem with it.

[driessen]

Antonio,

I wish I had Clipper 5.2e now. Unfortunately, I don't.

Michel

[driessen]

Antonio,

I was able to get Clipper 5.2e from a friend.

Problem is solved now.

Thanks.

Michel

[Antonio Linares]

Michel,

Glad to know you solved it.