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