Adding TCustomPath wrapper

Author: lmbelo

Source/fmx/WrapFmxShapes.pas

@@ -101,6 +101,15 @@   TPyDelphiArc = class(TPyDelphiEllipse)
     property DelphiObject: TArc read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiCustomPath = class(TPyDelphiShape)
+    function  GetDelphiObject: TCustomPath;
+    procedure SetDelphiObject(const Value: TCustomPath);
+  public
+    class function  DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TCustomPath read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -141,6 +150,7 @@ procedure TShapesRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCircle);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPie);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiArc);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomPath);
 end;
 
 { TPyDelphiShape }
@@ -314,6 +324,23 @@ procedure TPyDelphiArc.SetDelphiObject(const Value: TArc);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiCustomPath }
+
+class function TPyDelphiCustomPath.DelphiObjectClass: TClass;
+begin
+  Result := TCustomPath
+end;
+
+function TPyDelphiCustomPath.GetDelphiObject: TCustomPath;
+begin
+  Result := TCustomPath(inherited DelphiObject);
+end;
+
+procedure TPyDelphiCustomPath.SetDelphiObject(const Value: TCustomPath);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TShapesRegistration.Create);