paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 18:07:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add find parent helper methods to TJSHTMLElementHelper

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-03-07 14:21:02 +01:00
parent 926b346609
commit 630bd82c56
1 changed files with 62 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -75,13 +75,21 @@ Function FormatHTMLTime(aDateTime : TDateTime; ZeroAsEmpty : Boolean = True) : s
Function AbsoluteURL(aBaseURL,aURL : String) : string;
Type
TJSHTMLElementMatcher = Reference to Function(aElement : TJSHTMLElement) : Boolean;
{ TJSHTMLElementHelper }
TJSHTMLElementHelper = Class helper for TJSHTMLElement
private
Function GetData(aName: String): String;
Procedure SetData(aName, aValue: String);
function GetInputValue: String;
procedure SetData(Index: String; AValue: String);
procedure SetInputValue(const aValue: String);
Public
Function ParentHTMLElement : TJSHTMLElement;
Function FindParent(aMatch : TJSHTMLElementMatcher) : TJSHTMLElement;
function FindParentWithClass(const aClass: String): TJSHTMLElement;
function FindParentWithOutClass(const aClass: String): TJSHTMLElement;
procedure AddClass(Const aClass: String); overload;
procedure RemoveClass(Const aClass: String); overload;
procedure AddRemoveClass(Const aAddClass, aRemoveClass: String); overload;
@ -354,7 +362,7 @@ begin
end;
end;
Function TJSHTMLElementHelper.GetData(aName: String): string;
function TJSHTMLElementHelper.GetData(aName: String): String;
begin
if Assigned(Self) and IsString(Self.Dataset[aName]) then
@ -368,6 +376,11 @@ begin
Result:=GetElementValue(Self)
end;
procedure TJSHTMLElementHelper.SetData(Index: String; AValue: String);
begin
Dataset.Map[Index]:=aValue;
end;
function TJSHTMLElementHelper.HasClass(const aClass: String): Boolean;
begin
Result:=Assigned(Self);
@ -381,17 +394,59 @@ begin
Self.ClassList.remove(aClass);
end;
procedure TJSHTMLElementHelper.SetData(aName, aValue: String);
begin
if Assigned(Self) then
Self.Dataset[aName]:=aValue;
end;
procedure TJSHTMLElementHelper.SetInputValue(const aValue: String);
begin
SetElementValue(Self,aValue)
end;
function TJSHTMLElementHelper.ParentHTMLElement: TJSHTMLElement;
Var
Par : TJSELement;
begin
Par:=Nil;
if Assigned(Self) then
Par:=Self.ParentElement;
While Assigned(Par) and not (Par is TJSHTMLELement) do
Par:=Par.ParentElement;
Result:=TJSHTMLElement(Par);
end;
function TJSHTMLElementHelper.FindParent(aMatch: TJSHTMLElementMatcher): TJSHTMLElement;
begin
Result:=ParentHTMLElement;
While (Result<>Nil) and Not aMatch(Result) do
Result:=Result.ParentHTMLElement;
end;
function TJSHTMLElementHelper.FindParentWithClass(const aClass : String): TJSHTMLElement;
Function IsMatch(aEl : TJSHTMLElement) : Boolean;
begin
Result:=aEL.ClassList.Contains(aClass);
end;
begin
Result:=FindParent(@IsMatch);
end;
function TJSHTMLElementHelper.FindParentWithOutClass(const aClass: String
): TJSHTMLElement;
Function IsMatch(aEl : TJSHTMLElement) : Boolean;
begin
Result:=not aEL.ClassList.Contains(aClass);
end;
begin
Result:=FindParent(@IsMatch);
end;
Function HtmlIze(aString : String) : String;
begin