From 7afdff00def9d9b26e57dab38b5217fdf41e74e6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 1 Sep 2021 22:25:53 +0200
Subject: [PATCH] * Scrollintoview

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

diff --git a/packages/rtl/web.pas b/packages/rtl/web.pas
index b3e022c..7aeff86 100644
--- a/packages/rtl/web.pas
+++ b/packages/rtl/web.pas
@@ -2260,6 +2260,13 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
     property parentRule : TJSCSSRule read FParentRule;
   end;
 
+  TJSScrollIntoViewOptions = class external name 'Object'  (TJSObject)
+    behaviour : string;
+    block : string;
+    inline_ : string; external name 'inline';
+  end;
+
+
   { TJSHTMLElement }
 
   TJSHTMLElement = class external name 'HTMLElement' (TJSElement)
@@ -2363,6 +2370,10 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
     Procedure blur;
     Procedure focus;
     Procedure click;
+    procedure scrollIntoView; overload;
+    procedure scrollIntoView(alignToTop : Boolean);
+    procedure scrollIntoView(aObj : TJSObject);
+    procedure scrollIntoView(Opts: TJSScrollIntoViewOptions);
     property dataset : TJSObject read FDataset;
     property isContentEditable : Boolean read FIsContentEditable;
     property offsetHeight : Double Read FOffsetHeight;