This is a modified version of microsofts ZMouse.H {$D-,L-} {Remove if you wish to debug this code
HwndMSWheel - Also defined in winuser.
MOUSEZ_CLASSNAME
MOUSEZ_TITLE
MSH_MOUSEWHEEL
MSH_SCROLL_LINES
MSH_WHEELMODULE_CLASS
MSH_WHEELMODULE_TITLE
MSH_WHEELSUPPORT
SPI_SETWHEELSCROLLLINES
WHEEL_DELTA
WHEEL_PAGESCROLL
WM_MOUSEWHEEL
Msg3DSupport
MsgMouseWheel
MsgScrollLines
mswheel
ScrollLines
_3dSupport
function HwndMSWheel(var uiMsh_MsgMouseWheel,
uiMsh_Msg3DSupport,
uiMsh_MsgScrollLines : Integer;
var f3DSupport : Bool;
var iScrollLines : Integer) : THandle;
Also defined in winuser.h in the NT4.0 SDK, please see the NT4.0 SDK documentation for NT4.0 implementation specifics. For Win95 and WinNT3.51, Mswheel broadcasts the message WM_SETTINGCHANGE (equivalent to WM_WININICHANGE) when the scroll lines has changed. Applications will recieve the WM_SETTINGCHANGE message with the wParam set to SPI_SETWHEELSCROLLLINES. When this message is recieved the application should query Mswheel for the new setting. (*********************************************************************
* INLINE FUNCTION: HwndMsWheel
* Purpose : Get a reference to MSWheel Window, the registered messages,
* wheel support active setting, and number of scrollLines
* Params : PUINT puiMsh_MsgMouseWheel - address of UINT to contain returned registered wheel message
* PUINT puiMsh_Msg3DSupport - address of UINT to contain wheel support registered message
* PUINT puiMsh_MsgScrollLines - address of UINT to contain Scroll lines registered message
* PBOOL pf3DSupport - address of BOOL to contain returned flag for wheel support active
* PINT piScrollLines - address of int to contain returned scroll lines
* Returns : HWND handle to the MsWheel window
* Note : The return value for pf3DSupport and piScrollLines is dependant
* on the POINT32 module. If POINT32 module is not running then
* the values returned for these parameters will be
* FALSE and 3, respectively.
MOUSEZ_CLASSNAME = 'MouseZ'
message that will be supported by the OS (**************************************************************************
Client Appplication (API) Defines for
* determining if wheel support active
* determining # of Scroll Lines
MOUSEZ_TITLE = 'Magellan MSWHEEL'
wheel window class
MSH_MOUSEWHEEL = 'MSWHEEL_ROLLMSG'
***************************************************************************
* *
* ZMOUSE.H -- Include file for IntelliMouse(tm) 1.0 *
* *
* NOTE: Zmouse.h contains #defines required when providing IntelliMouse *
* wheel support for Windows95 and NT3.51. Wheel is supported *
* natively in WinNT4.0, please refer to the NT4.0 SDK for more info *
* on providing support for IntelliMouse in NT4.0. *
* *
* Copyright (c) 1983-1996, Microsoft Corp. All rights reserved. *
* *
****************************************************************************) (**************************************************************************
Client Appplication (API) Defines for Wheel rolling
***************************************************************************) // Apps need to call RegisterWindowMessage using the #define below to // get the message number that is sent to the foreground window // when a wheel roll occurs
MSH_SCROLL_LINES = 'MSH_SCROLL_LINES_MSG'
name of msg to send to query for wheel support wParam - not used lParam - not used returns BOOL - TRUE if wheel support is active, FALSE otherwise
MSH_WHEELMODULE_CLASS = MOUSEZ_CLASSNAME
wheel window title
MSH_WHEELMODULE_TITLE = MOUSEZ_TITLE
MSH_WHEELSUPPORT = 'MSH_WHEELSUPPORT_MSG'
Apps need to call RegisterWindowMessage using the #defines below to get the message numbers for: 1) the message that can be sent to the MSWHEEL window to query if wheel support is active (MSH_WHEELSUPPORT)> 2) the message to query for the number of scroll lines (MSH_SCROLL_LINES) //
SPI_SETWHEELSCROLLLINES = 105
signifies to scroll a page, also defined in winuser.h in the NT4.0 SDK
WHEEL_DELTA = 120
wParam = wheel rotation expressed in multiples of WHEEL_DELTA lParam is the mouse coordinates
WHEEL_PAGESCROLL = $FFFFFFFF
wParam - not used lParam - not used returns int - number of lines to scroll on a wheel roll
WM_MOUSEWHEEL = (WM_MOUSELAST+1)
Default value for rolling one notch
Msg3DSupport : Integer
MsgMouseWheel : Integer
MsgScrollLines : Integer
mswheel : THandle
ScrollLines : Integer
_3dSupport : Bool