delphi - Delphi中带有Firemonkey和Imagelist分辨率的ScaledLayout额外未设计的行
问题描述
我试图重现一个小例子(与 Delphi 10.3 和 10.4 相同的问题)。我的问题:如何修复这些“奇怪”的额外行?是否有更好的分辨率来修复 ImageList?(我放了更大的图像,但看起来像图像列表问题)
原始尺寸:
全屏:
一些额外的线路正在发生。我先创建 de 对象,然后包含 ScaledLayout。
代码:
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
System.ImageList, FMX.ImgList, FMX.Menus, FMX.Objects, FMX.Layouts;
type
TForm1 = class(TForm)
Image1: TImage;
PopupMenu1: TPopupMenu;
MenuItem1: TMenuItem;
ImageList1: TImageList;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
ScaledLayout1: TScaledLayout;
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Image1Click(Sender: TObject);
begin
PopupMenu1.Popup(Image1.Position.X,Image1.Position.Y);
end;
end.
解决方案
推荐阅读
- r - 解析中的特殊字符
- r - 用于微调的 tidymodels 示例仍在运行
- java - 如何修复android studio中的权限错误?
- c++ - PC离线时如何通过LookupAccountSid获取域用户名?
- reactjs - 如何在 POST 请求将数据添加到 Firebase 后在 React 中使用 useEffect() 触发重新渲染
- amazon-ecs - ecs-deploy 尚未完成(超时)
- r - 对应两期数据的geom_line
- node.js - 如何在节点js的pgp加密文件中使用私钥和密码?
- windows - pip 和受信任的主机
- sql - 如何在 CASE 中只计算一次相同的行?SQL