Delphi 10 TImage，移动端图像宽度

Question

我正在尝试使用Delphi 10柏林为智能设备构建一个应用程序。在这个应用程序中，我想要加载或拍照，然后我必须定位另一个组件与相同的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;

Answer 1

FireMonkey TImage组件有一个名为WrapMode的属性，可帮助您控制图像位图在TImageSurface上的呈现方式。

你可以在这里的官方文档中了解更多：

http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.Objects.TImage.WrapMode

注意:此属性及其连接的功能仅适用于TImage的FireMonkey版本，不适用于VCL版本。