Цитата:
|
Сообщение от 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;
|
Спасибо! Примерно понял как все работает.
Правда если в Image вставлена картинка, то ругается на строчку draw(Image1.Canvas, point); (((((((((
А как сделать так, чтобы от этой точки еще спускались прямые на ось X и на ось Y (ну чтобы пользователь мог примерно увидеть где ставит точку). Спасибо!!!!