From f655e86d24a36255326b09088df1ae3a6fcd5c01 Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Fri, 8 Jan 2021 15:55:24 +0000
Subject: [PATCH] TurboPower_ipro: Fix opaque text.

git-svn-id: trunk@64354 -
---
 components/turbopower_ipro/iphtml.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/components/turbopower_ipro/iphtml.pas b/components/turbopower_ipro/iphtml.pas
index 77b597870c..6a068c4849 100644
--- a/components/turbopower_ipro/iphtml.pas
+++ b/components/turbopower_ipro/iphtml.pas
@@ -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;