Периросовка линий в Image

← →
Riki (2004-03-13 20:21) [0]

Как сделать чтобы в исходном коде при нажатие кнопки мыши соответствующих одним координатам рисовалась одна линия, а другая стиралась и наоборот
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Image1.Canvas.Pen.Width:=3;
If (x>=176) and (x<=200) and (y>=280) and (y<=288)
then begin
Image1.Canvas.MoveTo(175,308);
Image1.Canvas.LineTo(200,308);
end
else
If (x>=180) and (x<=199) and (y>=300) and (y<=310)
then begin
Image1.Canvas.MoveTo(175,308);
Image1.Canvas.LineTo(191,280);
end;
end;

← →
Defunct © (2004-03-13 20:36) [1]

Где-нибудь хранине зону, затираемую линией, при прорисовке восстанавливайте

Canvas.CopyRect

Периросовка линий в Image Найти похожие ветки