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

TurboPower_ipro: Fix rendering of text background (not 100% correct for headers).

Browse Source 
git-svn-id: trunk@59315 -
This commit is contained in:
wp 2018-10-17 17:25:15 +00:00
parent 27b8c9d719
commit c720b8116d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/turbopower_ipro/iphtmlblocklayout.pas
View File

@ -1267,6 +1267,7 @@ var
OldFontColor: TColor; OldFontColor: TColor;
OldFontStyle: TFontStyles; OldFontStyle: TFontStyles;
OldBrushStyle: TBrushStyle; OldBrushStyle: TBrushStyle;
ts: TTextStyle;
procedure saveCanvasProperties; procedure saveCanvasProperties;
begin begin
@ -1322,8 +1323,11 @@ begin
if FCanvas.Font.color = -1 then if FCanvas.Font.color = -1 then
FCanvas.Font.color := clBlack; FCanvas.Font.color := clBlack;
{$ENDIF} {$ENDIF}
if aCurWord.AnsiWord <> NAnchorChar then if aCurWord.AnsiWord <> NAnchorChar then begin
FCanvas.TextRect(R, P.x, P.y, NoBreakToSpace(aCurWord.AnsiWord)); ts := FCanvas.TextStyle;
ts.Opaque := true;
FCanvas.TextRect(R, P.x, P.y, NoBreakToSpace(aCurWord.AnsiWord), ts);
end;
{$IFDEF IP_LAZARUS} {$IFDEF IP_LAZARUS}
restoreCanvasProperties; restoreCanvasProperties;
{$ENDIF} {$ENDIF}