hedgewars/uWorld.pas
changeset 14809 c2793ff4e887
parent 14808 9443dc6663ba
child 14914 9ab78e08a34c
equal deleted inserted replaced
14808:9443dc6663ba 14809:c2793ff4e887
  2146 
  2146 
  2147 procedure updateCursorVisibility;
  2147 procedure updateCursorVisibility;
  2148 begin
  2148 begin
  2149     if isPaused or isAFK or (GameState = gsConfirm) then
  2149     if isPaused or isAFK or (GameState = gsConfirm) then
  2150         begin
  2150         begin
       
  2151 {$IFNDEF USE_TOUCH_INTERFACE}
  2151         SDL_SetRelativeMouseMode(SDL_FALSE);
  2152         SDL_SetRelativeMouseMode(SDL_FALSE);
       
  2153 {$ENDIF}
  2152         if SDL_ShowCursor(SDL_QUERY) = SDL_DISABLE then
  2154         if SDL_ShowCursor(SDL_QUERY) = SDL_DISABLE then
  2153             begin
  2155             begin
  2154             uCursor.resetPosition;
  2156             uCursor.resetPosition;
       
  2157 {$IFNDEF USE_TOUCH_INTERFACE}
  2155             SDL_ShowCursor(SDL_ENABLE);
  2158             SDL_ShowCursor(SDL_ENABLE);
       
  2159 {$ENDIF}
  2156             end;
  2160             end;
  2157         end
  2161         end
  2158     else
  2162     else
  2159         begin
  2163         begin
  2160         uCursor.resetPositionDelta;
  2164         uCursor.resetPositionDelta;
       
  2165 {$IFNDEF USE_TOUCH_INTERFACE}
  2161         SDL_ShowCursor(SDL_DISABLE);
  2166         SDL_ShowCursor(SDL_DISABLE);
  2162         SDL_SetRelativeMouseMode(SDL_TRUE);
  2167         SDL_SetRelativeMouseMode(SDL_TRUE);
       
  2168 {$ENDIF}
  2163         end;
  2169         end;
  2164 end;
  2170 end;
  2165 
  2171 
  2166 procedure updateTouchWidgets(ammoType: TAmmoType);
  2172 procedure updateTouchWidgets(ammoType: TAmmoType);
  2167 begin
  2173 begin