hedgewars/uKeys.pas
changeset 4046 cfdbddc4b385
parent 3971 5c82ee165ed5
child 4131 e89d11f6361c
--- a/hedgewars/uKeys.pas	Sun Oct 31 00:32:41 2010 -0400
+++ b/hedgewars/uKeys.pas	Sun Oct 31 12:19:54 2010 -0400
@@ -264,15 +264,16 @@
 
 for i:= 6 to cKeyMaxIndex do
     begin
-        s:= shortstring(sdl_getkeyname(i));
+    s:= shortstring(sdl_getkeyname(i));
     //writeln(stdout,inttostr(i) + ': ' + s);
-        if s = 'unknown key' then KeyNames[i]:= ''
-        else begin
+    if s = 'unknown key' then KeyNames[i]:= ''
+    else 
+        begin
         for t:= 1 to Length(s) do
             if s[t] = ' ' then s[t]:= '_';
-            KeyNames[i]:= s
+        KeyNames[i]:= s
         end;
-end;
+    end;
 
 //for i:= 0 to cKeyMaxIndex do writeln(stdout,inttostr(i) + ': ' + KeyNames[i]);