DCBROWSE mousewheel

This forum is for eXpress++ general support.
Post Reply
Message
Author
User avatar
Tom
Posts: 1165
Joined: Thu Jan 28, 2010 12:59 am
Location: Berlin, Germany

DCBROWSE mousewheel

#1 Post by Tom »

By default, moving the mouse wheel on a Windows system equals 3 times "cursor down" or "cursor up". This value can by changed using this code:

Code: Select all

FUNCTION SetMouseWheel(nScrollRows)
DEFAULT nScrollRows := 0
IF nScrollRows <= 0
  SystemParametersInfoA(104,0,@nScrollRows,0)
  MsgBox('Wheel is set to move the cursor '+LTrim(Str(nScrollRows))+' lines')
ELSE
  SystemParametersInfoA(105,@nScrollRows,0,0x0002)
ENDIF
RETURN nil
Calling this function with no parameter or the value zero or below shows the settings, calling it with 1 or higher sets it. There is no need to include the API-function "SystemParametersA", cause it's already inside eXpress++ (_dcfunct.prg).

But this function sets the value for the whole system - and other applications aswell. I'd prefer to set this only for browses inside my application. I already played with the :Wheel-slot, but I failed when I tried to create a subclass for DC_XbpBrowse which includes this.

Is there an easy solution for something like DCBROWSE ... MOUSEWHEEL n? :whistle:
Best regards,
Tom

"Did I offend you?"
"No."
"Okay, give me a second chance."

Post Reply