Adding TRectangle wrapper

Author: lmbelo

Source/fmx/WrapFmxShapes.pas

@@ -26,6 +26,16 @@   TPyDelphiLine = class(TPyDelphiShape)
     property DelphiObject: TLine read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiRectangle = class(TPyDelphiShape)
+  private
+    function  GetDelphiObject: TRectangle;
+    procedure SetDelphiObject(const Value: TRectangle);
+  public
+    class function  DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TRectangle read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -58,6 +68,7 @@ procedure TShapesRegistration.RegisterWrappers(
   inherited;
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiShape);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiLine);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiRectangle);
 end;
 
 { TPyDelphiShape }
@@ -94,6 +105,23 @@ procedure TPyDelphiLine.SetDelphiObject(const Value: TLine);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiRectangle }
+
+class function TPyDelphiRectangle.DelphiObjectClass: TClass;
+begin
+  Result := TRectangle;
+end;
+
+function TPyDelphiRectangle.GetDelphiObject: TRectangle;
+begin
+  Result := TRectangle(inherited DelphiObject);
+end;
+
+procedure TPyDelphiRectangle.SetDelphiObject(const Value: TRectangle);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TShapesRegistration.Create);