X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fengine%2Fe_input_sdl2.inc;h=effe559e475ec78ed53bc6dfe9858e5ea9e1f79b;hb=1268da694ceafa746d756eb42050809ddf846b1b;hp=7318ea923142f087f813a611d99f1e73593ae168;hpb=c7142be1c73501f5ca7fff57c6b1af1891ed83d0;p=d2df-sdl.git diff --git a/src/engine/e_input_sdl2.inc b/src/engine/e_input_sdl2.inc index 7318ea9..effe559 100644 --- a/src/engine/e_input_sdl2.inc +++ b/src/engine/e_input_sdl2.inc @@ -215,8 +215,9 @@ const 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); @@ -340,8 +341,6 @@ begin 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 @@ -382,16 +381,15 @@ begin 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