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 MouseWheel, db 0
NEWSYM MouseWheel, db 1
GUIsave equ $-GUIRAdd

View File

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