equal
deleted
inserted
replaced
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 |