hedgewars/uInputHandler.pas
branchsdl2transition
changeset 9682 aa2431ed87b2
parent 9466 8b48c27201af
child 9691 a312103af4b1
equal deleted inserted replaced
9679:dfaa39674e1e 9682:aa2431ed87b2
   229 KeyNames[5]:= 'wheeldown';
   229 KeyNames[5]:= 'wheeldown';
   230 
   230 
   231 for i:= 6 to cKeyMaxIndex do
   231 for i:= 6 to cKeyMaxIndex do
   232     begin
   232     begin
   233     s:= shortstring(sdl_getkeyname(i));
   233     s:= shortstring(sdl_getkeyname(i));
   234     //WriteLnToConsole('uInputHandler - ' + IntToStr(i) + ': ' + s + ' ' + IntToStr(cKeyMaxIndex));
   234     //AddFileLog('uInputHandler - ' + IntToStr(i) + ': ' + s + ' ' + IntToStr(cKeyMaxIndex));
   235     if s = 'unknown key' then KeyNames[i]:= ''
   235     if s = 'unknown key' then KeyNames[i]:= ''
   236     else 
   236     else 
   237         begin
   237         begin
   238         for t:= 1 to Length(s) do
   238         for t:= 1 to Length(s) do
   239             if s[t] = ' ' then
   239             if s[t] = ' ' then