VPF::Координаты курсора - Форум программистов

RomaWise

Дата 11.9.2014, 08:09 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть координатная плоскость нарисованная в image. Как на ней отследить координаты курсора? Чтобы отображало все правильно по четвертям, т.е. 1 четверть + +, вторая - +, третья - -, четвертая + -?

drkot

Дата 11.9.2014, 11:56 (ссылка)

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

Загрузка ...

Ищущий

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

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

Цитата(RomaWise @ 11.9.2014, 09:09

)

1 четверть + +, вторая - +, третья - -, четвертая + -?

ты сам на вопрос ответил... берьшь X и Y и прогоняешь их через четыре условия на выходе получаешь ответ.

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

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

Poseidon

Дата 11.9.2014, 12:53 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Координаты у Image начинаются с левого верхнего угла. Т.е. для того, что бы нарисовать оси тебе придется использовать координаты X и Y, отличные от 0. Вот и проверяй. Если (X1 < X) и (Y1 > Y) то 1-я четверть. (X1 и Y1 - это координаты точки). И так для всех четвертей и для точек на осях.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

RomaWise

Дата 11.9.2014, 13:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Сделал вот так, все работает. Но выводит совсем другие цифры.

Код


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Edit193.Text:='X: '+FloatToStrF(X-xc,ffFixed,8,2);
Edit194.Text:='Y: '+FloatToStrF(yc-Y,ffFixed,8,2);
end;

Poseidon

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

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Если xc и yc - это координаты осей, то, в принципе, все правильно. Но раз "выводит совсем другие цифры" то описавый что именно в них не так?

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

RomaWise

Дата 11.9.2014, 15:13 (ссылка)

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

Загрузка ...

Новичок

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

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

Сделал

Это сообщение отредактировал(а) RomaWise - 11.9.2014, 15:28

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