Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Tcahrt

Автор: Garabar 2.3.2007, 14:43

Здравствуйте)

Есть острая необходимость узнать значения координат на графике(Tchart) причём так что бы попадание в точку графика не было необходимостью... ещё хочеться что бы при увеличении масштаба это работало тоже... подскажите пожалуйсто как сие реализовать)
Заранее спасибо.

Автор: remax 4.3.2007, 21:44

Что-то вроде следующего кода:

Код


procedure TFSelectCalc.Chart1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
    tmpx,tmpy:double;
  sx,sy:string;
  MyChart:TChart;
begin
MyChart:=Sender as TChart;
 if  PtInRect( MyChart.ChartRect, Point(X-MyChart.Width3D,Y+MyChart.Height3D)  )
  then
   begin
     With MyChart.SeriesList.Items[0] do
      begin
       GetCursorValues(tmpX,tmpY);
       sy:=GetVertAxis.LabelValue(tmpy);
       sx:=GetHorizAxis.LabelValue(tmpX);
     end;
   end;
end;

Автор: Garabar 6.3.2007, 12:58

А вот чёто не работает
напротив строчки: With form1.Chart1.SeriesList.Items[0] do
пишет ощибку [Error] Unit1.pas(37): Record, object or class type required
smile