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; |
23 uses uConsts, SDLh, uTypes; |
24 |
|
25 type TBinds = array[0..cKeyMaxIndex] of shortstring; |
|
26 type TKeyboardState = array[0..cKeyMaxIndex] of Byte; |
|
27 |
24 |
28 procedure initModule; |
25 procedure initModule; |
29 procedure freeModule; |
26 procedure freeModule; |
30 |
27 |
31 function KeyNameToCode(name: shortstring): word; |
28 function KeyNameToCode(name: shortstring): word; |