paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 12:59:19 +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); drawer.SetTransparency(Transparency);
try try
drawer.Brush := BackgroundBrush; drawer.Brush := BackgroundBrush;
if BackgroundBrush.Color = clDefault then
drawer.SetBrushColor(ColorToRGB(FOwner.GetDefaultColor(dctBrush)));
if Frame.Visible then begin if Frame.Visible then begin
drawer.Pen := Frame; drawer.Pen := Frame;
if Frame.Color = clDefault then if Frame.Color = clDefault then
drawer.SetPenColor(FOwner.GetDefaultColor(dctFont)); drawer.SetPenColor(ColorToRGB(FOwner.GetDefaultColor(dctFont)));
end else end else
drawer.SetPenParams(psClear, clTAColor); drawer.SetPenParams(psClear, clTAColor);
r := AData.FBounds; r := AData.FBounds;