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

发布时间：2020-12-15 09:37:31 所属栏目：大数据来源：网络整理

导读：我已经将我在Delphi 2009中使用T Image.Canvas绘制的问题缩小到以下可重现的情况：鉴于：表格,TImage,TLabel和TButton. TImage锚定到所有四个边缘,因此调整窗体大小将调整TImage的大小.我希望能够做的是在调整大小后绘制我可用的Image1的最大区域.所以在我

我已经将我在Delphi 2009中使用T Image.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,Image1.Width,Image1.Height);
end;

您将看到,如果调整窗体大小,Image1.Width和.Height会按预期更改,但是如果调整大小的窗体大于原始窗体,则绘制的矩形将不完整,仅绘制在相同的区域上以前.

我怎样才能使用整个调整大小的区域？

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

任何帮助赞赏.

解决方法

在表单中添加OnResize事件：

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!