equal
deleted
inserted
replaced
18 |
18 |
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 |
20 |
21 unit uKeys; |
21 unit uKeys; |
22 interface |
22 interface |
23 uses uConsts, SDLh, uTypes; |
23 uses SDLh, uTypes; |
24 |
24 |
25 procedure initModule; |
25 procedure initModule; |
26 procedure freeModule; |
26 procedure freeModule; |
27 |
27 |
28 function KeyNameToCode(name: shortstring): word; |
28 function KeyNameToCode(name: shortstring): word; |
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; |
85 uses uTeams, 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 |