From fe5ab42f2c273d19deb33338e3f2238d1abb9221 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 27 Nov 2020 08:41:43 +0000
Subject: [PATCH] * Make creation of data-tags optional

---
 packages/webwidget/webwidget.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/packages/webwidget/webwidget.pas b/packages/webwidget/webwidget.pas
index 8b44a43..e3e2324 100644
--- a/packages/webwidget/webwidget.pas
+++ b/packages/webwidget/webwidget.pas
@@ -447,6 +447,8 @@ Type
     Property HaveReferences : Boolean Read GetHaveReferences;
     // Property attrs
     Property StoredAttrs : TJSObject Read FAttrs;
+  Public
+    Class var CreateDataTags : Boolean;
   Public
     Constructor Create(aOwner : TComponent); override;
     Destructor Destroy; override;
@@ -475,7 +477,7 @@ Type
     Procedure Refresh;
     // Unrender
     Procedure Unrender; overload;
-    // Focus
+    // Focus widget. Will render if it was not yet rendered.
     Procedure Focus;
     // These work on the classes property, and on the current element if rendered. Returns the new value of classes.
     Function AddRemoveClasses(const aAddClasses, aRemoveClasses : String; Normalize : Boolean = false) : String;
@@ -2819,13 +2821,13 @@ Var
   Procedure MaybeSet(El : TJSHTMLElement; AName : String);
 
   begin
-    if Assigned(el) then
+    if Assigned(el) and CreateDataTags then
       el.Dataset[aName]:=AID;
   end;
 
 begin
   AID:=ElementID;
-  if assigned(Element) then
+  if assigned(Element) and Not CreateDataTags then
     Element.dataset[SElementClass]:=ClassName;
   MaybeSet(Element,SElementData);
   MaybeSet(TopElement,STopElementData);