From a8f6799748373a18a4681c8911699a1556e83bcf Mon Sep 17 00:00:00 2001
From: Michael Van Canneyt <michael@freepascal.org>
Date: Mon, 3 Mar 2025 17:48:27 +0100
Subject: [PATCH] * Add width & height to TJSImageBitmap

---
 packages/rtl/src/weborworker.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/packages/rtl/src/weborworker.pas b/packages/rtl/src/weborworker.pas
index e838b02..a5b0242 100644
--- a/packages/rtl/src/weborworker.pas
+++ b/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;