paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 03:52:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Relax condition to close polygon for TPolygonSeries in case of single polygons.

Browse Source 
git-svn-id: trunk@64386 -
This commit is contained in:
wp 2021-01-14 16:52:50 +00:00
parent 751852a44a
commit 78d7603454
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/tachart/tapolygonseries.pas
View File

@ -134,6 +134,20 @@ begin
if nPoints = 0 then
exit;
// Single polygon --> we can use the standard Polygon() routine
if nStart = 1 then
begin
SetLength(FPoints, nPoints);
ADrawer.SetBrush(FBrush);
ADrawer.SetPen(FPen);
ADrawer.Polygon(FPoints, 0, Length(FPoints));
exit;
end;
// If we get here we have multiple polygons. We must add points for a
// "clean retreat" to the starting point, and then we fill the borderless
// polygon and draw the border separately.
// Use length of FStart array as last array element for easier calculation
SavePolygonStartIndex(nPoints);