hedgewars/hwengine.pas
changeset 14808 9443dc6663ba
parent 14765 ba8dd081359d
child 14860 259840ca77e3
equal deleted inserted replaced
14807:b2beb784e4b5 14808:9443dc6663ba
   252                     onTouchDown(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   252                     onTouchDown(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   253 
   253 
   254                 SDL_FINGERUP:
   254                 SDL_FINGERUP:
   255                     onTouchUp(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   255                     onTouchUp(event.tfinger.x, event.tfinger.y, event.tfinger.fingerId);
   256 {$ELSE}
   256 {$ELSE}
       
   257                 SDL_MOUSEMOTION:
       
   258                     ProcessMouseMotion(event.motion.xrel, event.motion.yrel);
       
   259 
   257                 SDL_MOUSEBUTTONDOWN:
   260                 SDL_MOUSEBUTTONDOWN:
   258                     if GameState = gsConfirm then
   261                     if GameState = gsConfirm then
   259                         ParseCommand('quit', true)
   262                         ParseCommand('quit', true)
   260                     else
   263                     else
   261                         if (GameState >= gsGame) then ProcessMouse(event.button, true);
   264                         if (GameState >= gsGame) then ProcessMouseButton(event.button, true);
   262 
   265 
   263                 SDL_MOUSEBUTTONUP:
   266                 SDL_MOUSEBUTTONUP:
   264                     if (GameState >= gsGame) then ProcessMouse(event.button, false);
   267                     if (GameState >= gsGame) then ProcessMouseButton(event.button, false);
   265 
   268 
   266                 SDL_MOUSEWHEEL:
   269                 SDL_MOUSEWHEEL:
   267                     begin
   270                     begin
   268                     wheelEvent:= true;
   271                     wheelEvent:= true;
   269                     ProcessMouseWheel(event.wheel.y);
   272                     ProcessMouseWheel(event.wheel.y);
   381         SDLCheck(TTF_Init() <> -1, 'TTF_Init', true);
   384         SDLCheck(TTF_Init() <> -1, 'TTF_Init', true);
   382         WriteLnToConsole(msgOK);
   385         WriteLnToConsole(msgOK);
   383         end;
   386         end;
   384 
   387 
   385     if not allOK then exit;
   388     if not allOK then exit;
   386     SDL_ShowCursor(0);
   389 
   387 
   390     SDL_ShowCursor(SDL_DISABLE);
   388 
   391 
   389 {$IFDEF USE_VIDEO_RECORDING}
   392 {$IFDEF USE_VIDEO_RECORDING}
   390     if GameType = gmtRecord then
   393     if GameType = gmtRecord then
   391         InitOffscreenOpenGL()
   394         InitOffscreenOpenGL()
   392     else
   395     else