--- 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));