paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 22:40:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_ipro: Fix relative font size.

Browse Source 
git-svn-id: trunk@58895 -
This commit is contained in:
wp 2018-09-06 13:53:05 +00:00
parent b65618119a
commit 2a57c469be
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/turbopower_ipro/iphtml.pas
View File

@ -7682,7 +7682,6 @@ begin
LoadAndApplyCSSProps;
{$ENDIF}
end;
NextToken;
ParseBodyText(Body, EndTokens + [IpHtmlTagBODYend]);
EnsureClosure(IpHtmlTagBODYend, EndTokens);
@ -12864,6 +12863,9 @@ function TIpHtmlNodeCore.GetFontSizeFromCSS(CurrentFontSize:Integer;
else
if (FParentNode is TIpHtmlNodeGenInline) then
result := TIpHtmlNodeGenInline(FparentNode).Props.FontSize
else
if (FParentNode is TIpHtmlNodeHtml) or (FParentNode = nil) then
Result := 14
else
result := CurrentFontSize;
end;