hedgewars/hwengine.dpr
changeset 1127 7e1b94a0fc1f
parent 1121 d595dc56b4f3
child 1128 9b3f42bf4eef
equal deleted inserted replaced
1126:2acfe205a519 1127:7e1b94a0fc1f
   154 while SDL_PollEvent(@event) <> 0 do
   154 while SDL_PollEvent(@event) <> 0 do
   155 	case event.type_ of
   155 	case event.type_ of
   156 		SDL_KEYDOWN: if GameState = gsChat then KeyPressChat(event.key.keysym.unicode);
   156 		SDL_KEYDOWN: if GameState = gsChat then KeyPressChat(event.key.keysym.unicode);
   157 		SDL_ACTIVEEVENT: if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
   157 		SDL_ACTIVEEVENT: if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
   158 				cHasFocus:= event.active.gain = 1;
   158 				cHasFocus:= event.active.gain = 1;
   159 		SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));
   159 		//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));
   160 		SDL_QUITEV: isTerminated:= true
   160 		SDL_QUITEV: isTerminated:= true
   161 		end;
   161 		end;
   162 CurrTime:= SDL_GetTicks;
   162 CurrTime:= SDL_GetTicks;
   163 if PrevTime + cTimerInterval <= CurrTime then
   163 if PrevTime + cTimerInterval <= CurrTime then
   164    begin
   164    begin