高分屏DPI解决方案及原生简洁UI

一心如旧

在Windows缩放下，很多软件不兼容高DPI的效果导致了软件界面过小，强行放大也会使界面变得模糊
所以适配高分屏的需求就来了
其实适配的原理很简单：
就是计算缩放率 然后把所有组件宽高及左边顶边 还有字体大小都乘以缩放率
如果有图片 那么最好是准备好高分辨率的图片 进行自动缩放 不然会模糊。
下面给出一张图片作为对比（Windows10 4K 200%缩放）附加：无边框阴影化UI设计 简洁
适配前：

适配后：

可以看到适配后的字体变的细腻清晰了很多，当然组件可能不是那么明显。
具体的实现方法：
1、在易语言的【工具】-【系统配置】-【存根】-【使用用户自定义清单】添加下面一段代码

1. <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
   
2. <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
   
3.     <application xmlns="urn:schemas-microsoft-com:asm.v3">
   
4.         <windowsSettings>
   
5.             <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
   
6.         </windowsSettings>
   
7.     </application>
   
8. </assembly>

复制代码

2、下面是一个适配的DEMO子程序 对所有组件宽高及左边顶边 还有字体大小都乘以缩放率 app.zip (1.18 MB, 下载次数: 162)

2020-9-22 18:51 上传

点击文件名下载附件
（参考了hmyroot  的帖子https://bbs.125.la/forum.php?mod=viewthread&tid=14553670）

  

子程序名	返回值类型	公开	备 注
组件自动缩放			窗口、按钮、标签、选择框、组合框、选择夹、分组框、单选框、编辑框
参数名	类 型	参考	可空	数组	备 注
窗口名称	窗口				例如：组件自动缩放 (_启动窗口)

变量名	类 型	静态	数组	备 注
DPI	整数型
缩放率	小数型
a	整数型
按钮统计	整数型
按钮数量	整数型
按钮数组	按钮		0
标签统计	整数型
标签数量	整数型
标签数组	标签		0

DPI ＝ 取数值zc项 (3, “Control Panel\Desktop\WindowMetrics\AppliedDPI”, )
缩放率 ＝ DPI ÷ 96
如果真 (缩放率 ≠ 1)
原始高度 ＝ 窗口名称.高度
原始宽度 ＝ 窗口名称.宽度
窗口名称.高度 ＝ 窗口名称.高度 × 缩放率
窗口名称.宽度 ＝ 窗口名称.宽度 × 缩放率
窗口名称.顶边 ＝ 窗口名称.顶边 ��� (窗口名称.高度 － 原始高度) ÷ 2
窗口名称.左边 ＝ 窗口名称.左边 ��� (窗口名称.宽度 － 原始宽度) ÷ 2
a ＝ 0
按钮统计 ＝ 寻找组件 (窗口名称, , “按钮”, , )
按钮数量 ＝ 取找到组件数目 (按钮统计)
重定义数组 (按钮数组, 假, 按钮数量)
计次循环首 (按钮数量, a)
按钮数组 [a] ＝ 取所找到组件 (按钮统计, a － 1)
按钮数组 [a].字体.字体大小 ＝ 按钮数组 [a].字体.字体大小 × 缩放率
按钮数组 [a].高度 ＝ 按钮数组 [a].高度 × 缩放率
按钮数组 [a].宽度 ＝ 按钮数组 [a].宽度 × 缩放率
按钮数组 [a].顶边 ＝ 按钮数组 [a].顶边 × 缩放率
按钮数组 [a].左边 ＝ 按钮数组 [a].左边 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (按钮统计)
a ＝ 0
标签统计 ＝ 寻找组件 (窗口名称, , “标签”, , )
标签数量 ＝ 取找到组件数目 (标签统计)
重定义数组 (标签数组, 假, 标签数量)
计次循环首 (标签数量, a)
标签数组 [a] ＝ 取所找到组件 (标签统计, a － 1)
标签数组 [a].字体.字体大小 ＝ 标签数组 [a].字体.字体大小 × 缩放率
标签数组 [a].高度 ＝ 标签数组 [a].高度 × 缩放率
标签数组 [a].宽度 ＝ 标签数组 [a].宽度 × 缩放率
标签数组 [a].顶边 ＝ 标签数组 [a].顶边 × 缩放率
标签数组 [a].左边 ＝ 标签数组 [a].左边 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (标签统计)

.版本 2<br /> <br /> .子程序 组件自动缩放, , , 窗口、按钮、标签、选择框、组合框、选择夹、分组框、单选框、编辑框<br /> .参数 窗口名称, 窗口, , 例如：组件自动缩放 (_启动窗口)<br /> .局部变量 DPI, 整数型<br /> .局部变量 缩放率, 小数型<br /> .局部变量 a, 整数型<br /> .局部变量 按钮统计, 整数型<br /> .局部变量 按钮数量, 整数型<br /> .局部变量 按钮数组, 按钮, , "0"<br /> .局部变量 标签统计, 整数型<br /> .局部变量 标签数量, 整数型<br /> .局部变量 标签数组, 标签, , "0"<br /> <br /> DPI ＝ 取数值zc项 (3, “Control Panel\Desktop\WindowMetrics\AppliedDPI”, )<br /> 缩放率 ＝ DPI ÷ 96<br /> .如果真 (缩放率 ≠ 1)<br />     原始高度 ＝ 窗口名称.高度<br />     原始宽度 ＝ 窗口名称.宽度<br />     窗口名称.高度 ＝ 窗口名称.高度 × 缩放率<br />     窗口名称.宽度 ＝ 窗口名称.宽度 × 缩放率<br />     窗口名称.顶边 ＝ 窗口名称.顶边 － (窗口名称.高度 － 原始高度) ÷ 2<br />     窗口名称.左边 ＝ 窗口名称.左边 － (窗口名称.宽度 － 原始宽度) ÷ 2<br />     a ＝ 0<br />     按钮统计 ＝ 寻找组件 (窗口名称, , “按钮”, , )<br />     按钮数量 ＝ 取找到组件数目 (按钮统计)<br />     重定义数组 (按钮数组, 假, 按钮数量)<br />     .计次循环首 (按钮数量, a)<br />         按钮数组 [a] ＝ 取所找到组件 (按钮统计, a － 1)<br />         按钮数组 [a].字体.字体大小 ＝ 按钮数组 [a].字体.字体大小 × 缩放率<br />         按钮数组 [a].高度 ＝ 按钮数组 [a].高度 × 缩放率<br />         按钮数组 [a].宽度 ＝ 按钮数组 [a].宽度 × 缩放率<br />         按钮数组 [a].顶边 ＝ 按钮数组 [a].顶边 × 缩放率<br />         按钮数组 [a].左边 ＝ 按钮数组 [a].左边 × 缩放率<br />     .计次循环尾 ()<br />     清除组件寻找句柄 (按钮统计)<br /> <br /> <br />     a ＝ 0<br />     标签统计 ＝ 寻找组件 (窗口名称, , “标签”, , )<br />     标签数量 ＝ 取找到组件数目 (标签统计)<br />     重定义数组 (标签数组, 假, 标签数量)<br />     .计次循环首 (标签数量, a)<br />         标签数组 [a] ＝ 取所找到组件 (标签统计, a － 1)<br />         标签数组 [a].字体.字体大小 ＝ 标签数组 [a].字体.字体大小 × 缩放率<br />         标签数组 [a].高度 ＝ 标签数组 [a].高度 × 缩放率<br />         标签数组 [a].宽度 ＝ 标签数组 [a].宽度 × 缩放率<br />         标签数组 [a].顶边 ＝ 标签数组 [a].顶边 × 缩放率<br />         标签数组 [a].左边 ＝ 标签数组 [a].左边 × 缩放率<br />     .计次循环尾 ()<br />     清除组件寻找句柄 (标签统计)<br /> .如果真结束

ferrisy

支持开源~！感谢分享

ferrisy

爱上岗爱上岗

焉知非福

下载下来学习下，之前的那个使用无效，看看这个看看

wzmrmsunk

很强刚好用上了

86473052

爱上嘎嘎公司

18074941457

精彩文章希望继续努力

86473052

爱上岗爱上岗

蜂蜜柚子熊

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

孤城已故

感谢分享，很给力！~