Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

Периросовка линий в 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

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.044 c