hedgewars/hwengine.pas
branchqmlfrontend
changeset 11606 99966b4a6e1e
parent 11544 b69f5f22a3ba
parent 11548 45982bda46cc
child 11633 215b837c16f9
equal deleted inserted replaced
11544:b69f5f22a3ba 11606:99966b4a6e1e
   171                         if GameState >= gsGame then ProcessKey(event.key);
   171                         if GameState >= gsGame then ProcessKey(event.key);
   172                 SDL_KEYUP:
   172                 SDL_KEYUP:
   173                     if (GameState <> gsChat) and (GameState >= gsGame) then
   173                     if (GameState <> gsChat) and (GameState >= gsGame) then
   174                         ProcessKey(event.key);
   174                         ProcessKey(event.key);
   175 
   175 
   176                 SDL_MOUSEBUTTONDOWN:
       
   177                     if GameState = gsConfirm then
       
   178                         ParseCommand('quit', true)
       
   179                     else
       
   180                         if (GameState >= gsGame) then ProcessMouse(event.button, true);
       
   181 
       
   182                 SDL_MOUSEBUTTONUP:
       
   183                     if (GameState >= gsGame) then ProcessMouse(event.button, false);
       
   184 
       
   185                 SDL_MOUSEWHEEL:
       
   186                     begin
       
   187                     wheelEvent:= true;
       
   188                     ProcessMouseWheel(event.wheel.x, event.wheel.y);
       
   189                     end;
       
   190 
       
   191                 SDL_TEXTINPUT: if GameState = gsChat then uChat.TextInput(event.text);
   176                 SDL_TEXTINPUT: if GameState = gsChat then uChat.TextInput(event.text);
   192 
   177 
   193                 SDL_WINDOWEVENT:
   178                 SDL_WINDOWEVENT:
   194                     begin
   179                     begin
   195                     case event.window.event of
   180                     case event.window.event of
   232                 SDL_FINGERDOWN:
   217                 SDL_FINGERDOWN:
   233                     onTouchDown(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   218                     onTouchDown(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   234 
   219 
   235                 SDL_FINGERUP:
   220                 SDL_FINGERUP:
   236                     onTouchUp(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   221                     onTouchUp(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   237 {$ENDIF}
   222 {$ELSE}
       
   223                 SDL_MOUSEBUTTONDOWN:
       
   224                     if GameState = gsConfirm then
       
   225                         ParseCommand('quit', true)
       
   226                     else
       
   227                         if (GameState >= gsGame) then ProcessMouse(event.button, true);
       
   228 
       
   229                 SDL_MOUSEBUTTONUP:
       
   230                     if (GameState >= gsGame) then ProcessMouse(event.button, false);
       
   231 
       
   232                 SDL_MOUSEWHEEL:
       
   233                     begin
       
   234                     wheelEvent:= true;
       
   235                     ProcessMouseWheel(event.wheel.x, event.wheel.y);
       
   236                     end;
       
   237 {$ENDIF}
       
   238 
   238                 SDL_JOYAXISMOTION:
   239                 SDL_JOYAXISMOTION:
   239                     ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value);
   240                     ControllerAxisEvent(event.jaxis.which, event.jaxis.axis, event.jaxis.value);
   240                 SDL_JOYHATMOTION:
   241                 SDL_JOYHATMOTION:
   241                     ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value);
   242                     ControllerHatEvent(event.jhat.which, event.jhat.hat, event.jhat.value);
   242                 SDL_JOYBUTTONDOWN:
   243                 SDL_JOYBUTTONDOWN: