paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 15:09:26 +02: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 
(cherry picked from commit b6222f0da8)
This commit is contained in:
Frank Freeman 2022-01-30 00:24:34 +00:00 committed by Maxim Ganetsky
parent 5b9ff84c92
commit 80e6a9f2c6
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