|
公司测试用的平板是小米的
pp1:326
分辨率:2048*1536
想要自己添加个View,都是根据帮助文档来的
[mw_shl_code=delphi,true]unit MyViews;
interface
const
MiPAD = 'MIPAD'; // The unique name of the view, it has to be the same name as the one written between <Name></Name> tags of the DevicePreset.xml file.
implementation
uses
system.Devices, system.Types, system.SysUtils;
type
TDeviceRec = record
ID: string;
DevClass: TDeviceInfo.TDeviceClass;
MinLogicalSize, MaxLogicalSize: TSize;
MinPhysicalSize, MaxPhysicalSize: TSize;
PPI: Integer;
Exclusive: Boolean;
end;
const
DeviceCount = 1;
Devices: array[0..DeviceCount - 1] of TDeviceRec =(
(ID: MiPAD; DevClass: TDeviceInfo.TDeviceClass.Tablet;
MinLogicalSize: (cx: 1024; cy: 768); MaxLogicalSize: (cx: 1024; cy: 768);
MinPhysicalSize: (cx: 2048; cy: 1536); MaxPhysicalSize: (cx: 2048; cy: 1536); PPI: 326; Exclusive: False)
);
initialization
TDeviceinfo.AddDevice(TDeviceinfo.TDeviceClass.Tablet, MiPAD,
Devices[0].MinPhysicalSize, Devices[0].MinLogicalSize, // MinPhysicalSize(max, min), MinLogicalSize(max, min)
Devices[0].MaxPhysicalSize, Devices[0].MaxLogicalSize, // MaxPhysicalSize(max,min), MaxLogicalSize(max,min)
TOSVersion.TPlatform.pfAndroid, Devices[0].PPI,Devices[0].Exclusive); //Select the platform and the pixel density.
finalization
TDeviceinfo.RemoveDevice(MiPAD); // To unregister the view after unistalling the package.
end.[/mw_shl_code]
FormDesigner中的宽度高度我按1024*768弄的
可是测试程序生成之后用的是Master,而不是我做的这个,是什么问题
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|