17  *)

    17  *)

    18 

    18 

    19 unit uKeys;

    19 unit uKeys;

    20 interface

    20 interface

    21 uses uConsts, SDLh;

    21 uses uConsts, SDLh;

    23 

    23 

    24 type TBinds = array[0..cKeyMaxIndex] of shortstring;

    24 type TBinds = array[0..cKeyMaxIndex] of shortstring;

    25 type TKeyboardState = array[0..cKeyMaxIndex] of Byte;

    25 type TKeyboardState = array[0..cKeyMaxIndex] of Byte;

    26 

    26 

    27 function  KeyNameToCode(name: string): word;

    27 function  KeyNameToCode(name: string): word;