paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-09 20:17:51 +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

9
packages/webwidget/htmlwidgets.pp
View File

@ -3195,10 +3195,11 @@ end;
procedure TCustomTagWidget.ApplyWidgetSettings(aElement: TJSHTMLElement);
begin
inherited ApplyWidgetSettings(aElement);
if TextMode=tmText then
aElement.InnerText:=TextContent
else
aElement.InnerHTML:=TextContent
if FTextContent<>'' then
if TextMode=tmText then
aElement.InnerText:=TextContent
else
aElement.InnerHTML:=TextContent
end;
function TCustomTagWidget.HTMLTag: String;