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

TAChart: Make TBSplineSeries, TCubicSplineSeries, TFitSeries, TPolarSeries use the data point color for pointer symbol.

Browse Source 
git-svn-id: trunk@60441 -
This commit is contained in:
wp 2019-02-16 22:09:25 +00:00
parent 3346c3c977
commit 7dd969b437
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tafuncseries.pas
View File

@ -1123,14 +1123,14 @@ begin
DrawSpline(0); DrawSpline(0);
DrawErrorBars(ADrawer); DrawErrorBars(ADrawer);
DrawLabels(ADrawer, 0); DrawLabels(ADrawer, 0);
DrawPointers(ADrawer, 0); DrawPointers(ADrawer, 0, true);
for i := 1 to Source.YCount-1 do begin for i := 1 to Source.YCount-1 do begin
UpdateGraphPoints(i-1, false); UpdateGraphPoints(i-1, false);
DrawSpline(i); DrawSpline(i);
DrawErrorBars(ADrawer); DrawErrorBars(ADrawer);
DrawLabels(ADrawer, i); DrawLabels(ADrawer, i);
DrawPointers(ADrawer, i); DrawPointers(ADrawer, i, true);
end; end;
end; end;
@ -1405,7 +1405,7 @@ begin
DrawErrorBars(ADrawer); DrawErrorBars(ADrawer);
DrawLabels(ADrawer, 0); DrawLabels(ADrawer, 0);
DrawPointers(ADrawer, 0); DrawPointers(ADrawer, 0, true);
end; end;
function TCubicSplineSeries.Extent: TDoubleRect; function TCubicSplineSeries.Extent: TDoubleRect;
@ -1670,7 +1670,7 @@ begin
end; end;
DrawErrorBars(ADrawer); DrawErrorBars(ADrawer);
DrawLabels(ADrawer, 0); DrawLabels(ADrawer, 0);
DrawPointers(ADrawer, 0); DrawPointers(ADrawer, 0, true);
finally finally
de.Free; de.Free;
end; end;

2
components/tachart/taradialseries.pas
View File

@ -731,7 +731,7 @@ begin
for j := 0 to Source.YCount-1 do begin for j := 0 to Source.YCount-1 do begin
PrepareGraphPoints(j); PrepareGraphPoints(j);
DrawLabels(ADrawer, j); DrawLabels(ADrawer, j);
DrawPointers(ADrawer, j); DrawPointers(ADrawer, j, true);
end; end;
end; end;