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

Turbopower_ipro: Fix rendering of text background in colored table cell. Issue #39756.

Browse Source 
(cherry picked from commit 6073152919)
This commit is contained in:
wp_xyz 2022-05-21 17:48:49 +02:00
parent a1f34f24f7
commit eccac8a161
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/turbopower_ipro/iphtmlblocklayout.pas
View File

@ -1247,6 +1247,7 @@ var
OldFontStyle: TFontStyles;
OldBrushStyle: TBrushStyle;
OldFontQuality: TFontQuality;
wordIsInTable: Boolean;
procedure saveCanvasProperties;
begin
@ -1278,6 +1279,7 @@ begin
//if (LastOwner <> aCurWord.Owner) then LastPoint := P;
saveCanvasProperties;
TextStyle := FCanvas.TextStyle;
wordIsInTable := (aCurWord.Owner <> nil) and (aCurWord.Owner.ParentNode is TIpHtmlNodeTableHeaderOrCell);
//debugln(['TIpHtmlNodeBlock.RenderQueue ',aCurWord.AnsiWord]);
FIpHtml.PageRectToScreen(aCurWord.WordRect2, R);
if aCurWord.IsSelected or FIpHtml.AllSelected then begin
@ -1286,7 +1288,7 @@ begin
FCanvas.brush.Color := clHighLight;
FCanvas.FillRect(R);
end
else if FCurProps.BgColor <> clNone then
else if not wordIsInTable and (FCurProps.BgColor <> clNone) then
begin
FCanvas.brush.Style := bsSolid;
FCanvas.brush.Color := FCurProps.BgColor;