hedgewars/uInputHandler.pas
changeset 7870 e031c963c5df
parent 7869 5dd2c047c96f
child 7871 ff55648c73bf
equal deleted inserted replaced
7869:5dd2c047c96f 7870:e031c963c5df
   218 KeyNames[5]:= 'wheeldown';
   218 KeyNames[5]:= 'wheeldown';
   219 
   219 
   220 for i:= 6 to cKeyMaxIndex do
   220 for i:= 6 to cKeyMaxIndex do
   221     begin
   221     begin
   222     s:= shortstring(sdl_getkeyname(i));
   222     s:= shortstring(sdl_getkeyname(i));
   223     //WriteLnToConsole(IntToStr(i) + ': ' + s + ' ' + IntToStr(cKeyMaxIndex));
   223     //WriteLnToConsole('uInputHandler - ' + IntToStr(i) + ': ' + s + ' ' + IntToStr(cKeyMaxIndex));
   224     if s = 'unknown key' then KeyNames[i]:= ''
   224     if s = 'unknown key' then KeyNames[i]:= ''
   225     else 
   225     else 
   226         begin
   226         begin
   227         for t:= 1 to Length(s) do
   227         for t:= 1 to Length(s) do
   228             if s[t] = ' ' then
   228             if s[t] = ' ' then