Wrapper for TMouseButton

Author: lmbelo

Source/WrapDelphiTypes.pas

@@ -9,7 +9,11 @@ interface
   SysUtils,
   PythonEngine,
   Types,
-  WrapDelphi;
+  WrapDelphi
+  {$IFDEF DELPHI10_OR_HIGHER}
+  , System.UITypes
+  {$ENDIF DELPHI10_OR_HIGHER}
+  ;
 
 type
   TPyDelphiPoint = class(TPyObject)
@@ -95,14 +99,14 @@   TPyDelphiSize = class(TPyObject)
   function CheckRectAttribute(AAttribute : PPyObject; const AAttributeName : string; out AValue : TRect) : Boolean;
   function CheckSizeAttribute(AAttribute : PPyObject; const AAttributeName : string; out AValue : TSize) : Boolean;
 
+  {$IFDEF DELPHI10_OR_HIGHER}
+  function MouseButtonToPython(const AMouseButton: TMouseButton): PPyObject;
+  {$ENDIF DELPHI10_OR_HIGHER}
+
 implementation
 
 uses
-  Math
-  {$IFDEF DELPHI10_OR_HIGHER}
-  , System.UITypes
-  {$ENDIF DELPHI10_OR_HIGHER}
-  ;
+  Math, Rtti;
 
  { Register the wrappers, the globals and the constants }
 type
@@ -158,6 +162,14 @@ procedure TTypesRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapper
   APyDelphiWrapper.RegisterHelperType(TPyDelphiSize);
 end;
 
+{$IFDEF DELPHI10_OR_HIGHER}
+function MouseButtonToPython(const AMouseButton: TMouseButton): PPyObject;
+begin
+  Result := GetPythonEngine.PyUnicodeFromString(
+    TRttiEnumerationType.GetName<TMouseButton>(AMouseButton));
+end;
+{$ENDIF DELPHI10_OR_HIGHER}
+
 { Helper functions }
 
 function WrapPoint(APyDelphiWrapper : TPyDelphiWrapper; const APoint : TPoint) : PPyObject;