Adding TPaintBox wrapper

Author: lmbelo

Source/fmx/WrapFmxShapes.pas

@@ -137,6 +137,15 @@   TPyDelphiImage = class(TPyDelphiControl)
     property DelphiObject: TImage read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiPaintBox = class(TPyDelphiControl)
+    function  GetDelphiObject: TPaintBox;
+    procedure SetDelphiObject(const Value: TPaintBox);
+  public
+    class function  DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TPaintBox read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -180,6 +189,8 @@ procedure TShapesRegistration.RegisterWrappers(
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiCustomPath);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPath);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiText);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiImage);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPaintBox);
 end;
 
 { TPyDelphiShape }
@@ -421,6 +432,23 @@ procedure TPyDelphiImage.SetDelphiObject(const Value: TImage);
   inherited DelphiObject := Value;
 end;
 
+{ TPyDelphiPaintBox }
+
+class function TPyDelphiPaintBox.DelphiObjectClass: TClass;
+begin
+  Result := TPaintBox;
+end;
+
+function TPyDelphiPaintBox.GetDelphiObject: TPaintBox;
+begin
+  Result := TPaintBox(inherited DelphiObject);
+end;
+
+procedure TPyDelphiPaintBox.SetDelphiObject(const Value: TPaintBox);
+begin
+  inherited DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add(TShapesRegistration.Create);