paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 16:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 59982 #0149572394 from trunk:

Browse Source 
TurboPower_iPro: Fix line spacing of <br> tag. Issue #34803.
........

git-svn-id: branches/fixes_2_0@59994 -
This commit is contained in:
maxim 2019-01-04 14:18:19 +00:00
parent 8a30c92347
commit 91586cddc0
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/turbopower_ipro/iphtml.pas
View File

@ -10151,15 +10151,19 @@ var
h: Integer; h: Integer;
elem: PIpHtmlElement; elem: PIpHtmlElement;
begin begin
h := 0;
(* // wp: is there any reason why h should be > 0 for other node types?
if (ParentNode is TIpHtmlNodeP) or if (ParentNode is TIpHtmlNodeP) or
(ParentNode is TIpHtmlNodeDIV) or (ParentNode is TIpHtmlNodeDIV) or
(ParentNode is TIpHtmlNodeLI) or (ParentNode is TIpHtmlNodeLI) or
// (ParentNode is TIpHtmlNodePRE) or // (ParentNode is TIpHtmlNodePRE) or
(ParentNode is TIpHtmlNodeHeader) (ParentNode is TIpHtmlNodeHeader) or
(ParentNode is TIpHtmlNodeBody)
then then
h := 0 h := 0
else else
h := Props.FontSize; h := Props.FontSize;
*)
case Clear of case Clear of
hbcNone : hbcNone :