From 7ce5f8a3ef4bbbe63ce604f377762ef0a568d747 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Thu, 16 Sep 2021 11:48:12 +0200
Subject: [PATCH] TAChart: Fix TLineSeries.ColorEach ignoring LinePen.Width
 setting.

(cherry picked from commit 62d7b87f0d1875704ec056ad5d73d1949a18a407)
---
 components/tachart/taseries.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas
index 55fc349df8..fcd77af8eb 100644
--- a/components/tachart/taseries.pas
+++ b/components/tachart/taseries.pas
@@ -677,7 +677,7 @@ var
     // First line for line type ltFromOrigin
     if LineType = ltFromOrigin then begin
       origin := ParentChart.GraphToImage(AxisToGraph(ZeroDoublePoint));
-      ADrawer.SetPenParams(FLinePen.Style, col1);
+      ADrawer.SetPenParams(FLinePen.Style, col1, FLinePen.Width);
       ADrawer.Line(origin, imgPt1);
     end;
 
@@ -700,7 +700,7 @@ var
             ceLineAfter, cePointAndLineAfter: col := col1;
             else raise Exception.Create('TLineSeries: ColorEach error');
           end;
-          ADrawer.SetPenParams(FLinePen.Style, col);
+          ADrawer.SetPenParams(FLinePen.Style, col, FLinePen.Width);
           case LineType of
             ltFromPrevious:
               ADrawer.Line(imgPt1, imgPt2);