• Дополнительные функции
  • Оперативная информация
  • Вставить код
  • Скрыть левую панель

Примечание #1 (19 октября 2012, 15:55):

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

procedure TForm1.chMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var i: integer;
tmpX,tmpY:Double;
begin
gx:=x; gy:=y;
chart1.Repaint;

for i:=0 to chart1.SeriesCount-1 do begin
chart1.Series[i].GetCursorValues(tmpX,tmpY);
metka1:= chart1.Series[i].GetHorizAxis.LabelValue(tmpX);
metka2:= chart1.Series[i].GetVertAxis.LabelValue(tmpY);

sb.Panels[0].Text:= 'X= '+ chart1.Series[i].GetHorizAxis.LabelValue(tmpX);
sb.Panels[1].Text:= 'Y= '+ chart1.Series[i].GetVertAxis.LabelValue(tmpY);

if chart1.Series[i].GetCursorValueIndex<>-1 then begin
metka3:= chart1.Series[i].Name;
sb.Panels[2].Text:= 'Title: ' + metka3;

metka4:= ColorToString(chart1.Series[i].ValueColor[0]);
metka4:= copy(metka4, 3, length(metka4));
sb.Panels[3].Text:= 'Color: ' + metka4
end

Текущее время: 31 октября 2025, 07:11

Главная страница  |  Обратная связь