index 7318ea923142f087f813a611d99f1e73593ae168..effe559e475ec78ed53bc6dfe9858e5ea9e1f79b 100644 (file)
JOY2_DOWN = JOYH_BEG + 2*e_MaxJoyHats*4 + 0*4 + HAT_DOWN;
JOY3_DOWN = JOYH_BEG + 3*e_MaxJoyHats*4 + 0*4 + HAT_DOWN;
-function e_InitInput: Boolean;
-procedure e_ReleaseInput;
+procedure e_Input_Initialize;
+procedure e_Input_Finalize;
+
procedure e_UnpressAllKeys;
procedure e_KeyUpDown (key: Integer; down: Boolean);
e_KeyNames[IK_DOT] := '.';
e_KeyNames[IK_MINUS] := '-';
e_KeyNames[IK_EQUALS] := '=';
- e_KeyNames[IK_RMETA] := 'RMETA';
- e_KeyNames[IK_LMETA] := 'LMETA';
e_KeyNames[IK_NONUSBACKSLASH] := 'NONUSBACKSLASH';
// joysticks
result := i < e_MaxJoys
end;
-function e_InitInput: Boolean;
+procedure e_Input_Initialize;
var i: Integer;
begin
for i := 0 to e_MaxJoys - 1 do
e_JoystickAvailable[i] := False;
- GenerateKeyNames;
- result := True
+ GenerateKeyNames
end;
-procedure e_ReleaseInput;
+procedure e_Input_Finalize;
var i: Integer;
begin
for i := 0 to e_MaxJoys - 1 do