FiveTech Support Forums

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

Rafael,

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

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

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

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

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