Browse Source

* Scrollintoview

Michaël Van Canneyt 4 years ago
parent
commit
7afdff00de
1 changed files with 11 additions and 0 deletions
  1. 11 0
      packages/rtl/web.pas

+ 11 - 0
packages/rtl/web.pas

@@ -2260,6 +2260,13 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
     property parentRule : TJSCSSRule read FParentRule;
     property parentRule : TJSCSSRule read FParentRule;
   end;
   end;
 
 
+  TJSScrollIntoViewOptions = class external name 'Object'  (TJSObject)
+    behaviour : string;
+    block : string;
+    inline_ : string; external name 'inline';
+  end;
+
+
   { TJSHTMLElement }
   { TJSHTMLElement }
 
 
   TJSHTMLElement = class external name 'HTMLElement' (TJSElement)
   TJSHTMLElement = class external name 'HTMLElement' (TJSElement)
@@ -2363,6 +2370,10 @@ TEventListenerEvent = class external name 'EventListener_Event' (TJSObject)
     Procedure blur;
     Procedure blur;
     Procedure focus;
     Procedure focus;
     Procedure click;
     Procedure click;
+    procedure scrollIntoView; overload;
+    procedure scrollIntoView(alignToTop : Boolean);
+    procedure scrollIntoView(aObj : TJSObject);
+    procedure scrollIntoView(Opts: TJSScrollIntoViewOptions);
     property dataset : TJSObject read FDataset;
     property dataset : TJSObject read FDataset;
     property isContentEditable : Boolean read FIsContentEditable;
     property isContentEditable : Boolean read FIsContentEditable;
     property offsetHeight : Double Read FOffsetHeight;
     property offsetHeight : Double Read FOffsetHeight;