hedgewars/hwengine.pas
changeset 11548 45982bda46cc
parent 11534 0ead3a2e0309
child 11606 99966b4a6e1e
child 11631 b3db79b56f28
equal deleted inserted replaced
11547:2bbbe9cb2980 11548:45982bda46cc
   181                         if GameState >= gsGame then ProcessKey(event.key);
   181                         if GameState >= gsGame then ProcessKey(event.key);
   182                 SDL_KEYUP:
   182                 SDL_KEYUP:
   183                     if (GameState <> gsChat) and (GameState >= gsGame) then
   183                     if (GameState <> gsChat) and (GameState >= gsGame) then
   184                         ProcessKey(event.key);
   184                         ProcessKey(event.key);
   185 
   185 
   186                 SDL_MOUSEBUTTONDOWN:
       
   187                     if GameState = gsConfirm then
       
   188                         ParseCommand('quit', true)
       
   189                     else
       
   190                         if (GameState >= gsGame) then ProcessMouse(event.button, true);
       
   191 
       
   192                 SDL_MOUSEBUTTONUP:
       
   193                     if (GameState >= gsGame) then ProcessMouse(event.button, false);
       
   194 
       
   195                 SDL_MOUSEWHEEL:
       
   196                     begin
       
   197                     wheelEvent:= true;
       
   198                     ProcessMouseWheel(event.wheel.x, event.wheel.y);
       
   199                     end;
       
   200 
       
   201                 SDL_TEXTINPUT: if GameState = gsChat then uChat.TextInput(event.text);
   186                 SDL_TEXTINPUT: if GameState = gsChat then uChat.TextInput(event.text);
   202 
   187 
   203                 SDL_WINDOWEVENT:
   188                 SDL_WINDOWEVENT:
   204                     begin
   189                     begin
   205                     case event.window.event of
   190                     case event.window.event of
   242                 SDL_FINGERDOWN:
   227                 SDL_FINGERDOWN:
   243                     onTouchDown(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   228                     onTouchDown(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   244 
   229 
   245                 SDL_FINGERUP:
   230                 SDL_FINGERUP:
   246                     onTouchUp(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   231                     onTouchUp(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   247 {$ENDIF}
   232 {$ELSE}
       
   233                 SDL_MOUSEBUTTONDOWN:
       
   234                     if GameState = gsConfirm then
       
   235                         ParseCommand('quit', true)
       
   236                     else
       
   237                         if (GameState >= gsGame) then ProcessMouse(event.button, true);
       
   238 
       
   239                 SDL_MOUSEBUTTONUP:
       
   240                     if (GameState >= gsGame) then ProcessMouse(event.button, false);
       
   241 
       
   242                 SDL_MOUSEWHEEL:
       
   243                     begin
       
   244                     wheelEvent:= true;
       
   245                     ProcessMouseWheel(event.wheel.x, event.wheel.y);
       
   246                     end;
       
   247 {$ENDIF}
       
   248 
   248                 SDL_JOYAXISMOTION:
   249                 SDL_JOYAXISMOTION:
   249                     ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value);
   250                     ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value);
   250                 SDL_JOYHATMOTION:
   251                 SDL_JOYHATMOTION:
   251                     ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value);
   252                     ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value);
   252                 SDL_JOYBUTTONDOWN:
   253                 SDL_JOYBUTTONDOWN: