Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Работа с Canvas.

Автор: Bacardi 9.4.2005, 18:53

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

Автор: Girder 9.4.2005, 19:09

Код

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

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

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

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

Автор: Bacardi 10.4.2005, 00:55

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