equal
deleted
inserted
replaced
88 cursorRight: boolean; |
88 cursorRight: boolean; |
89 |
89 |
90 procedure setiPhoneBinds; |
90 procedure setiPhoneBinds; |
91 {$ENDIF} |
91 {$ENDIF} |
92 implementation |
92 implementation |
93 uses uTeams, uConsole, uMisc, uStore; |
93 uses uTeams, uConsole, uMisc; |
94 const KeyNumber = 1024; |
94 //const KeyNumber = 1024; |
95 |
95 |
96 var tkbd, tkbdn: TKeyboardState; |
96 var tkbd, tkbdn: TKeyboardState; |
97 KeyNames: array [0..cKeyMaxIndex] of string[15]; |
97 KeyNames: array [0..cKeyMaxIndex] of string[15]; |
98 |
98 |
99 function KeyNameToCode(name: shortstring): word; |
99 function KeyNameToCode(name: shortstring): word; |