Delphi XE5：智能手机屏幕的图像和大小

Question

当我在其中使用TImageView组件的图像时，它不适合移动屏幕的正确分辨率大小。例如，在某些型号中，图像在顶部和底部变为白色边框，在某些设备上图像小于屏幕，另一个设备添加一个图像边框。我怎么做？这个问题有一定的比例，不会使图像变形，或者我将它留在固定大小的组件上？

以下是一些可以更好理解的插图！

Answer 1

将您的图像放在ScaledLayout中，然后在FormCreate方法中输入此代码

var
screenSize: TSize;
begin
  screenSize := Screen.Size;
  ScaledLayout1.Scale.X := screenSize.cx / ScaledLayout1.OriginalWidth;
  ScaledLayout1.Scale.Y := screenSize.cy / ScaledLayout1.OriginalHeight;

Answer 2

如果升级到Delphi XE7，则可以解析跨平台屏幕大小 使用FireUI。