a842695001 发表于 2022-7-26 14:31:45

【全分辨率组件适配】几句代码就能完成

E4A设置关闭自适应组件大小
E4A设置分辨率为 随意，下面用 480*800举例




过程 适配（）''''''''''''在启动窗口调用 适配（）就可以了
变量 屏幕宽度 为 双精度小数型 '''''''''''''''''''''''''''这是竖屏用，横屏就取高度

屏幕宽度 = 取屏幕宽度（） /480

图片框1.宽度 = 图片框1.宽度 * 屏幕宽度
图片框1.高度 = 图片框1.高度 * 屏幕宽度
图片框1.左边 = 图片框1.左边 * 屏幕宽度
图片框1.顶边 = 图片框1.顶边 * 屏幕宽度

结束 过程



3133851 发表于 2022-7-28 10:13:07

感谢楼主分享，支持一下！

919306194 发表于 2022-7-28 23:37:50

谢谢大哥分享

itcfan 发表于 2022-8-5 16:14:12

本帖最后由 itcfan 于 2022-8-5 16:15 编辑

改进成函数：
函数 适配(组件宽度 为 文本型,组件高度 为 文本型,组件左边 为 文本型,组件顶边 为 文本型)为 整数型''''''''''''在启动窗口调用
      变量 屏幕宽度 为 双精度小数型 '''''''''''''''''''''''''''这是竖屏用，横屏就取高度
      屏幕宽度 = 取屏幕宽度() /320
      组件宽度 = 组件宽度 * 屏幕宽度
      组件高度 = 组件高度 * 屏幕宽度
      组件左边 = 组件左边 * 屏幕宽度
      组件顶边 = 组件顶边 * 屏幕宽度
结束 函数
调用：
适配(图片框1.宽度,图片框1.高度,图片框1.左边,图片框1.顶边)
适配(图片框2.宽度,图片框2.高度,图片框2.左边,图片框2.顶边)
适配(图片框3.宽度,图片框3.高度,图片框3.左边,图片框3.顶边)

lgbc 发表于 2022-8-8 07:02:32

谢谢分享，支持支持！！

FANFNEG 发表于 2022-8-28 15:00:27

itcfan 发表于 2022-8-5 16:14
改进成函数：

调用：

谢谢分享，支持支持！！
页: [1]
查看完整版本: 【全分辨率组件适配】几句代码就能完成