Timage控件的操作问题(100分)

K

king3721

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-09

• #1

我在窗口上面放了一个TImage的控件,其align属性设为alcient
不过我用程序改变窗口大小的时候
这时候窗口收到了WM_RESIZE的消息
在这时候我对控件用了fillrect函数
但是控件的大小没有改变

代码如下
width:=width+20;
height:=height+20;

myImage.Canvas.FillRect(Rect(0,0,Width,Height));
大家看一下怎么办

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-09

• #2

这样才对：

procedure TForm1.FormPaint(Sender: TObject);
var
Bmp :TBitmap;
begin
Bmp :=TBitmap.Create;
Bmp.width:=width+20;
Bmp.height:=height+20;
Bmp.Canvas.FillRect(Rect(0,0,Width,Height));
Image1.Picture.Bitmap.Assign(Bmp);
Bmp.Free;
end;

 

J

JohnsonGuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-09

• #3

给个简单的。
procedure TForm1.FormResize(Sender: TObject);
begin
Image1.Picture.Assign(nil);
with Image1.Canvas do begin
Brush.Color := clWhite;
FillRect(ClipRect);
end;
end;

 

K

king3721

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #4

我打算给JohnsonGuo分数
不给怎么给不了

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #5

接受答案了.