hedgewars/uInputHandler.pas
changeset 7089 6c7210257945
parent 7088 dbec9bae4de1
child 7106 aacb90365d3d
--- a/hedgewars/uInputHandler.pas	Thu May 17 20:01:56 2012 +0200
+++ b/hedgewars/uInputHandler.pas	Thu May 17 20:19:35 2012 +0200
@@ -26,7 +26,6 @@
 procedure freeModule;
 
 function  KeyNameToCode(name: shortstring): word;
-procedure ProcessKbd;
 procedure ProcessMouse(event: TSDL_MouseButtonEvent; ButtonDown: boolean);
 procedure ProcessKey(event: TSDL_KeyboardEvent); inline;
 procedure ProcessKey(code: LongInt; KeyDown: boolean);
@@ -60,16 +59,6 @@
     KeyNameToCode:= code;
 end;
 
-procedure ProcessKbd;
-//var  i, j, k: LongInt;
-begin
-
-// move cursor/camera
-// TODO: Scale on screen dimensions and/or axis value (game controller)?
-//TODO what is this for?
-movecursor(5 * CursorMovementX, 5 * CursorMovementY);
-end;
-
 procedure ProcessKey(code: LongInt; KeyDown: boolean);
 var
     Trusted: boolean;