hedgewars/uWorld.pas
changeset 10392 5012e1f9e893
parent 10360 c243b6a8ad9a
child 10425 9bf21d178d13
--- a/hedgewars/uWorld.pas	Fri Aug 22 00:37:26 2014 +0400
+++ b/hedgewars/uWorld.pas	Fri Aug 22 00:57:07 2014 +0400
@@ -40,6 +40,7 @@
 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean);
 procedure MoveCamera;
 procedure onFocusStateChanged;
+procedure updateCursorVisibility;
 
 implementation
 uses
@@ -2054,6 +2055,14 @@
     end;
 end;
 
+procedure updateCursorVisibility;
+begin       
+    if isPaused or isAFK then
+        SDL_ShowCursor(1)
+    else
+        SDL_ShowCursor(ord(GameState = gsConfirm))
+end;
+
 procedure SetUtilityWidgetState(ammoType: TAmmoType);
 begin
 {$IFDEF USE_TOUCH_INTERFACE}