Mouse wheel toggle

This commit is contained in:
pagefault
2001-05-16 22:43:14 +00:00
parent 4dda944d7d
commit e8839b4efc
2 changed files with 26 additions and 21 deletions

View File

@@ -580,7 +580,7 @@ NEWSYM GUIWBAdd, db 25
NEWSYM BlackAndWhite, db 0 NEWSYM BlackAndWhite, db 0
NEWSYM MouseWheel, db 0 NEWSYM MouseWheel, db 1
GUIsave equ $-GUIRAdd GUIsave equ $-GUIRAdd

View File

@@ -217,6 +217,8 @@ extern "C" void MinimizeWindow()
IsMinimized = TRUE; IsMinimized = TRUE;
} }
extern "C" BYTE MouseWheel;
BOOL InputRead(void) BOOL InputRead(void)
{ {
static PrevZ=0; static PrevZ=0;
@@ -245,6 +247,8 @@ aquireagain:;
MouseMoveX=dims.lX; MouseMoveX=dims.lX;
MouseMoveY=dims.lY; MouseMoveY=dims.lY;
if (MouseWheel == 1)
{
long zDelta = dims.lZ-PrevZ; long zDelta = dims.lZ-PrevZ;
if (!dims.lZ) zDelta=0; if (!dims.lZ) zDelta=0;
while (zDelta>0){ while (zDelta>0){
@@ -266,6 +270,7 @@ aquireagain:;
} }
} }
PrevZ=dims.lZ; PrevZ=dims.lZ;
}
MouseButton=(dims.rgbButtons[0]>>7)|(dims.rgbButtons[1]>>6)|(dims.rgbButtons[2]>>5)|(dims.rgbButtons[3]>>4); MouseButton=(dims.rgbButtons[0]>>7)|(dims.rgbButtons[1]>>6)|(dims.rgbButtons[2]>>5)|(dims.rgbButtons[3]>>4);
} }