14  * You should have received a copy of the GNU General Public License

    14  * You should have received a copy of the GNU General Public License

    15  * along with this program; if not, write to the Free Software

    15  * along with this program; if not, write to the Free Software

    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;

    21 unit uKeys;

    20 interface

    22 interface

    21 uses uConsts, SDLh;

    23 uses uConsts, SDLh;

    23 

    24 

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

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

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

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

    26 

    27 

    27 function  KeyNameToCode(name: string): word;

    28 function  KeyNameToCode(name: string): word;