使用 Delphi 和Firemonkey在任何设备上简单地拉伸图像

afdcj2ne  于 2023-10-18  发布在  其他
关注(0)|答案(1)|浏览(145)

我正在使用Firemonkey开发一个非常简单的 Delphi 应用程序。我的客户有大量不同的设备和屏幕尺寸。对于一个技术图像,我使用了一个TImage组件(客户端对齐),并为“MultiResBitmap”属性分配了一些JPG。令人惊讶的是,它在任何设备上都不好看。每边都有白色的边缘。来自VCL,我只是在寻找一个“拉伸”属性,因为它是没有问题的情况下,如果图像的纵横比不是100%正确的。我还可以使用哪些组件?或者有一个“伸展”一样的财产?
[编辑0]感谢Erik,我在WrapMode属性上找到了“Stretch”值。行为改变了一点,但问题仍然存在。
White edges on the left and right
[EDIT1]这里是DFM文件的代码,当然不包括图像数据。

object imgSearchBackground: TImage
            MultiResBitmap.Height = 1143
            MultiResBitmap.Width = 841
            MultiResBitmap = <
              item
                Width = 841
                Height = 1143
                PNG = {....}
                FileName = 'f:\projects\image0.jpg'
              end>
            Align = Client
            Size.Width = 779.000000000000000000
            Size.Height = 308.000000000000000000
            Size.PlatformDefault = False
            WrapMode = Stretch
          end
jmo0nnb3

jmo0nnb31#

您将在FMX的TImageWrapMode属性下找到“Stretch”(以及其他选项)的等效项。
参见FMX.Objects.TImage.WrapMode

相关问题