paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 05:20:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_ipro: Fix alignment of text in <p> and <div> tags, inside and outside <td> containers, hopefully...

Browse Source 
git-svn-id: trunk@58856 -
This commit is contained in:
wp 2018-09-04 14:27:16 +00:00
parent 856eb03c6e
commit caf991f0b9
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/turbopower_ipro/iphtmlblocklayout.pas
View File

@ -525,7 +525,31 @@ begin
end;
procedure TIpNodeBlockLayouter.DoQueueElemWord(aCurElem: PIpHtmlElement);
var
lAlign: TIpHtmlAlign;
node: TIpHtmlNode;
begin
// wp: added to fix Align of <p> and <div> nodes in <tc>
if Assigned(aCurElem.Owner) then begin
lAlign := FAl;
node := aCurElem.Owner.ParentNode;
while Assigned(node) do begin
if (node is TIpHtmlNodeP) then
lAlign := TIpHtmlNodeP(node).Align
else
if (node is TIpHtmlNodeDIV) then
lAlign := TIpHtmlNodeDIV(node).Align
else
break;
if lAlign = haDefault then
node := node.ParentNode
else begin
FAl := lAlign;
break;
end;
end;
end;
FIgnoreHardLF := False;
if FLTrim and (aCurElem.IsBlank <> 0) then
FxySize := SizeRec(0, 0)