paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 03:56:12 +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;
OldFontStyle: TFontStyles;
OldBrushStyle: TBrushStyle;
ts: TTextStyle;
procedure saveCanvasProperties;
begin
@ -1322,8 +1323,11 @@ begin
if FCanvas.Font.color = -1 then
FCanvas.Font.color := clBlack;
{$ENDIF}
if aCurWord.AnsiWord <> NAnchorChar then
FCanvas.TextRect(R, P.x, P.y, NoBreakToSpace(aCurWord.AnsiWord));
if aCurWord.AnsiWord <> NAnchorChar then begin
ts := FCanvas.TextStyle;
ts.Opaque := true;
FCanvas.TextRect(R, P.x, P.y, NoBreakToSpace(aCurWord.AnsiWord), ts);
end;
{$IFDEF IP_LAZARUS}
restoreCanvasProperties;
{$ENDIF}