* Add AddOrRemoveClass

packages/rtl/Rtl.HTMLUtils.pas

@@ -97,6 +97,7 @@ Type
     procedure AddClass(Const aClass: String); overload;
     procedure RemoveClass(Const aClass: String); overload;
     procedure AddRemoveClass(Const aAddClass, aRemoveClass: String); overload;
+    procedure AddOrRemoveClass(const DoAdd : Boolean; Const aClass: String); overload;
     function HasClass(const aClass: String): Boolean;
     Property InputValue: String Read GetInputValue Write SetInputValue;
     Property IsChecked : Boolean Read GetIsChecked Write SetIsChecked;
@@ -368,6 +369,15 @@ begin
     end;
 end;
 
+procedure TJSHTMLElementHelper.AddOrRemoveClass(const DoAdd: Boolean; const aClass: String);
+begin
+  If Assigned(Self) then
+    if DoAdd then
+      ClassList.add(aClass)
+    else
+      ClassList.Remove(aClass);
+end;
+
 function TJSHTMLElementHelper.GetData(aName: String): String;
 
 begin