hedgewars/uInputHandler.pas
changeset 8145 6408c0ba4ba1
parent 7974 7ac6699b6228
child 8330 aaefa587e277
child 8346 3443e0de2c9d
equal deleted inserted replaced
8143:3f2ba6debbdd 8145:6408c0ba4ba1
    58 
    58 
    59 var tkbd: array[0..cKbdMaxIndex] of boolean;
    59 var tkbd: array[0..cKbdMaxIndex] of boolean;
    60     quitKeyCode, closeKeyCode: Byte;
    60     quitKeyCode, closeKeyCode: Byte;
    61     KeyNames: array [0..cKeyMaxIndex] of string[15];
    61     KeyNames: array [0..cKeyMaxIndex] of string[15];
    62     CurrentBinds: TBinds;
    62     CurrentBinds: TBinds;
       
    63     ControllerNumControllers: Integer;
       
    64     ControllerEnabled: Integer;
       
    65     ControllerNumAxes: array[0..5] of Integer;
       
    66     //ControllerNumBalls: array[0..5] of Integer;
       
    67     ControllerNumHats: array[0..5] of Integer;
       
    68     ControllerNumButtons: array[0..5] of Integer;
       
    69     ControllerAxes: array[0..5] of array[0..19] of Integer;
       
    70     //ControllerBalls: array[0..5] of array[0..19] of array[0..1] of Integer;
       
    71     ControllerHats: array[0..5] of array[0..19] of Byte;
       
    72     ControllerButtons: array[0..5] of array[0..19] of Byte;
    63 
    73 
    64 function  KeyNameToCode(name: shortstring): LongInt; inline;
    74 function  KeyNameToCode(name: shortstring): LongInt; inline;
    65 begin
    75 begin
    66     KeyNameToCode:= KeyNameToCode(name, '');
    76     KeyNameToCode:= KeyNameToCode(name, '');
    67 end;
    77 end;