hedgewars/uKeys.pas
changeset 4131 e89d11f6361c
parent 4046 cfdbddc4b385
child 4359 83ef50815535
equal deleted inserted replaced
4130:f437909ac9d4 4131:e89d11f6361c
   348 DefaultBinds[KeyNameToCode('left')]:= '+left';
   348 DefaultBinds[KeyNameToCode('left')]:= '+left';
   349 DefaultBinds[KeyNameToCode('right')]:= '+right';
   349 DefaultBinds[KeyNameToCode('right')]:= '+right';
   350 DefaultBinds[KeyNameToCode('left_shift')]:= '+precise';
   350 DefaultBinds[KeyNameToCode('left_shift')]:= '+precise';
   351 {$ENDIF}
   351 {$ENDIF}
   352 
   352 
       
   353 for i:= 1 to 10 do DefaultBinds[KeyNameToCode('f'+inttostr(i))]:= 'slot '+inttostr(i);
       
   354 
   353 SetDefaultBinds();
   355 SetDefaultBinds();
   354 end;
   356 end;
   355 
   357 
   356 procedure SetBinds(var binds: TBinds);
   358 procedure SetBinds(var binds: TBinds);
   357 begin
   359 begin