equal
deleted
inserted
replaced
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
16 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
17 *) |
17 *) |
18 |
18 |
19 unit uKeys; |
19 unit uKeys; |
20 interface |
20 interface |
|
21 uses uConsts; |
21 {$INCLUDE options.inc} |
22 {$INCLUDE options.inc} |
22 uses uConsts; |
|
23 |
23 |
24 type TBinds = array[0..cKeyMaxIndex] of shortstring; |
24 type TBinds = array[0..cKeyMaxIndex] of shortstring; |
25 |
25 |
26 function KeyNameToCode(name: string): word; |
26 function KeyNameToCode(name: string): word; |
27 procedure ProcessKbd; |
27 procedure ProcessKbd; |