Главная страница
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.022 c
3-1078931202
Vit
2004-03-10 18:06
2004.04.04
Как сделать все ячейки отчета одной высоты.


3-1078902392
HeoGtan
2004-03-10 10:06
2004.04.04
Как (для BDE) - определить в БД [PARADOX]:


1-1079691160
ashnurov
2004-03-19 13:12
2004.04.04
ListBox


11-1059554398
Aser2k
2003-07-30 12:39
2004.04.04
Не могу установить KOL


3-1078205836
ZSergey
2004-03-02 08:37
2004.04.04
Доброго времени суток! Разрешите проблему "Table is busy ...