hedgewars/uInputHandler.pas
branchqmlfrontend
changeset 11704 83c40c1eb0e7
parent 11549 b69f5f22a3ba
parent 11669 64465e0eb852
child 12860 1b2b84315d27
--- a/hedgewars/uInputHandler.pas	Tue Mar 29 22:36:59 2016 +0300
+++ b/hedgewars/uInputHandler.pas	Mon Apr 25 22:10:06 2016 +0300
@@ -318,7 +318,7 @@
     DefaultBinds[KeyNameToCode('j0a0d')]:= '+right';
     DefaultBinds[KeyNameToCode('j0a1u')]:= '+up';
     DefaultBinds[KeyNameToCode('j0a1d')]:= '+down';
-    for i:= 1 to 10 do DefaultBinds[KeyNameToCode('f'+IntToStr(i))]:= 'slot '+IntToStr(i);
+    for i:= 1 to 10 do DefaultBinds[KeyNameToCode('f'+IntToStr(i))]:= 'slot '+char(48+i);
     for i:= 1 to 5  do DefaultBinds[KeyNameToCode(IntToStr(i))]:= 'timer '+IntToStr(i);
 
     loadBinds('dbind', cPathz[ptData] + '/settings.ini');