Update TSDL_HapticEffect (add leftright case)

Author: Free-Pascal-meets-SDL-Website

units/sdlhaptic.inc

@@ -767,13 +767,14 @@ type
   PSDL_HapticEffect = ^TSDL_HapticEffect;
   TSDL_HapticEffect = record
     {* Common for all force feedback effects *}
-    _type: cuint16;                  {**< Effect type. *}
+    type_: cuint16;                           {**< Effect type. *}
     case cuint16 of
       0: (constant: TSDL_HapticConstant;);    {**< Constant effect. *}
       1: (periodic: TSDL_HapticPeriodic;);    {**< Periodic effect. *}
       2: (condition: TSDL_HapticCondition;);  {**< Condition effect. *}
       3: (ramp: TSDL_HapticRamp;);            {**< Ramp effect. *}
-      4: (custom: TSDL_HapticCustom;);        {**< Custom effect. *}
+      4: (leftright: TSDL_HapticLeftRight;);  {**< Custom effect. *}
+      5: (custom: TSDL_HapticCustom;);        {**< Custom effect. *}
   end;
 
   {* Function prototypes *}