paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 13:43:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: TPolygonSeries supports complex polygons now (holes, non-contiguous, self-intersecting).

Browse Source 
git-svn-id: trunk@64290 -
This commit is contained in:
wp 2020-12-28 16:57:47 +00:00
parent cc6e0d00c6
commit 97b67541f1
1 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/tachart/tapolygonseries.pas
View File

@ -74,7 +74,7 @@ var
nSource, nPoints: Integer;
nStart: Integer;
newPolygon: Boolean;
i: Integer;
i, j: Integer;
procedure SavePolygonStartIndex(AIndex: Integer);
begin
@ -140,12 +140,29 @@ begin
// Trim length of FStart array to occupied length
SetLength(FStart, nStart);
// Draw polygon(s)
ADrawer.SetBrush(FBrush);
ADrawer.SetPen(FPen);
for i := 0 to High(FStart)-1 do
ADrawer.Polygon(FPoints, FStart[i], FStart[i+1] - FStart[i]);
SetLength(FPoints, nPoints + Length(FStart) - 1);
j := nPoints;
for i := High(FStart) downto 1 do
begin
FPoints[j] := FPoints[FStart[i]];
inc(j);
end;
// Draw polygon fill
if FBrush.Style <> bsClear then
begin
ADrawer.SetBrush(FBrush);
ADrawer.SetPenParams(psClear, clTAColor);
ADrawer.Polygon(FPoints, 0, Length(FPoints));
end;
// Draw border
if FPen.Style <> psClear then
begin
ADrawer.Pen := FPen;
for i := 0 to High(FStart) - 1 do
ADrawer.PolyLine(FPoints, FStart[i], FStart[i+1] - FStart[i]);
end;
end;
procedure TPolygonSeries.GetLegendItems(AItems: TChartLegendItems);