Locate the nearest point in TPoint3DSeries

[sripe]

For TPoint3DSeries, how to locate the nearest point following mouse and use annotation callout to show its coordinates?

[Yeray]

Hello,

Have you seen the TNearestTool? This seems to work fine for me here:

Code: Select all

uses TeeTools;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.Aspect.Orthogonal:=false;
  Chart1.Chart3DPercent:=100;
  Chart1.Aspect.Zoom:=80;
  Chart1.Legend.Visible:=false;

  Chart1.AddSeries(TPoint3DSeries).FillSampleValues;

  with Chart1.Tools.Add(TNearestTool) as TNearestTool do
  begin
    Series:=Chart1[0];
  end;
end;

[sripe]

While mouse moving, I want to re-position annotation callout. But a Series only has CalcXPos and CalcYPos, no CalcZPos, how to get ZPosition? And how to set a 3D cursor following on the Series? Please find the attached files.

[Yeray]

Hello,

CalcZPos exists but not for all the TChartSeries (note some series are 2D), so you are only missing a cast. Ie:

Code: Select all

      ZPosition := (ChartListBox1.SelectedSeries as TPoint3DSeries).CalcZPos(AIndex);