diff --git a/components/tachart/talegend.pas b/components/tachart/talegend.pas
index 06be195885..69bfd21ea4 100644
--- a/components/tachart/talegend.pas
+++ b/components/tachart/talegend.pas
@@ -356,9 +356,11 @@ var
   r: TRect;
 begin
   // Draw the background and the border.
-  ADrawer.Font := Font;
   ADrawer.Brush := BackgroundBrush;
-  ADrawer.Pen := Frame;
+  if Frame.Visible then
+    ADrawer.Pen := Frame
+  else
+    ADrawer.SetPenParams(psClear, clTAColor);
   ADrawer.Rectangle(ABounds);
   if AItems.Count = 0 then exit;