Browse Source

* Add width & height to TJSImageBitmap

Michael Van Canneyt 5 months ago
parent
commit
a8f6799748
1 changed files with 7 additions and 0 deletions
  1. 7 0
      packages/rtl/src/weborworker.pas

+ 7 - 0
packages/rtl/src/weborworker.pas

@@ -1765,9 +1765,16 @@ type
   end;
 
 
+  { TJSImageBitmap }
+
   TJSImageBitmap = class external name 'ImageBitmap'  (TJSObject)
+  private
+    FHeight: cardinal; external name 'height';
+    FWidth: cardinal; external name 'width';
   public
     procedure close();
+    property width : cardinal read FWidth;
+    property height : cardinal read FHeight;
   end;
 
   TJSOffscreenCanvasRenderingContext2D = class;