canvas?(20分)

L

ll710915

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-12

• #1

如何擦除在画布上已画的一条直线

 

V

vickowang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-12

• #2

用背景色重画一边不就可以了？

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-13

• #3

运用异或线 ：

procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.Pen.Mode :=pmNotXor;
Canvas.MoveTo(100,100);
Canvas.LineTo(200,200);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Canvas.MoveTo(100,100);
Canvas.LineTo(200,200);
end;

 

D

dittw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-13

• #4

在public部分加一个：procedure ClearCanvas;
procedure TForm1.ClearCanvas;
begin
with Canvas do
begin
Brush.Style:=bsSolid;
Brush.Color:=clWhite;
FillRect(ClipRect);
end;
end;
在需要的地方加上就可以了!

 

L

ll710915

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-25

• #5

接受答案了.