Цитата:
|
Сообщение от Pyro
PHP код:
const r = 5;
var point: TRect;
procedure draw(canvas: tcanvas; what: TRect);
begin
canvas.Pen.Mode := pmXor;
canvas.Brush.Color := clAqua; // на белом - красный
canvas.Rectangle(what);
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
draw(Image1.Canvas, point);
point := rect(x-r, y-r, x+r, y+r);
draw(Image1.Canvas, point);
end;
|
Спасибо! Примерно понял как все работает.
Теперь вопрос в другом. Как сделать так, чтобы при нажатии левой кнопкой мыши данная точка оставалась там где произошло нажатие. Чтобы при дальнейшем MouseMove по картинке точка не бегала за мышью.