Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.027 c
3-1078923508
Vit
2004-03-10 15:58
2004.04.04
Как сделать многострочный текст в отчете


1-1079333578
Newb
2004-03-15 09:52
2004.04.04
Адрес офф.сайта Kuliba


1-1079016167
YurikGl
2004-03-11 17:42
2004.04.04
Проблемы с размером шрифтов.


6-1075524205
Don
2004-01-31 07:43
2004.04.04
INTERNET


14-1079023566
ИМХО
2004-03-11 19:46
2004.04.04
"I/O error 998"