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

TAChart: Support Y NaNs in polar series

Browse Source 
git-svn-id: trunk@38547 -
This commit is contained in:
ask 2012-09-07 03:00:47 +00:00
parent 1c453ed8bf
commit b12d54bac4
1 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
components/tachart/taradialseries.pas
View File

@ -548,19 +548,36 @@ end;
procedure TPolarSeries.Draw(ADrawer: IChartDrawer);
var
i: Integer;
cnt: Integer = 0;
pts: TPointArray;
gp: TDoublePoint;
firstPoint, lastPoint: TPoint;
firstPointSet: Boolean = false;
begin
PrepareAngleCache;
SetLength(pts, Count);
for i := 0 to Count - 1 do
pts[i] := FChart.GraphToImage(GraphPoint(i));
ADrawer.Pen := LinePen;
if CloseCircle then begin
ADrawer.SetBrushParams(bsClear, clTAColor);
ADrawer.Polygon(pts, 0, Length(pts));
end
else
ADrawer.Polyline(pts, 0, Length(pts));
for i := 0 to Count - 1 do begin
gp := GraphPoint(i);
if IsNan(gp) then begin
if cnt > 0 then
ADrawer.Polyline(pts, 0, cnt);
cnt := 0;
end
else begin
lastPoint := FChart.GraphToImage(gp);
pts[cnt] := lastPoint;
cnt += 1;
if not firstPointSet then begin
firstPoint := lastPoint;
firstPointSet := true;
end;
end;
end;
if cnt > 0 then
ADrawer.Polyline(pts, 0, cnt);
if firstPointSet and CloseCircle then
ADrawer.Line(lastPoint, firstPoint);
end;
function TPolarSeries.Extent: TDoubleRect;