关于Image的一个小问题,解决就送分哈,在线等!!!!!!!!!!
我使用如下语句载入图片到Image中,Image1放在一个ScrollBox中,Image1的属性如下:Top和Left都为0,AutoSize为true,Align属性设置为alNone。
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
现在遇到一个问题:当载入的图片大小小于ScrollBox的时候,载入图片之后,我想清空Image1中的内容(用白色清空),语句如下:
Image1.Canvas.Brush.Color := clWhite;
Image1.Canvas.Rectangle(Image1.ClientRect);
但是清空后Image1的大小变成和它所载入的图片一样大了。我想用Image1.width:=xxx和Image1.height:=xxx来改变它的大小,但是不成功,请问我应该怎么改呢?谢谢了!!
[解决办法]
Img1.Picture.Bitmap.FreeImage;
Img1.Picture.Bitmap :=nil;
然后再修改img1的width和height
[解决办法]
//释放Bitmap内容
Image1.Picture.Bitmap.FreeImage;
Image1.Picture.Bitmap :=nil;
//重新设置大小
Image1.Picture.Bitmap.Width := 200;
Image1.Picture.BitMap.Height := 200;
//清空画布
Image1.Canvas.Brush.Color := clWhite;
Image1.Canvas.Rectangle(Image1.ClientRect);