在PaintBox中画了一个圈，在画第二个之前去掉第一个，怎么办？(100分)

Y

yangyang2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #1

不能调用PaintBox的Refresh方法和Paint事件，因为这样会引起图象的重画和闪动。

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #2

用异或的方式
PEN.style := psNOTXOR;
好象是这样的你可能自己查查！

 

Y

yanghaijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-24

• #3

你试过内存缓冲区的方法吗?

 

Y

yangyang2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #4

试过了，不行.“天真”说有一定道理，
但这样以来我画圈的颜色就不能自己定义了。

 

H

huasoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #5

用底色重画第一个圆。

 

C

cb_hfxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #6

用底色重画。

 

Y

yangyang2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #7

怎样用底色重画？

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #8

procedure TForm1.Button1Click(Sender: TObject);
begin
with paintbox1 do
begin
Canvas.pen.Color := color;
Canvas.Ellipse(Width div 10, Height div 10,Width , Height);
Canvas.pen.Color := clRed;
Canvas.Ellipse(0, 0, Width, Height);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with paintbox1 do
begin
Canvas.pen.Color := color;
Canvas.Ellipse(0, 0, Width, Height);
Canvas.pen.Color := clGreen;
Canvas.Ellipse(Width div 10, Height div 10,Width , Height);
end;

end;

 

Y

yangyang2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #9

多人接受答案了。