Using the TMouseButton wrapper instead of an integer

Author: lmbelo

Source/fmx/WrapFmxTypes.pas

@@ -556,7 +556,8 @@ function CheckTouchAttribute(AAttribute: PPyObject; const AAttributeName: string
 
 function TouchActionToPython(ATouchAction: TTouchAction): PPyObject;
 begin
-  Result := GetPythonEngine.PyUnicodeFromString(TRttiEnumerationType.GetName(ATouchAction));
+  Result := GetPythonEngine.PyUnicodeFromString(
+    TRttiEnumerationType.GetName<TTouchAction>(ATouchAction));
 end;
 
 { TPyDelphiFmxObject }
@@ -1219,7 +1220,7 @@ procedure TMouseEventHandler.DoEvent(Sender: TObject; Button: TMouseButton;
   if Assigned(Callable) and PythonOK then
     with GetPythonEngine do begin
       LPyObject := PyDelphiWrapper.Wrap(Sender);
-      LPyButton := PyLong_FromLong(Ord(Button));
+      LPyButton := MouseButtonToPython(Button);
       LPyX := PyFloat_FromDouble(X);
       LPyY := PyFloat_FromDouble(Y);
       LPyTuple := PyTuple_New(5);