Unit inmoulow

This is a modified version of microsofts ZMouse.H {$D-,L-} {Remove if you wish to debug this code

Classes

Functions

HwndMSWheel - Also defined in winuser.

Types

Constants

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

Variables

Msg3DSupport
MsgMouseWheel
MsgScrollLines
mswheel
ScrollLines
_3dSupport


Functions


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.

Types


Constants

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

Variables

Msg3DSupport : Integer

MsgMouseWheel : Integer

MsgScrollLines : Integer

mswheel : THandle

ScrollLines : Integer

_3dSupport : Bool