Disable mouse wheel

cdmmaui · Post by **cdmmaui** » Mon Oct 27, 2008 3:39 am

Hello,

How do I disable mouse wheel events?

Thank You,

Post by **Antonio Linares** » Mon Oct 27, 2008 8:58 am

Darrell,

On what controls do you want to disable the mouse wheel support ?

You can disable it for any control, including this in the desired class:

METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) VIRTUAL

cdmmaui · Post by **cdmmaui** » Mon Oct 27, 2008 12:12 pm

Hi Antonio,

I have a function that is called from a listbox where the user highlights the record then clicks a button. What is happening is that the user is using the mouse wheel by accident and it is causing the highlighted record in the listbox to move. I would like to disable the mouse wheel when this function is called. Can you provide sample code?

Thank You,

Post by **Antonio Linares** » Mon Oct 27, 2008 2:28 pm

Darrell,

Is it a standard listbox or a browse ?

If it is a browse, is it a TWBrowse or a TXBrowse ? or a third party one ?

cdmmaui · Post by **cdmmaui** » Mon Oct 27, 2008 8:34 pm

Hi Antonio,

Yes,

@135,000 LISTBOX oLbx FIELDS ...

Post by **Antonio Linares** » Mon Oct 27, 2008 8:55 pm

Darrell,

You have to modify fwh\source\classes\wbrowse.prg this way:

METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) VIRTUAL

and comment its source code in the same PRG