paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 10:00:34 +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 begin
bgCol := PropsR.BgColor; bgCol := PropsR.BgColor;
PropsR.Assign(RenderProps); PropsR.Assign(RenderProps);
PropsR.BgColor := bgCol; if FParentNode = FOwner.Body then
PropsR.BgColor := bgCol;
end; end;
procedure TIpHtmlNodeText.Enqueue; procedure TIpHtmlNodeText.Enqueue;
@ -9513,7 +9514,8 @@ begin
bgCol := Props.BgColor; bgCol := Props.BgColor;
Props.Assign(RenderProps); Props.Assign(RenderProps);
Props.Alignment := Align; Props.Alignment := Align;
Props.BgColor := bgCol; if FParentNode = FOwner.Body then
Props.BgColor := bgCol;
inherited SetProps(Props); inherited SetProps(Props);
end; end;
@ -10255,8 +10257,9 @@ begin
bgCol := Props.BgColor; bgCol := Props.BgColor;
Props.Assign(RenderProps); Props.Assign(RenderProps);
Props.Alignment := Align; Props.Alignment := Align;
Props.BgColor := bgCol;
LoadAndApplyCSSProps; LoadAndApplyCSSProps;
if FParentNode = FOwner.Body then
Props.BgColor := bgCol;
inherited SetProps(Props); inherited SetProps(Props);
end; end;