| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Рисование на canvas е

Olgerd ©   (2002-02-18 12:22:00) 

У меня есть форма, на ней много контролов. Я хочу, чтобы через неё прошла черная линия:
for i:=1 to form1.width do
begin
form1.canvas.rectange(i-1,0,i,form1.height);
form1.canvas.rectange(i,0,i+1,form1.height);
sleep(100);
end;
Смысл в том, что рисуется линия, а потом на этом же месте снова рисуется такая же линия, чтобы убрать предыдущую. Для CopyMode должен быть XOR, т.е. если два раза рисовать один и тот же объект, то второй раз он как бы затьирается. Я пытался поменять у CopyMode, но у меня ничего не выходит, может я что-нибудь не так делаю.

---

Olgerd   (2002-02-18 19:46:00) [1]

Спасибо огромное!

---

MBo   (2002-02-18 13:59:00) [2]

canvas.Pen.Mode:=pmNotXor;
for i:=0 to width-1 do
begin
if i>0 then begin
canvas.MoveTo(i-1,0);
canvas.LineTo(i-1,height);
end;
canvas.MoveTo(i,0);
canvas.LineTo(i,height);
sleep(100);
end;

---

Наверх