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

Merge branch 'Free_Coder-main-patch-30447' into 'main'

Browse Source 
TAMultiseries.pas fix for #39615 TBoxAndWhiskerSeries does not draw box if box...

See merge request freepascal.org/lazarus/lazarus!67
This commit is contained in:
Werner Pamler 2022-01-30 11:17:29 +00:00
commit 7a1301e7b0
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tamultiseries.pas
View File

@ -981,7 +981,10 @@ procedure TBoxAndWhiskerSeries.Draw(ADrawer: IChartDrawer);
r.TopLeft := MaybeRotate(AX1, AY1);
r.BottomRight := MaybeRotate(AX2, AY2);
end;
ADrawer.Rectangle(r);
if (r.Left = r.Right) or (r.Top = r.Bottom) then
ADrawer.Line(r.TopLeft, r.BottomRight)
else
ADrawer.Rectangle(r);
end;
var