很菜的问题 关于image (100分)

S

sansong089

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #1

代码如下：
procedure TForm1.Button1Click(Sender: TObject);

begin
image1.Width:=image1.Width+20;
image1.Canvas.FillRect(image1.ClientRect);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Canvas.Brush.Color:=clblack;
end;


问题：
为什么点击按钮之后，image怎么不能全部填充呀

 

W

weichao9999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #2

image1.Canvas.Brush.Color:=clblack;
//image1.Canvas.Brush.Bitmap := Bitmap;
image1.Canvas.FillRect(Rect(0, 0, image1.Width, image1.Height));

 

S

sansong089

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #3

我的意思是当image变大是，他不能完全填充。我试了，您的代码没有接决问题。
当image变大是，image1.ClientRect的大小是正确的。

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #4

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Width:=image1.Width+20;
image1.Picture.Bitmap.Width:=image1.Width;
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
image1.Canvas.FillRect(Image1.ClientRect);
end;

 

S

sansong089

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #5

to TYZhang:
接受你的答案，但是您能不能给我讲一下。谢谢！

 

S

sansong089

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #6

我分不够了，送不出去。真是不好意思！

 

J

jianguobu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #7

呵呵,有意思.

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-11

• #8

你只改变了image的大小，没有改变其画布的大小，image画布的大小由image1.Picture.Bitmap来控制。