VPF::Работа с Canvas. - Форум программистов

Bacardi

Дата 9.4.2005, 18:53 (ссылка)

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

Загрузка ...

Шустрый

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

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

Нужно по клику на канвасе (Image) поставить в месте клика точку (поместить туда указатель Canvas и поменять цвет пиксела). Как перехватить координату курсора в этот момент? smile

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

Необычная смесь. Болтать, но не мешать.http://www.livejournal.com/users/__bacardi__/

Girder

Дата 9.4.2005, 19:09 (ссылка)

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

Загрузка ...

Лентяй 2

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

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

Код

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Form1.Canvas.Pixels[x+Image1.Left,y+Image1.Top]:=clBlue;
end;

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

Как слышим, так и пишим.
Истина где-то там...

Poseidon

Дата 9.4.2005, 23:44 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Цитата(Bacardi @ 9.4.2005, 18:53)

Как перехватить координату курсора в этот момент?

Во все стандартные обработчики событий мышки (во загнул!) передается параметр координат курсора. Это либо Х и Y, либо MousePos. Вот их и бери. В примере Girder, как видно, использует Х и Y.

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

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

Bacardi

Дата 10.4.2005, 00:55 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо, огромное, мужики! smile

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

Необычная смесь. Болтать, но не мешать.http://www.livejournal.com/users/__bacardi__/

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