hedgewars/uKeys.pas
changeset 4373 fe0e3903bb9e
parent 4368 b89235e401e5
child 4374 bcefeeabaa33
equal deleted inserted replaced
4372:3836973380b9 4373:fe0e3903bb9e
    80 {$IFDEF IPHONEOS}
    80 {$IFDEF IPHONEOS}
    81 procedure setiPhoneBinds;
    81 procedure setiPhoneBinds;
    82 {$ENDIF}
    82 {$ENDIF}
    83 {$ENDIF}
    83 {$ENDIF}
    84 implementation
    84 implementation
    85 uses uConsole, uMisc, uVariables, uConsts;
    85 uses uConsole, uCommands, uMisc, uVariables, uConsts;
    86 //const KeyNumber = 1024;
    86 //const KeyNumber = 1024;
    87 
    87 
    88 var tkbd, tkbdn: TKeyboardState;
    88 var tkbd, tkbdn: TKeyboardState;
    89     KeyNames: array [0..cKeyMaxIndex] of string[15];
    89     KeyNames: array [0..cKeyMaxIndex] of string[15];
    90 
    90