VPF::Tcahrt - Форум программистов

Garabar

Дата 2.3.2007, 14:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

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

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

remax

Дата 4.3.2007, 21:44 (ссылка)

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

Загрузка ...

Доцент

Профиль
Группа: Участник Клуба
Сообщений: 686
Регистрация: 7.4.2002
Где: Украина, Харьков

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

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

Код


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;

Это сообщение отредактировал(а) remax - 4.3.2007, 21:46

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

Как бы ты не старался быть хорошим и правильным человеком с принципами и уважительным отношением к другим, всегда найдется кто-то, кто бросит в тебя какашку

Garabar

Дата 6.3.2007, 12:58 (ссылка)

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

Загрузка ...

Бывалый

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

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

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

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