From 462adf92776a4c90d97a61cd3087044601fc86bb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Mon, 17 Jun 2024 14:54:54 +0200
Subject: [PATCH] * CanvasGradient.AddColorStyp,
 canvasrenderingcontext.RoundRect

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

diff --git a/packages/rtl/src/web.pas b/packages/rtl/src/web.pas
index 1d3e78a..774150a 100644
--- a/packages/rtl/src/web.pas
+++ b/packages/rtl/src/web.pas
@@ -2515,6 +2515,7 @@ Type
 
   // Opaque objects
   TJSCanvasGradient = class external name 'CanvasGradient'  (TJSObject)
+    procedure addColorStop(offset : double; aColor : string);
   end;
 
   TJSCanvasPattern = class external name 'CanvasPattern'  (TJSObject)
@@ -2644,6 +2645,7 @@ Type
     procedure rect(x,y,awidth,aheight: TCanvasCoordType); overload;
     procedure restore;
     procedure rotate(anAngle : double);
+    procedure roundRect(x,y,width,height : double; Radii : TJSArray);
     procedure save;
     procedure scale(x,y : double);
     procedure setLineDash(segments : TJSArray); overload;