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

← →
Olgerd © (2002-02-18 12:22) [0]

У меня есть форма, на ней много контролов. Я хочу, чтобы через неё прошла черная линия:
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, но у меня ничего не выходит, может я что-нибудь не так делаю.

← →
MBo © (2002-02-18 13:59) [1]

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;

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

Рисование на canvas е Найти похожие ветки