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

TAMultiseries.pas fix for #39615 TBoxAndWhiskerSeries does not draw box if box image left=right or top=bottom

Browse Source
This commit is contained in:
Frank Freeman 2022-01-30 00:24:34 +00:00
parent 7f6c15e911
commit b6222f0da8
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