paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 22:20:25 +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);
DrawErrorBars(ADrawer);
DrawLabels(ADrawer, 0);
DrawPointers(ADrawer, 0);
DrawPointers(ADrawer, 0, true);
for i := 1 to Source.YCount-1 do begin
UpdateGraphPoints(i-1, false);
DrawSpline(i);
DrawErrorBars(ADrawer);
DrawLabels(ADrawer, i);
DrawPointers(ADrawer, i);
DrawPointers(ADrawer, i, true);
end;
end;
@ -1405,7 +1405,7 @@ begin
DrawErrorBars(ADrawer);
DrawLabels(ADrawer, 0);
DrawPointers(ADrawer, 0);
DrawPointers(ADrawer, 0, true);
end;
function TCubicSplineSeries.Extent: TDoubleRect;
@ -1670,7 +1670,7 @@ begin
end;
DrawErrorBars(ADrawer);
DrawLabels(ADrawer, 0);
DrawPointers(ADrawer, 0);
DrawPointers(ADrawer, 0, true);
finally
de.Free;
end;

2
components/tachart/taradialseries.pas
View File

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