|  | 
 
| 公司测试用的平板是小米的 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本帖子中包含更多资源您需要 登录 才可以下载或查看,没有帐号?立即注册  |