我正在尝试使用Delphi 10 Berlin为智能设备构建一个应用程序。在这个应用程序中,我想加载或拍照,然后我必须定位另一个具有相同 X 位置的组件,图像的宽度。我的问题是,当我将图像分配给 TImage 控件时,位图不会占用 TImage 控件的所有区域,图像更小。如何在 TImage 控件中获取位图的实际 X 位置和宽度?这是我的代码:
begin
if Image1.Bitmap.Height > Image1.Bitmap.Width then
begin
Image1.Bitmap.Rotate(-90);
end;
Image1.Bitmap.Assign(Image);
Memo1.Width := Image1.Width;
Memo1.Text := '';
end;
FireMonkey TImage
组件具有一个名为 WrapMode
的属性,可帮助您控制图像位图在TImageSurface
上的呈现方式。
您可以在官方文档中阅读有关它的更多信息:
http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.Objects.TImage.WrapMode
注意:此属性及其连接的功能仅适用于 FireMonkey 版本的 TImage
,不适用于 VCL 版本。