在窗体上把一个图象的大小扩大一倍后,再用canvas.fillrect方法重新把图象的背景绘成白色,为什么图象没有变化呢？

Question

在一个窗体上放置一个Image和两个按钮,一个为【创建白色背景】,另外一个名为【加大图片一倍】，
实际运行时先运行【创建白色背景】按钮代码,再运行【加大图片一倍】按钮代码；
【创建白色背景】的单击事件代码为：
image1.Canvas.Brush.Color :=clWhite;
image1.Canvas.FillRect(Rect(0,0,image1.Width ,image1.Height ));
//此程序执行后,可以看到image已经完全被白色填充了;
【加大图片一倍】的单击事件代码为：
image1.Width :=image1.Width *2;
image1.Height :=image1.Height *2;
image1.Canvas.Brush.Color :=clWhite;
image1.Canvas.FillRect(Rect(0,0,image1.Width ,image1.Height ));
//此段代码运行后,可以发现Image1的大小确实为原来的一倍，但是Image没有被白色完全填充,白色范围依然是上一个按钮执行后填充的白色范围。
请各位XDJM给我一个答复,十分感谢！

Answer 1

image1.Width :=image1.Width *2;
image1.Height :=image1.Height *2;
image1.Picture.Bitmap.Width := image1.Width;
image1.Picture.Bitmap.Height := image1.Height;
image1.Canvas.Brush.Color :=clWhite;
image1.Canvas.FillRect(Rect(0,0,image1.Width ,image1.Height ));

Answer 2

把Image1的Stretch属性设置为True也行.