equal
deleted
inserted
replaced
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, uCommands, uMisc, uVariables, uConsts, uUtils; |
85 uses uConsole, uCommands, uMisc, uVariables, uConsts, uUtils, uIO; |
86 //const KeyNumber = 1024; |
|
87 |
86 |
88 var tkbd, tkbdn: TKeyboardState; |
87 var tkbd, tkbdn: TKeyboardState; |
89 KeyNames: array [0..cKeyMaxIndex] of string[15]; |
88 KeyNames: array [0..cKeyMaxIndex] of string[15]; |
90 |
89 |
91 function KeyNameToCode(name: shortstring): word; |
90 function KeyNameToCode(name: shortstring): word; |