* as pointed to by Dmitry Boyarintsev (bug #31023), TurnMouseOff is not used and may be removed

git-svn-id: trunk@35052 -

packages/rtl-console/src/win/crt.pp

@@ -39,17 +39,6 @@ var
                            Low level Routines
 ****************************************************************************}
 
-procedure TurnMouseOff;
-var Mode: DWORD;
-begin
-  if GetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), @Mode) then begin { Turn the mouse-cursor off }
-    Mode := Mode //AND cardinal(NOT enable_processed_input)
-      AND cardinal(NOT enable_mouse_input);
-
-    SetConsoleMode(GetStdHandle(STD_INPUT_HANDLE), Mode);
-  end; { if }
-end; { proc. TurnMouseOff }
-
 function GetScreenHeight : DWord;
 var
   ConsoleInfo: TConsoleScreenBufferinfo;