Adding TPath wrapper

Author: lmbelo

Source/fmx/WrapFmxShapes.pas

@@ -110,6 +110,15 @@   TPyDelphiCustomPath = class(TPyDelphiShape)
     property DelphiObject: TCustomPath read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiPath = class(TPyDelphiCustomPath)
+    function  GetDelphiObject: TPath;
+    procedure SetDelphiObject(const Value: TPath);
+  public
+    class function  DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TPath read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -151,6 +160,7 @@ procedure TShapesRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPie);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiArc);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomPath);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPath);
 end;
 
 { TPyDelphiShape }
@@ -341,6 +351,23 @@ procedure TPyDelphiCustomPath.SetDelphiObject(const Value: TCustomPath);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiPath }
+
+class function TPyDelphiPath.DelphiObjectClass: TClass;
+begin
+  Result := TPath
+end;
+
+function TPyDelphiPath.GetDelphiObject: TPath;
+begin
+  Result := TPath(inherited DelphiObject);
+end;
+
+procedure TPyDelphiPath.SetDelphiObject(const Value: TPath);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TShapesRegistration.Create);