Получить значение графика под курсором

[DIgorevich]

Есть Chart, заполненный двумя графиками lnsrsSeries1 и lnsrsSeries2. Хотелось бы научиться получать значения конкретной точки графика, когда курсор находиться по вертикали в пределах этого графика...
Пока только нашел, рисование вертикальной линии, и вывод значения под курсором в целом, а не значения только на линии графика (т.е. если я перемещаю курсор выше графика, то значения меняют, а надо, чтобы оставалось значение самого графика). Вот мой код (точнее не мой, а где-то стыреный) рисования вертикальной линии и получения значений под курсором:

procedure TForm1.cht1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  Procedure DrawCross(AX,AY:Integer);
  begin
    With Cht1,Canvas do
    begin
      Pen.Color:=clRed;
      Pen.Style:=psSolid;
      Pen.Mode:=pmXor;
      Pen.Width:=1;
      MoveTo(ax,ChartRect.Top-Height3D);
      LineTo(ax,ChartRect.Bottom-Height3D);
    end;
  end;

Var tmpX,tmpY:Double;
begin
  if (OldX<>-1) then
  begin
    DrawCross(OldX,OldY);
    OldX:=-1;
  end;

  if PtInRect( Cht1.ChartRect, Point(X-Cht1.Width3D,Y+Cht1.Height3D)  ) then
  begin
    DrawCross(x,y);
    OldX:=x;
    OldY:=y;
    With lnsrsSeries1 do
    begin
      GetCursorValues(tmpX,tmpY);
      Form1.Caption:=GetVertAxis.LabelValue(tmpY);
    end;
  end;

end;

Если кто разбирается, помогите пожалуйста. Очень надо получить значение в точке пересечения вертикальной линии и самого графика. Если совсем непонятно объясняю, то вот пример подобного графика: http://klavostat.ru/graph.php

[Аватар]

tmpX есть
Есть значения функции в ближайщих слева и справа точках
Методом линейной интерполяции вычисляем значение в tmpX

Если функция аналитическая, то просто вычислять значение в tmpX

[DIgorevich]

Аватар, или я чего-то не понял... в общем не то, tmpX показывает какие-то фантастические значения, совсем не те, которые могут быть на графике. А как получить значения в ближайших точках я не знаю.

[Аватар]

tmpX показывает x-координату
Данные для графика откуда-то берутся. И x1 ближайшая слева точка с известным значением y1, x2 ближайшая справа точка с известным значением y2.

y=((tmpX-x1)*(y2-y1)/(x2-x1))+y1

[DIgorevich]

Аватар, если бы я умел получить ближайшую слева и справа точки с изветными значениями, я бы не создавал эту тему. График-то уже заполнен. И он может быть увеличен в масштабе, и вот эти y1 и х1 я не знаю как выдирать из этого графика.

[Аватар]

Так можно поиграться, ток у меня ошибка будет, если if сработает для i=0 (нужно подправить)

  With lnsrsSeries1 do begin
    GetCursorValues(tmpX,tmpY);
    for i:=0 to XValues.Count-1 do
      if XValues.Value[i]>=tmpX then begin
        Label1.Caption:=FloatToStr((tmpX-XValues.Value[i-1])*
                                   (YValues.Value[i]-YValues.Value[i-1])/
                                   (XValues.Value[i]-XValues.Value[i-1])+YValues.Value[i-1]);
        Break;
      end;
  end;

[DIgorevich]

Аватар, спасибо, проблема решена)