有关画布image1.Canvas的问题(20分)

B

boss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #1

代码如下:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image1.Canvas.Pixels [x,y]:=clred;
end;
运行在画布上面画点怎么画布闪烁,那位高手说说原因吧,小弟在此感谢大家了

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #2

你应该先在创建好的位图上进行，然后将位图拷到Image.Picture.Bitmap上。
这样自然就不会闪烁了！

 

P

PFans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #3

procedure TForm1.Create(Sender: TObject);
begin
form1.doublebuffered;
end;

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #4

有办法，你可以在IMAGE下面放一个同样底色的PANEL，这样就没有闪烁了。主要是因为FORM的
REPAINT引起了闪烁。

 

B

boss

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-21

• #5

to:menxin
问题解决，谢谢