hedgewars/uKeys.pas
changeset 6497 2359798a8dce
parent 6444 eddc1e9bcd81
child 6580 6155187bf599
equal deleted inserted replaced
6496:7be68796d725 6497:2359798a8dce
   327 DefaultBinds[KeyNameToCode('right')]:= '+right';
   327 DefaultBinds[KeyNameToCode('right')]:= '+right';
   328 DefaultBinds[KeyNameToCode('left_shift')]:= '+precise';
   328 DefaultBinds[KeyNameToCode('left_shift')]:= '+precise';
   329 {$ENDIF}
   329 {$ENDIF}
   330 
   330 
   331 for i:= 1 to 10 do DefaultBinds[KeyNameToCode('f'+IntToStr(i))]:= 'slot '+IntToStr(i);
   331 for i:= 1 to 10 do DefaultBinds[KeyNameToCode('f'+IntToStr(i))]:= 'slot '+IntToStr(i);
       
   332 for i:= 1 to 5  do DefaultBinds[KeyNameToCode(IntToStr(i))]:= 'timer '+IntToStr(i);
   332 
   333 
   333 SetDefaultBinds();
   334 SetDefaultBinds();
   334 end;
   335 end;
   335 
   336 
   336 procedure SetBinds(var binds: TBinds);
   337 procedure SetBinds(var binds: TBinds);