VPF::Рисование графика руками на TChar

Coder

Дата 5.10.2007, 03:33 (ссылка)

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

Загрузка ...

Опытный

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

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

У меня выводится исходный график на компонент TChar. Можно ли кликая на область графика мышью строить на нем прямые?

EvilsInterrupt

Дата 5.10.2007, 06:08 (ссылка)

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

Загрузка ...

Executables research

Профиль
Группа: Завсегдатай
Сообщений: 1019
Регистрация: 14.7.2007
Где: Железнодорожный, МО, Россия

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

Не совсем ясно, что имеется ввиду. Можно версию вопроса для детей?

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

про реверсинг, вроде чтото даже интересно

Melancholic

Дата 5.10.2007, 08:27 (ссылка)

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

Загрузка ...

Новичок

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

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

Вопрос действительно не совсем понятен. Вы хотите рисовать на графике произвольные картинки? Тогда обратите внимание на TChart.canvas.

Coder

Дата 5.10.2007, 09:11 (ссылка)

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

Загрузка ...

Опытный

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

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

объясняю точнее: при клике на облась графика он должен мне как-то вернуть значения оси Y и X, на которые я кликнул. Потом я беру эти значения и строю прямые по графику (уже средствами самого графика - Series, а не через Canvas).

THandle

Дата 5.10.2007, 10:24 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Попробуй вот это:

Код


procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Series1.AddXY(X, Y);
end;

kali

Дата 5.10.2007, 10:34 (ссылка)

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

Загрузка ...

Шустрый

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

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

THandle,

X и Y в Chart1MouseDown это экранные координаты. Для получения координат относительно осей графика нужен пересчет и масштабирование.

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

Работая над решением задачи, всегда полезно знать ответ.

THandle

Дата 5.10.2007, 10:46 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Цитата

kali Дата 5.10.2007, 10:34

Знаю.

Это пусть он сам делает.

Это сообщение отредактировал(а) THandle - 5.10.2007, 10:46

kali

Дата 5.10.2007, 11:24 (ссылка)

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

Загрузка ...

Шустрый

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

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

Вроде это работает:

Код


procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
var rect:TRect;
xx,yy:double;
begin
  rect:=Chart1.ChartRect;
  xx:=(X-rect.Left)*(Chart1.BottomAxis.Maximum-Chart1.BottomAxis.Minimum)/(rect.Right-rect.Left)+
     Chart1.BottomAxis.Minimum;
  yy:=(-Y+rect.Bottom)*(Chart1.LeftAxis.Maximum-Chart1.LeftAxis.Minimum)/(rect.Bottom-rect.Top)+
     Chart1.LeftAxis.Minimum;
  Series1.AddXY(xx, yy);
end;

Это сообщение отредактировал(а) kali - 5.10.2007, 11:26

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

Работая над решением задачи, всегда полезно знать ответ.

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