Adding TPie wrapper

Author: lmbelo

Source/fmx/WrapFmxShapes.pas

@@ -83,6 +83,15 @@ TPyDelphiCircle = class(TPyDelphiEllipse)
  property DelphiObject: TCircle read GetDelphiObject write SetDelphiObject;
  end;
 
+ TPyDelphiPie = class(TPyDelphiEllipse)
+ function GetDelphiObject: TPie;
+ procedure SetDelphiObject(const Value: TPie);
+ public
+ class function DelphiObjectClass : TClass; override;
+ // Properties
+ property DelphiObject: TPie read GetDelphiObject write SetDelphiObject;
+ end;
+
 implementation
 
 uses
@@ -121,6 +130,7 @@ procedure TShapesRegistration.RegisterWrappers(
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCalloutRectangle);
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiEllipse);
  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCircle);
+ APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPie);
 end;
 
 { TPyDelphiShape }
@@ -260,6 +270,23 @@ procedure TPyDelphiCircle.SetDelphiObject(const Value: TCircle);
  inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiPie }
+
+class function TPyDelphiPie.DelphiObjectClass: TClass;
+begin
+ Result := TPie;
+end;
+
+function TPyDelphiPie.GetDelphiObject: TPie;
+begin
+ Result := TPie(inherited DelphiObject);
+end;
+
+procedure TPyDelphiPie.SetDelphiObject(const Value: TPie);
+begin
+ inherited DelphiObject := Value;
+end;
+
 initialization
  RegisteredUnits.Add(TShapesRegistration.Create);