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

* Reinstate check for non-empty text content

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-10-04 09:41:27 +02:00
parent 270fdb1e02
commit 426000efcd
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/webwidget/htmlwidgets.pp
View File

@ -3195,6 +3195,7 @@ end;
procedure TCustomTagWidget.ApplyWidgetSettings(aElement: TJSHTMLElement); procedure TCustomTagWidget.ApplyWidgetSettings(aElement: TJSHTMLElement);
begin begin
inherited ApplyWidgetSettings(aElement); inherited ApplyWidgetSettings(aElement);
if FTextContent<>'' then
if TextMode=tmText then if TextMode=tmText then
aElement.InnerText:=TextContent aElement.InnerText:=TextContent
else else