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

TurboPower_ipro: Fix opaque text.

Browse Source 
git-svn-id: trunk@64354 -
This commit is contained in:
wp 2021-01-08 15:55:24 +00:00
parent 24637b3d03
commit f655e86d24
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/turbopower_ipro/iphtml.pas
View File

@ -8911,7 +8911,8 @@ var
begin
bgCol := PropsR.BgColor;
PropsR.Assign(RenderProps);
PropsR.BgColor := bgCol;
if FParentNode = FOwner.Body then
PropsR.BgColor := bgCol;
end;
procedure TIpHtmlNodeText.Enqueue;
@ -9513,7 +9514,8 @@ begin
bgCol := Props.BgColor;
Props.Assign(RenderProps);
Props.Alignment := Align;
Props.BgColor := bgCol;
if FParentNode = FOwner.Body then
Props.BgColor := bgCol;
inherited SetProps(Props);
end;
@ -10255,8 +10257,9 @@ begin
bgCol := Props.BgColor;
Props.Assign(RenderProps);
Props.Alignment := Align;
Props.BgColor := bgCol;
LoadAndApplyCSSProps;
if FParentNode = FOwner.Body then
Props.BgColor := bgCol;
inherited SetProps(Props);
end;