paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 20:07:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix TBarSeries drawing too thick bar border line when Margin is 0.

Browse Source 
git-svn-id: trunk@64403 -
This commit is contained in:
wp 2021-01-17 22:47:13 +00:00
parent 618596c2ba
commit d7061ea8e8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/taseries.pas
View File

@ -1287,7 +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);
if IsRotated then inc(imageBar.Right) else inc(imageBar.Bottom);
// Draw a line instead of an empty rectangle.
if (Bottom = Top) and IsRotated then Dec(Top);