hedgewars/hwengine.pas
changeset 2379 d62b1f224982
parent 2376 ece7b87f1334
child 2390 57fb33ab04a4
--- a/hedgewars/hwengine.pas	Thu Sep 10 15:35:34 2009 +0000
+++ b/hedgewars/hwengine.pas	Thu Sep 10 18:50:53 2009 +0000
@@ -176,6 +176,8 @@
 		SDL_ACTIVEEVENT: if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
 				cHasFocus:= event.active.gain = 1;
 		//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));
+		SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then uKeys.wheelDown:= true;
+		SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELDUP then uKeys.wheelUp:= true;
 		SDL_QUITEV: isTerminated:= true
 		end;
 CurrTime:= SDL_GetTicks;