hedgewars/uKeys.pas
changeset 3697 d5b30d6373fc
parent 3663 8c28abf427f5
child 3971 5c82ee165ed5
--- a/hedgewars/uKeys.pas	Sat Jul 31 10:52:43 2010 +0200
+++ b/hedgewars/uKeys.pas	Sat Jul 31 11:24:53 2010 +0200
@@ -71,16 +71,16 @@
     rightKey: boolean;
     leftKey: boolean;
     preciseKey: boolean;
-    
+
     backspaceKey: boolean;
     spaceKey: boolean;
     enterKey: boolean;
     tabKey: boolean;
-    
+
     chatAction: boolean;
     pauseAction: boolean;
-    
-{$IFDEF IPHONEOS}    
+
+{$IFDEF IPHONEOS}
 procedure setiPhoneBinds;
 {$ENDIF}
 {$ENDIF}
@@ -90,7 +90,7 @@
 
 var tkbd, tkbdn: TKeyboardState;
     KeyNames: array [0..cKeyMaxIndex] of string[15];
-    
+
 function KeyNameToCode(name: shortstring): word;
 var code: Word;
 begin
@@ -247,7 +247,7 @@
         inc(k, 1);
         end;
     end;
-    
+
 for t:= 0 to cKeyMaxIndex do
     tkbd[i]:= tkbdn[i]
 end;
@@ -386,7 +386,7 @@
 
     tkbdn[44]:= ord(chatAction);
     tkbdn[55]:= ord(pauseAction);
-    
+
     // set to false the keys that only need one stoke
     leftClick:= false;
     middleClick:= false;
@@ -395,7 +395,7 @@
     tabKey:= false;
     enterKey:= false;
     backspaceKey:= false;
-    
+
     chatAction:= false;
     pauseAction:= false;
 end;
@@ -408,7 +408,7 @@
 end;
 
 var Controller: array [0..5] of PSDL_Joystick;
-    
+
 procedure ControllerInit;
 var i, j: Integer;
 begin
@@ -442,12 +442,12 @@
             WriteLnToConsole('* Number of hats: ' + inttostr(ControllerNumHats[j]));
             WriteLnToConsole('* Number of buttons: ' + inttostr(ControllerNumButtons[j]));
             ControllerEnabled:= 1;
-            
+
             if ControllerNumAxes[j] > 20 then ControllerNumAxes[j]:= 20;
             //if ControllerNumBalls[j] > 20 then ControllerNumBalls[j]:= 20;
             if ControllerNumHats[j] > 20 then ControllerNumHats[j]:= 20;
             if ControllerNumButtons[j] > 20 then ControllerNumButtons[j]:= 20;
-            
+
             // reset all buttons/axes
             for i:= 0 to pred(ControllerNumAxes[j]) do
                 ControllerAxes[j][i]:= 0;
@@ -465,7 +465,7 @@
     // enable event generation/controller updating
     SDL_JoystickEventState(1);
     end
-else    
+else
     WriteLnToConsole('Not using any game controller');
 end;
 
@@ -500,7 +500,7 @@
     coeff:= 5;
 {$IFDEF HWLIBRARY}
     // this function is called by HW_allKeysUp so be careful
-    
+
     // mouse emulation
     leftClick:= false;
     middleClick:= false;