paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 23:19:31 +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; LoadAndApplyCSSProps;
{$ENDIF} {$ENDIF}
end; end;
NextToken; NextToken;
ParseBodyText(Body, EndTokens + [IpHtmlTagBODYend]); ParseBodyText(Body, EndTokens + [IpHtmlTagBODYend]);
EnsureClosure(IpHtmlTagBODYend, EndTokens); EnsureClosure(IpHtmlTagBODYend, EndTokens);
@ -12864,6 +12863,9 @@ function TIpHtmlNodeCore.GetFontSizeFromCSS(CurrentFontSize:Integer;
else else
if (FParentNode is TIpHtmlNodeGenInline) then if (FParentNode is TIpHtmlNodeGenInline) then
result := TIpHtmlNodeGenInline(FparentNode).Props.FontSize result := TIpHtmlNodeGenInline(FparentNode).Props.FontSize
else
if (FParentNode is TIpHtmlNodeHtml) or (FParentNode = nil) then
Result := 14
else else
result := CurrentFontSize; result := CurrentFontSize;
end; end;