From 1702101031acb9e7901502d9bd6c10ec71822b98 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Thu, 5 Aug 2021 23:19:27 +0200
Subject: [PATCH] TAChart: Fix legend background color for AggPas drawer.

---
 components/tachart/talegend.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/tachart/talegend.pas b/components/tachart/talegend.pas
index 32c98220f1..321ff38c3e 100644
--- a/components/tachart/talegend.pas
+++ b/components/tachart/talegend.pas
@@ -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;