hedgewars/uCommandHandlers.pas
branchhedgeroid
changeset 5530 25d4118056e1
parent 5385 a864a0aeed96
parent 5524 40b7f95d9f18
child 5577 272c82f82cee
--- a/hedgewars/uCommandHandlers.pas	Tue Aug 09 21:31:49 2011 +0200
+++ b/hedgewars/uCommandHandlers.pas	Tue Aug 09 21:41:52 2011 +0200
@@ -46,9 +46,13 @@
     if GameState <> gsConfirm then
     begin
         prevGState:= GameState;
-        GameState:= gsConfirm
+        GameState:= gsConfirm;
+        SDL_ShowCursor(1)
     end else
-    GameState:= prevGState
+    begin
+        GameState:= prevGState;
+        SDL_ShowCursor(ord(isPaused))
+    end
 end;
 
 procedure chForceQuit(var s: shortstring);
@@ -529,7 +533,11 @@
 s:= s; // avoid compiler hint
 if gameType <> gmtNet then
     isPaused:= not isPaused;
-SDL_ShowCursor(ord(isPaused))
+
+if isPaused then
+    SDL_ShowCursor(1)
+    else
+    SDL_ShowCursor(ord(GameState = gsConfirm))
 end;
 
 procedure chRotateMask(var s: shortstring);