hedgewars/uKeys.pas
changeset 2613 e873f4bfed09
parent 2606 ed687a8d081f
child 2630 079ef82eac75
--- a/hedgewars/uKeys.pas	Tue Nov 10 16:43:15 2009 +0000
+++ b/hedgewars/uKeys.pas	Tue Nov 10 18:56:24 2009 +0000
@@ -309,16 +309,18 @@
 KeyNames[5]:= 'wheeldown';
 
 for i:= 6 to cKeyMaxIndex do
-    begin
-    s:= SDL_GetKeyName(i);
-//	addfilelog(inttostr(i) + ' ' + s);
-    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
-       end;
-    end;
+	begin
+    	s:= string(sdl_getkeyname(i));
+	//writeln(stdout,inttostr(i) + ': ' + s);
+    	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
+       	end;
+end;
+
+//for i:= 0 to cKeyMaxIndex do writeln(stdout,inttostr(i) + ': ' + KeyNames[i]);
 
 {$IFDEF SDL13}
 PByteArray(SDL_GetKeyboardState(@i));