首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

关于Image的一个小疑点,解决就送分哈,

2012-02-22 
关于Image的一个小问题,解决就送分哈,在线等!!!!!!!!!!我使用如下语句载入图片到Image中,Image1放在一个Sc

关于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);

热点排行