From 24637b3d03486a0d5807a350e3da7da367cc0e3a Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Fri, 8 Jan 2021 10:54:57 +0000
Subject: [PATCH] TAChart: Fix too thick connection line between stacked bars.

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

diff --git a/components/tachart/taseries.pas b/components/tachart/taseries.pas
index ad5a9a50b3..db6f5afba9 100644
--- a/components/tachart/taseries.pas
+++ b/components/tachart/taseries.pas
@@ -1287,6 +1287,7 @@ var
       TopLeft := ParentChart.GraphToImage(graphBar.a);
       BottomRight := ParentChart.GraphToImage(graphBar.b);
       TAGeometry.NormalizeRect(imageBar);
+      if IsRotated then inc(imageBar.Right) else dec(imageBar.Top);
 
       // Draw a line instead of an empty rectangle.
       if (Bottom = Top) and IsRotated then Dec(Top);