paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 14:00:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix legend background color for AggPas drawer.

Browse Source
This commit is contained in:
wp_xyz 2021-08-05 23:19:27 +02:00
parent 370b81746a
commit 1702101031
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/tachart/talegend.pas
View File

@ -707,10 +707,12 @@ begin
drawer.SetTransparency(Transparency);
try
drawer.Brush := BackgroundBrush;
if BackgroundBrush.Color = clDefault then
drawer.SetBrushColor(ColorToRGB(FOwner.GetDefaultColor(dctBrush)));
if Frame.Visible then begin
drawer.Pen := Frame;
if Frame.Color = clDefault then
drawer.SetPenColor(FOwner.GetDefaultColor(dctFont));
drawer.SetPenColor(ColorToRGB(FOwner.GetDefaultColor(dctFont)));
end else
drawer.SetPenParams(psClear, clTAColor);
r := AData.FBounds;