equal
deleted
inserted
replaced
83 {$IFDEF IPHONEOS} |
83 {$IFDEF IPHONEOS} |
84 procedure setiPhoneBinds; |
84 procedure setiPhoneBinds; |
85 {$ENDIF} |
85 {$ENDIF} |
86 {$ENDIF} |
86 {$ENDIF} |
87 implementation |
87 implementation |
88 uses uTeams, uConsole, uMisc; |
88 uses uTeams, uConsole, uMisc, uVariables; |
89 //const KeyNumber = 1024; |
89 //const KeyNumber = 1024; |
90 |
90 |
91 var tkbd, tkbdn: TKeyboardState; |
91 var tkbd, tkbdn: TKeyboardState; |
92 KeyNames: array [0..cKeyMaxIndex] of string[15]; |
92 KeyNames: array [0..cKeyMaxIndex] of string[15]; |
93 |
93 |