hedgewars/uMisc.pas
changeset 14829 9443dc6663ba
parent 12621 d972b31f8881
child 14910 9b292184d793
--- a/hedgewars/uMisc.pas	Tue Apr 16 00:07:15 2019 +0300
+++ b/hedgewars/uMisc.pas	Thu Apr 18 19:44:25 2019 +0200
@@ -26,7 +26,6 @@
 procedure initModule;
 procedure freeModule;
 
-procedure movecursor(dx, dy: LongInt);
 function  doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface;
 function MakeScreenshot(filename: shortstring; k: LongInt; dump: LongWord): boolean;
 function  GetTeamStatString(p: PTeam): shortstring;
@@ -46,17 +45,6 @@
 
 var conversionFormat : PSDL_PixelFormat;
 
-procedure movecursor(dx, dy: LongInt);
-var x, y: LongInt;
-begin
-if (dx = 0) and (dy = 0) then exit;
-
-SDL_GetMouseState(@x, @y);
-Inc(x, dx);
-Inc(y, dy);
-SDL_WarpMouse(x, y);
-end;
-
 {$IFDEF PNG_SCREENSHOTS}
 // this funtion will be executed in separate thread
 function SaveScreenshot(screenshot: pointer): LongInt; cdecl; export;