Extending/Fixing Graphic and Bitmap constructors

Author: lmbelo

Source/vcl/WrapVclGraphics.pas

@@ -38,6 +38,8 @@   TPyDelphiGraphic = class(TPyDelphiPersistent)
     function Set_Transparent( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
     function Set_Width( AValue : PPyObject; AContext : Pointer) : integer; cdecl;
   public
+    constructor CreateWith(APythonType: TPythonType; args: PPyObject); override;
+
     class function  DelphiObjectClass : TClass; override;
     class procedure RegisterGetSets( PythonType : TPythonType ); override;
     class procedure RegisterMethods( PythonType : TPythonType ); override;
@@ -88,6 +90,8 @@   TPyDelphiBitmap = class(TPyDelphiGraphic)
     function Set_TransparentColor( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
     function Set_TransparentMode( AValue : PPyObject; AContext : Pointer) : Integer; cdecl;
   public
+    constructor CreateWith(APythonType: TPythonType; args: PPyObject); override;
+
     class function  DelphiObjectClass : TClass; override;
     class procedure RegisterGetSets( PythonType : TPythonType ); override;
     class procedure RegisterMethods( PythonType : TPythonType ); override;
@@ -362,6 +366,13 @@ procedure TGraphicsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrap
 
 { TPyDelphiGraphic }
 
+constructor TPyDelphiGraphic.CreateWith(APythonType: TPythonType;
+  args: PPyObject);
+begin
+  inherited;
+  DelphiObject := TGraphicClass(DelphiObjectClass()).Create();
+end;
+
 class function TPyDelphiGraphic.DelphiObjectClass: TClass;
 begin
   Result := TGraphic;
@@ -695,6 +706,16 @@ function TPyDelphiGraphic.Set_Width(AValue: PPyObject;
 
 { TPyDelphiBitmap }
 
+constructor TPyDelphiBitmap.CreateWith(APythonType: TPythonType;
+  args: PPyObject);
+var
+  LWidth, LHeight : Integer;
+begin
+  inherited;
+  if APythonType.Engine.PyArg_ParseTuple(args, 'ii:Create', @LWidth, @LHeight) <> 0 then
+    DelphiObject.SetSize(LWidth, LHeight);
+end;
+
 class function TPyDelphiBitmap.DelphiObjectClass: TClass;
 begin
   Result := TBitmap;