Mouse wheel toggle
This commit is contained in:
@@ -580,7 +580,7 @@ NEWSYM GUIWBAdd, db 25
|
||||
|
||||
NEWSYM BlackAndWhite, db 0
|
||||
|
||||
NEWSYM MouseWheel, db 0
|
||||
NEWSYM MouseWheel, db 1
|
||||
|
||||
GUIsave equ $-GUIRAdd
|
||||
|
||||
|
||||
@@ -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);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user