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 uTeams, uConsole, uMisc, uVariables, uConsts; |
85 uses uConsole, 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 |