Question

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

鉴于：表单，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。

Answer 2

也许您还必须调整Image1.Picture.Width / Height或Image1.Picture.Bitmap.Width / Height。

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

2 个答案: