如何在Delphi中调整大小的TImage的整个区域？

Question

我已经将我TImage.Canvas在Delphi 2009中绘制的问题缩小到以下可重现的案例:

鉴于:一种形式,一个TImage,TLabel并TButton在其上.它TImage被锚定到所有四个边缘,以便调整窗体大小将调整大小TImage.我希望能够做的是Image1在调整大小后使用可用的最大区域.所以在我的测试用例中,我在Button的OnClick处理程序中有以下代码:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:= IntToStr (Image1.Width)+' x '+IntToStr(Image1.Height);
  Image1.Canvas.Pen.Color:= 0;
  Image1.Canvas.Rectangle(0,0,Image1.Width, Image1.Height);
end;

你会看到,如果窗体大小,Image1.Width并.Height改变预期,但如果调整的形式是绘制矩形较大比原来的,将是不完整的,只对在那里以前同一区域绘制.

如何使用整个调整大小的区域？

对于它的价值,在我玩过的原始问题中Image1.Stretch,这允许我在调整大小时使用更多区域,但会导致我的图形被扭曲(不需要).如果我也使用Image1.Proportional,那么它会更好,但我仍然无法使用可用的完整区域.Image1.AutoSize似乎也没有对我做任何有用的事情.

任何帮助赞赏.

Answer 1

在表单中添加OnResize事件:

procedure TForm1.FormResize(Sender: TObject);
begin
  Image1.Picture.Bitmap.Width := Image1.Width;
  Image1.Picture.Bitmap.Height := Image1.Height;
end;

此外,如果您使用组件进行绘制,而不是显示文件中的图像等,请考虑使用TPaintBox而不是TImage.