VScroll with mouse wheel

[Rafael Clemente]

I am using the TScrWnd class (in \Samples\TestWScr.prg) to perform VScroll in a window. It works fine, but does not handle the wouse wheel. Has anybody modified this class (or an equivalent one) to perform mouse wheel vertical scroll?
Thanks
Rafael

[Antonio Linares]

Rafael,

You may review Class TWBrowse Method MouseWheel() source code.

Its quite simple and surely you can easily adapt it to your needs

[Rafael Clemente]

Antonio:
Just to try, after studying the wbrowse class, I added Method MouseWheel() Inline MsgInfo("Hello") to the TScrWnd class. As it was suspecting, it didn't do anything. How can I make that class to be aware of that new method, could you give me a hint?
Rafael

[Antonio Linares]

Rafael,

Class TScrWnd does not inherits from Class TWindow, instead it is a container Class, as it "contains" a TWindow object (oWnd)

A possible solution though not very "technical" is to change the Method MouseWheel() of Class TWindow dinamically using __clsModMsg() but it has the side effect problem that all TWindows objects will change their behaviors too, which it is not desirable

In fact the right solution is to inherit from Class TWindow and redefine the Method MouseWheel(), so Class TScrWnd would become an inherited class, not a container class

[Rafael Clemente]

Thanks, Antonio. I'll try and see what happens...
Rafael

[Rochinha]

Friend,

Take look in this post
http://fivetechsoft.com/forums/viewtopic.php?t=6760