Question

delphi canvas 画布大小发生变化 制图不正确

procedure TForm1.BitBtn1Click(Sender: TObject);beginimage1.Height:=200; image1.Width :=200;image1.Canvas.Ellipse (10,10,image1.Width -10,image1.Height-10);end;
procedure TForm1.BitBtn2Click(Sender: TObject);begin image1.Height:=300; image1.Width :=300; image1.Canvas.Ellipse (10,10,image1.Width -10,image1.Height-10);end;
代码如上
先执行bitbtn1如图

先执行bitbtn2如图

执行bitbtn1后在执行bitbtn2如图

将image的stretch的属性设为TRUE 执行bitbtn1再执行bitbtn2 如图

从执行效果来看 当Image已经绘制过后，再改变其大小，绘图区域将只保留原绘图区域 如图三，若将stretch属性设为TRUE 其绘图也只是原画布的放大，我想要的效果是如图二那样，image变大后，画布也随之变大，repaint也无效，有什么方法吗？





Answer 1

在用Ellipse 前，先用 Fillrect 填充一个整体的白色矩形

追问

fillrect无效，绘图区域没变化，执行bitbtn1后，再执行bitbtn2后只是抹除原绘图痕迹，效果类似图3

追答

Canvas.Brush.Color := clWhite;
Canvas.FillRect(R);

应该可以的啊，R为｛0，0，Image1.Width,Image1.Height}

在绘制之前，先 fillrect
点btn1,则为 fillrect ->btn1里的Ellipse
点btn2时，按你说的，应该是 fillrect->btn1里的Ellipse-->btn2里的Ellipse
做绘图工具，应该是当前绘图层，背景层，挺麻烦的。

追问

在两个btn里都加入你说的代码 

执行bitbtn1后再执行bitbtn2效果如下

可以看出只是将bitbtn1执行的绘制抹除，但作图区域还是bitbtn1时设置的区域，没有完全显示出bitbtn2时设置的全部区域，我做过测试，image1的大小是已经改变了，我用的是delphi7，我想执行bitbtn1后再执行bitbtn2的效果如下图

这是什么原因，怎么解决呢？多谢大神了！

追答

不好意思，之前问题没看太明白，你在 改为image的大小后，即 canvas开始画之前给 image.Picture赋值为 nil即可，你再试试吧，代码如下：

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
image1.Height:=200;
image1.Width :=200;
Image1.Picture:=nil;
image1.Canvas.Ellipse (10,10,image1.Width -10,image1.Height-10);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
image1.Height:=300;
image1.Width :=300;
Image1.Picture:=nil;
image1.Canvas.Ellipse (10,10,image1.Width -10,image1.Height-10);
end;

Answer 2

软件人员梵蒂冈圣达菲