hedgewars/uKeys.pas
changeset 1051 dfdd5dfe97d4
parent 1022 f6a3fcb329ca
child 1066 1f1b3686a2b0
equal deleted inserted replaced
1050:8e5f8bf9a242 1051:dfdd5dfe97d4
   115 DefaultBinds[ 27]:= 'quit';
   115 DefaultBinds[ 27]:= 'quit';
   116 DefaultBinds[ 48]:= '+volup';
   116 DefaultBinds[ 48]:= '+volup';
   117 DefaultBinds[ 57]:= '+voldown';
   117 DefaultBinds[ 57]:= '+voldown';
   118 DefaultBinds[ 96]:= 'history';
   118 DefaultBinds[ 96]:= 'history';
   119 DefaultBinds[ 99]:= 'capture';
   119 DefaultBinds[ 99]:= 'capture';
   120 DefaultBinds[102]:= 'fullscr';
       
   121 DefaultBinds[104]:= 'findhh';
   120 DefaultBinds[104]:= 'findhh';
   122 DefaultBinds[112]:= 'pause';
   121 DefaultBinds[112]:= 'pause';
   123 DefaultBinds[115]:= '+speedup';
   122 DefaultBinds[115]:= '+speedup';
   124 DefaultBinds[116]:= 'chat';
   123 DefaultBinds[116]:= 'chat';
   125 DefaultBinds[121]:= 'confirm';
   124 DefaultBinds[121]:= 'confirm';
   126 DefaultBinds[127]:= 'rotmask';
   125 DefaultBinds[127]:= 'rotmask';
       
   126 
       
   127 DefaultBinds[KeyNameToCode('f12')]:= 'fullscr';
       
   128 
   127 SetDefaultBinds
   129 SetDefaultBinds
   128 end;
   130 end;
   129 
   131 
   130 procedure SetBinds(var binds: TBinds);
   132 procedure SetBinds(var binds: TBinds);
   131 begin
   133 begin