VPF::TСhart, клик мыши и координаты XY - Форум программистов

AKATAN

Дата 30.1.2009, 10:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 30.9.2008
Где: Украина

Репутация: 1
Всего: 1

Есть TСhart. На нем пару Series. При клике мыши где-то в средине графика нужно узнать координату Y координатной оси (не глобальную координату всего чара, а имнно оси). Буду рад любым идеям. =)

Frees

Дата 30.1.2009, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

в событии клика

Chart1.ScreenToClient(mouse.CursorPos).X
Chart1.ScreenToClient(mouse.CursorPos).Y

--------------------

Кольцов Виктор Владимирович

AKATAN

Дата 30.1.2009, 12:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 30.9.2008
Где: Украина

Репутация: 1
Всего: 1

Если бы.... Нет. Эта ф-ция тоже возвращяет глобальные координаты чарта, и плюет на координаты, что указаны на сетке.

Exciter

Дата 30.1.2009, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 17.10.2008

Репутация: нет
Всего: нет

Значит так. Вот кусок из моей проги.

Код


procedure TfmGraf.Chart1ClickSeries(Sender: TCustomChart; Series: TChartSeries;
  ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
    XVal, YVal : Double;
begin
 if Button <> mbLeft then Exit;

 if (Series = HintPointsSeries) then
  if MessageDlg('Удалить точку? ', mtConfirmation, mbYesNo, 0)=mrYes then
   HintPointsSeries.Delete(ValueIndex);

 if (Series = HintWorkSeries) or (Series = HintQualitySeries) then
 begin
  // Получаем X Y где кликнули
  Series.GetCursorValues(XVal, YVal);
  // значение ставим в точку клика, но Y с таблицы значений
  HintPointsSeries.AddXY(XVal, YVal, TimeToStr(XVal)+', '+FloatToStrF(Series.YValue[ValueIndex], ffFixed, 3, 3) );
 end;
end;

Я же говорил. Там возможностей вагон и маленькая тележка вдобавок.

AKATAN

Дата 30.1.2009, 15:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 30.9.2008
Где: Украина

Репутация: 1
Всего: 1

Спасибо Exciter !
Все отлично, но как мне уболтать узера клацать именно на самом Series? smile

Если бы как-то это же разрулить но для самого чара, а не для сириеса..... ща разгребаю сорцы ф-ции получения коорд. Может че и найду...

Это сообщение отредактировал(а) AKATAN - 30.1.2009, 15:09

AKATAN

Дата 30.1.2009, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 30.9.2008
Где: Украина

Репутация: 1
Всего: 1

Решение:
Chart1.BottomAxis.CalcPosPoint(Chart1.ScreenToClient(mouse.CursorPos).X));
Аналогично для Y но для LeftAxis.

Еще раз спасибо Exciter, что направил на верный путь... а то я свой компонент начал писать со своей математикой расчетов...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »