hedgewars/hwengine.pas
changeset 6021 652a199d4f38
parent 6019 8843ea756cfc
child 6023 a28be05b20bc
child 6072 e3dc802965d6
equal deleted inserted replaced
6020:c792d4b3e080 6021:652a199d4f38
   186                         GameState:= gsSuspend;
   186                         GameState:= gsSuspend;
   187                         end
   187                         end
   188                     else if event.window.event = SDL_WINDOWEVENT_RESTORED then
   188                     else if event.window.event = SDL_WINDOWEVENT_RESTORED then
   189                         begin
   189                         begin
   190                         GameState:= previousGameState;
   190                         GameState:= previousGameState;
       
   191                         end
       
   192                     else if event.window.event = SDL_WINDOWEVENT_RESIZED then
       
   193                         begin
       
   194                         cNewScreenWidth:= max(2 * (event.window.data1 div 2), cMinScreenWidth);
       
   195                         cNewScreenHeight:= max(2 * (event.window.data2 div 2), cMinScreenHeight);
       
   196                         cScreenResizeDelay:= RealTicks+500;
   191                         end;
   197                         end;
   192 {$ELSE}
   198 {$ELSE}
   193                     KeyPressChat(event.key.keysym.unicode);
   199                     KeyPressChat(event.key.keysym.unicode);
   194                 SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then wheelDown:= true;
   200                 SDL_MOUSEBUTTONDOWN: if event.button.button = SDL_BUTTON_WHEELDOWN then wheelDown:= true;
   195                 SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELUP then wheelUp:= true;
   201                 SDL_MOUSEBUTTONUP: if event.button.button = SDL_BUTTON_WHEELUP then wheelUp:= true;