hedgewars/hwengine.pas
changeset 2379 d62b1f224982
parent 2376 ece7b87f1334
child 2390 57fb33ab04a4
equal deleted inserted replaced
2378:66fcb4d62a53 2379:d62b1f224982
   174 		SDL_KEYDOWN: if GameState = gsChat then KeyPressChat(event.key.keysym.unicode);
   174 		SDL_KEYDOWN: if GameState = gsChat then KeyPressChat(event.key.keysym.unicode);
   175 	{$ENDIF}
   175 	{$ENDIF}
   176 		SDL_ACTIVEEVENT: if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
   176 		SDL_ACTIVEEVENT: if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
   177 				cHasFocus:= event.active.gain = 1;
   177 				cHasFocus:= event.active.gain = 1;
   178 		//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));
   178 		//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));
       
   179 		SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then uKeys.wheelDown:= true;
       
   180 		SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELDUP then uKeys.wheelUp:= true;
   179 		SDL_QUITEV: isTerminated:= true
   181 		SDL_QUITEV: isTerminated:= true
   180 		end;
   182 		end;
   181 CurrTime:= SDL_GetTicks;
   183 CurrTime:= SDL_GetTicks;
   182 if PrevTime + cTimerInterval <= CurrTime then
   184 if PrevTime + cTimerInterval <= CurrTime then
   183    begin
   185    begin