paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-27 00:10:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add AddOrRemoveClass

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-08-18 14:49:16 +02:00
parent 527e999410
commit 4410361758
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/rtl/Rtl.HTMLUtils.pas
View File

@ -97,6 +97,7 @@ Type
procedure AddClass(Const aClass: String); overload; procedure AddClass(Const aClass: String); overload;
procedure RemoveClass(Const aClass: String); overload; procedure RemoveClass(Const aClass: String); overload;
procedure AddRemoveClass(Const aAddClass, aRemoveClass: String); overload; procedure AddRemoveClass(Const aAddClass, aRemoveClass: String); overload;
procedure AddOrRemoveClass(const DoAdd : Boolean; Const aClass: String); overload;
function HasClass(const aClass: String): Boolean; function HasClass(const aClass: String): Boolean;
Property InputValue: String Read GetInputValue Write SetInputValue; Property InputValue: String Read GetInputValue Write SetInputValue;
Property IsChecked : Boolean Read GetIsChecked Write SetIsChecked; Property IsChecked : Boolean Read GetIsChecked Write SetIsChecked;
@ -368,6 +369,15 @@ begin
end; end;
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; function TJSHTMLElementHelper.GetData(aName: String): String;
begin begin