hedgewars/hwengine.dpr
changeset 308 806c3b55500d
parent 302 7aca131ecd7f
child 316 57d50189ad86
equal deleted inserted replaced
307:96b428ac11f2 308:806c3b55500d
   133                                         cConsoleYAdd:= cConsoleHeight;
   133                                         cConsoleYAdd:= cConsoleHeight;
   134                                         GameState:= gsConsole
   134                                         GameState:= gsConsole
   135                                         end;
   135                                         end;
   136                           gsConsole: KeyPressConsole(event.key.keysym.sym);
   136                           gsConsole: KeyPressConsole(event.key.keysym.sym);
   137                              end;
   137                              end;
       
   138            SDL_ACTIVEEVENT: if (event.active.state and SDL_APPINPUTFOCUS) <> 0 then
       
   139                                cHasFocus:= event.active.gain = 1;
   138            SDL_QUITEV: isTerminated:= true
   140            SDL_QUITEV: isTerminated:= true
   139            end;
   141            end;
   140 CurrTime:= SDL_GetTicks;
   142 CurrTime:= SDL_GetTicks;
   141 if PrevTime + cTimerInterval <= CurrTime then
   143 if PrevTime + cTimerInterval <= CurrTime then
   142    begin
   144    begin