hedgewars/hwengine.dpr
changeset 2191 20c62f787a4d
parent 2171 8208946331ba
child 2243 b4764993f833
equal deleted inserted replaced
2190:cfcad6142d48 2191:20c62f787a4d
   167 begin
   167 begin
   168 PrevTime:= SDL_GetTicks;
   168 PrevTime:= SDL_GetTicks;
   169 repeat
   169 repeat
   170 while SDL_PollEvent(@event) <> 0 do
   170 while SDL_PollEvent(@event) <> 0 do
   171 	case event.type_ of
   171 	case event.type_ of
       
   172 		{thinker here for adding touch events}
   172 		SDL_KEYDOWN: if GameState = gsChat then KeyPressChat(event.key.keysym.unicode);
   173 		SDL_KEYDOWN: if GameState = gsChat then KeyPressChat(event.key.keysym.unicode);
   173 		SDL_ACTIVEEVENT: if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
   174 		SDL_ACTIVEEVENT: if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
   174 				cHasFocus:= event.active.gain = 1;
   175 				cHasFocus:= event.active.gain = 1;
   175 		//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));
   176 		//SDL_VIDEORESIZE: Resize(max(event.resize.w, 600), max(event.resize.h, 450));
   176 		SDL_QUITEV: isTerminated:= true
   177 		SDL_QUITEV: isTerminated:= true