paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 09:16:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix too thick connection line between stacked bars.

Browse Source 
git-svn-id: trunk@64353 -
This commit is contained in:
wp 2021-01-08 10:54:57 +00:00
parent f9f74717eb
commit 24637b3d03
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/taseries.pas
View File

@ -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);