hedgewars/uInputHandler.pas
changeset 7106 aacb90365d3d
parent 7089 6c7210257945
child 7117 7df6386f7090
equal deleted inserted replaced
7105:9007531f813f 7106:aacb90365d3d
   190 KeyNames[5]:= 'wheeldown';
   190 KeyNames[5]:= 'wheeldown';
   191 
   191 
   192 for i:= 6 to cKeyMaxIndex do
   192 for i:= 6 to cKeyMaxIndex do
   193     begin
   193     begin
   194     s:= shortstring(sdl_getkeyname(i));
   194     s:= shortstring(sdl_getkeyname(i));
   195     //WriteToConsole(IntToStr(i) + ': ' + s + ' ' + IntToStr(cKeyMaxIndex));
   195     //WriteLnToConsole(IntToStr(i) + ': ' + s + ' ' + IntToStr(cKeyMaxIndex));
   196     if s = 'unknown key' then KeyNames[i]:= ''
   196     if s = 'unknown key' then KeyNames[i]:= ''
   197     else 
   197     else 
   198         begin
   198         begin
   199         for t:= 1 to Length(s) do
   199         for t:= 1 to Length(s) do
   200             if s[t] = ' ' then
   200             if s[t] = ' ' then
   248 DefaultBinds[KeyNameToCode(_S's')]:= '+speedup';
   248 DefaultBinds[KeyNameToCode(_S's')]:= '+speedup';
   249 DefaultBinds[KeyNameToCode(_S't')]:= 'chat';
   249 DefaultBinds[KeyNameToCode(_S't')]:= 'chat';
   250 DefaultBinds[KeyNameToCode(_S'y')]:= 'confirm';
   250 DefaultBinds[KeyNameToCode(_S'y')]:= 'confirm';
   251 
   251 
   252 DefaultBinds[KeyNameToCode('mousem')]:= 'zoomreset';
   252 DefaultBinds[KeyNameToCode('mousem')]:= 'zoomreset';
   253 DefaultBinds[KeyNameToCode('wheelup')]:= 'zoomout';
   253 DefaultBinds[KeyNameToCode('wheelup')]:= 'zoomin';
   254 DefaultBinds[KeyNameToCode('wheeldown')]:= 'zoomin';
   254 DefaultBinds[KeyNameToCode('wheeldown')]:= 'zoomout';
   255 
   255 
   256 DefaultBinds[KeyNameToCode('f12')]:= 'fullscr';
   256 DefaultBinds[KeyNameToCode('f12')]:= 'fullscr';
   257 
   257 
   258 
   258 
   259 DefaultBinds[KeyNameToCode('mousel')]:= '/put';
   259 DefaultBinds[KeyNameToCode('mousel')]:= '/put';