hedgewars/uKeys.pas
changeset 2606 ed687a8d081f
parent 2599 c7153d2348f3
child 2613 e873f4bfed09
equal deleted inserted replaced
2605:a40a7c90ffd8 2606:ed687a8d081f
   366 	
   366 	
   367 DefaultBinds[ 27]:= 'quit';
   367 DefaultBinds[ 27]:= 'quit';
   368 DefaultBinds[ 96]:= 'history';
   368 DefaultBinds[ 96]:= 'history';
   369 DefaultBinds[127]:= 'rotmask';
   369 DefaultBinds[127]:= 'rotmask';
   370 
   370 
       
   371 //numpad
       
   372 //DefaultBinds[265]:= '+volup';
       
   373 //DefaultBinds[256]:= '+voldown';
       
   374 
   371 DefaultBinds[KeyNameToCode('0')]:= '+volup';
   375 DefaultBinds[KeyNameToCode('0')]:= '+volup';
   372 DefaultBinds[KeyNameToCode('9')]:= '+voldown';
   376 DefaultBinds[KeyNameToCode('9')]:= '+voldown';
   373 DefaultBinds[KeyNameToCode('c')]:= 'capture';
   377 DefaultBinds[KeyNameToCode('c')]:= 'capture';
   374 DefaultBinds[KeyNameToCode('h')]:= 'findhh';
   378 DefaultBinds[KeyNameToCode('h')]:= 'findhh';
   375 DefaultBinds[KeyNameToCode('p')]:= 'pause';
   379 DefaultBinds[KeyNameToCode('p')]:= 'pause';
   386 SetDefaultBinds
   390 SetDefaultBinds
   387 end;
   391 end;
   388 
   392 
   389 procedure SetBinds(var binds: TBinds);
   393 procedure SetBinds(var binds: TBinds);
   390 begin
   394 begin
   391 CurrentBinds:= binds
   395 CurrentBinds:= binds;
   392 end;
   396 end;
   393 
   397 
   394 procedure SetDefaultBinds;
   398 procedure SetDefaultBinds;
   395 begin
   399 begin
   396 CurrentBinds:= DefaultBinds
   400 CurrentBinds:= DefaultBinds