From 2d8041f71dcb75b793c4b9718b5be5be303d374f Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Thu, 8 Jul 2021 19:48:46 +0000
Subject: [PATCH] TAChart: Always draw axis arrows with solid pen.

git-svn-id: trunk@65422 -
---
 components/tachart/tatypes.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/tachart/tatypes.pas b/components/tachart/tatypes.pas
index ec9d1b86ef..082c815b08 100644
--- a/components/tachart/tatypes.pas
+++ b/components/tachart/tatypes.pas
@@ -751,6 +751,7 @@ begin
   diag := -ADrawer.Scale(Round(Sqrt(Sqr(Length) + Sqr(Width))));
   pt1 := AEndPos + RotatePointX(diag, AAngle - da)*sgn;
   pt2 := AEndPos + RotatePointX(diag, AAngle + da)*sgn;
+  ADrawer.SetPenParams(psSolid, FPColorToTColor(APen.FPColor), APen.Width);
   if BaseLength > 0 then begin
     ptBase := AEndPos + RotatePointX(-ADrawer.Scale(BaseLength), AAngle)*sgn;
     ADrawer.SetBrushParams(bsSolid, FPColorToChartColor(APen.FPColor));