根据系统DPI自动缩放程序界面(兼容Win7、Win8、Win10)

hmyroot

    根据系统DPI自动缩放程序界面(兼容Win7、Win8、Win10)，需要用到注 册表模块，或者手动改为易语言自带的注 册表功能。易语言默认不支持新系统的UI缩放功能，我们可以使用巧妙的方法来使易语言跟上时代的步伐。默认只整合了常用的几个组件缩放，其它组件可以根据自己喜好添加。



放大150%后，不加DPI缩放是这个样子


放大150%后，加上DPI缩放是这个样子


注 册表模块地址：
https://125.confly.eu.org/forum.php?mod ... rtype=1#pid17771473
-------------------------------------------------------------------------

  

子程序名	返回值类型	公开	备 注
组件自动缩放

变量名	类 型	静态	数组	备 注
DPI	整数型
缩放率	小数型
按钮统计	整数型
按钮数量	整数型
按钮数组	按钮		0
a	整数型
标签统计	整数型
标签数量	整数型
标签数组	标签		0
i	整数型
选择框统计	整数型
选择框数量	整数型
选择框数组	选择框		0
ai	整数型
组合框统计	整数型
组合框数量	整数型
组合框数组	组合框		0
b	整数型

如果 (zc表_取zc表整数型_加强版 ( #HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 0) ＝ 96)
DPI ＝ zc表_取zc表整数型_加强版 ( #HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 96)
缩放率 ＝ DPI ÷ 96
DPI ＝ zc表_取zc表整数型_加强版 ( #HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 100)
缩放率 ＝ DPI ÷ 100
_启动窗口.高度 ＝ _启动窗口.高度 × 缩放率
_启动窗口.宽度 ＝ _启动窗口.宽度 × 缩放率
' _启动窗口.顶边 ＝ _启动窗口.顶边 × 缩放率
' _启动窗口.左边 ＝ _启动窗口.左边 × 缩放率
按钮统计 ＝ 寻找组件 (_启动窗口, , “按钮”, , )
按钮数量 ＝ 取找到组件数目 (按钮统计)
重定义数组 (按钮数组, 假, 按钮数量)
计次循环首 (按钮数量, a)
按钮数组 [a] ＝ 取所找到组件 (按钮统计, a － 1)
按钮数组 [a].宽度 ＝ 按钮数组 [a].宽度 × 缩放率
按钮数组 [a].顶边 ＝ 按钮数组 [a].顶边 × 缩放率
按钮数组 [a].左边 ＝ 按钮数组 [a].左边 × 缩放率
按钮数组 [a].高度 ＝ 按钮数组 [a].高度 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (按钮统计)
标签统计 ＝ 寻找组件 (_启动窗口, , “标签”, , )
标签数量 ＝ 取找到组件数目 (标签统计)
重定义数组 (标签数组, 假, 标签数量)
计次循环首 (标签数量, i)
标签数组 [i] ＝ 取所找到组件 (标签统计, i － 1)
标签数组 [i].宽度 ＝ 标签数组 [i].宽度 × 缩放率
标签数组 [i].顶边 ＝ 标签数组 [i].顶边 × 缩放率
标签数组 [i].左边 ＝ 标签数组 [i].左边 × 缩放率
标签数组 [i].高度 ＝ 标签数组 [i].高度 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (标签统计)
选择框统计 ＝ 寻找组件 (_启动窗口, , “选择框”, , )
选择框数量 ＝ 取找到组件数目 (选择框统计)
重定义数组 (选择框数组, 假, 选择框数量)
计次循环首 (选择框数量, ai)
选择框数组 [ai] ＝ 取所找到组件 (选择框统计, ai － 1)
选择框数组 [ai].宽度 ＝ 选择框数组 [ai].宽度 × 缩放率
选择框数组 [ai].顶边 ＝ 选择框数组 [ai].顶边 × 缩放率
选择框数组 [ai].左边 ＝ 选择框数组 [ai].左边 × 缩放率
选择框数组 [ai].高度 ＝ 选择框数组 [ai].高度 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (选择框统计)
组合框统计 ＝ 寻找组件 (_启动窗口, , “组合框”, , )
组合框数量 ＝ 取找到组件数目 (组合框统计)
重定义数组 (组合框数组, 假, 组合框数量)
计次循环首 (组合框数量, b)
组合框数组 [b] ＝ 取所找到组件 (组合框统计, b － 1)
组合框数组 [b].宽度 ＝ 组合框数组 [b].宽度 × 缩放率
组合框数组 [b].顶边 ＝ 组合框数组 [b].顶边 × 缩放率
组合框数组 [b].左边 ＝ 组合框数组 [b].左边 × 缩放率
组合框数组 [b].高度 ＝ 组合框数组 [b].高度 × 缩放率
计次循环尾 ()
清除组件寻找句柄 (组合框统计)

.版本 2<br /> <br /> .子程序 组件自动缩放<br /> .局部变量 DPI, 整数型<br /> .局部变量 缩放率, 小数型<br /> .局部变量 按钮统计, 整数型<br /> .局部变量 按钮数量, 整数型<br /> .局部变量 按钮数组, 按钮, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 标签统计, 整数型<br /> .局部变量 标签数量, 整数型<br /> .局部变量 标签数组, 标签, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 选择框统计, 整数型<br /> .局部变量 选择框数量, 整数型<br /> .局部变量 选择框数组, 选择框, , "0"<br /> .局部变量 ai, 整数型<br /> .局部变量 组合框统计, 整数型<br /> .局部变量 组合框数量, 整数型<br /> .局部变量 组合框数组, 组合框, , "0"<br /> .局部变量 b, 整数型<br /> <br /> .如果 (zc表_取zc表整数型_加强版 (#HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 0) ＝ 96)<br />     DPI ＝ zc表_取zc表整数型_加强版 (#HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 96)<br />     缩放率 ＝ DPI ÷ 96<br /> .否则<br />     DPI ＝ zc表_取zc表整数型_加强版 (#HKEY_CURRENT_USER, “Control Panel\Desktop”, “LogPixels”, 100)<br />     缩放率 ＝ DPI ÷ 100<br /> .如果结束<br /> _启动窗口.高度 ＝ _启动窗口.高度 × 缩放率<br /> _启动窗口.宽度 ＝ _启动窗口.宽度 × 缩放率<br /> ' _启动窗口.顶边 ＝ _启动窗口.顶边 × 缩放率<br /> ' _启动窗口.左边 ＝ _启动窗口.左边 × 缩放率<br /> 按钮统计 ＝ 寻找组件 (_启动窗口, , “按钮”, , )<br /> 按钮数量 ＝ 取找到组件数目 (按钮统计)<br /> 重定义数组 (按钮数组, 假, 按钮数量)<br /> .计次循环首 (按钮数量, a)<br />     按钮数组 [a] ＝ 取所找到组件 (按钮统计, a － 1)<br />     按钮数组 [a].宽度 ＝ 按钮数组 [a].宽度 × 缩放率<br />     按钮数组 [a].顶边 ＝ 按钮数组 [a].顶边 × 缩放率<br />     按钮数组 [a].左边 ＝ 按钮数组 [a].左边 × 缩放率<br />     按钮数组 [a].高度 ＝ 按钮数组 [a].高度 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (按钮统计)<br /> 标签统计 ＝ 寻找组件 (_启动窗口, , “标签”, , )<br /> 标签数量 ＝ 取找到组件数目 (标签统计)<br /> 重定义数组 (标签数组, 假, 标签数量)<br /> .计次循环首 (标签数量, i)<br />     标签数组 <i> ＝ 取所找到组件 (标签统计, i － 1)<br />     标签数组 <i>.宽度 ＝ 标签数组 <i>.宽度 × 缩放率<br />     标签数组 <i>.顶边 ＝ 标签数组 <i>.顶边 × 缩放率<br />     标签数组 <i>.左边 ＝ 标签数组 <i>.左边 × 缩放率<br />     标签数组 <i>.高度 ＝ 标签数组 <i>.高度 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (标签统计)<br /> 选择框统计 ＝ 寻找组件 (_启动窗口, , “选择框”, , )<br /> 选择框数量 ＝ 取找到组件数目 (选择框统计)<br /> 重定义数组 (选择框数组, 假, 选择框数量)<br /> .计次循环首 (选择框数量, ai)<br />     选择框数组 [ai] ＝ 取所找到组件 (选择框统计, ai － 1)<br />     选择框数组 [ai].宽度 ＝ 选择框数组 [ai].宽度 × 缩放率<br />     选择框数组 [ai].顶边 ＝ 选择框数组 [ai].顶边 × 缩放率<br />     选择框数组 [ai].左边 ＝ 选择框数组 [ai].左边 × 缩放率<br />     选择框数组 [ai].高度 ＝ 选择框数组 [ai].高度 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (选择框统计)<br /> 组合框统计 ＝ 寻找组件 (_启动窗口, , “组合框”, , )<br /> 组合框数量 ＝ 取找到组件数目 (组合框统计)<br /> 重定义数组 (组合框数组, 假, 组合框数量)<br /> .计次循环首 (组合框数量, b)<br />     组合框数组 <strong> ＝ 取所找到组件 (组合框统计, b － 1)<br />     组合框数组 <strong>.宽度 ＝ 组合框数组 <strong>.宽度 × 缩放率<br />     组合框数组 <strong>.顶边 ＝ 组合框数组 <strong>.顶边 × 缩放率<br />     组合框数组 <strong>.左边 ＝ 组合框数组 <strong>.左边 × 缩放率<br />     组合框数组 <strong>.高度 ＝ 组合框数组 <strong>.高度 × 缩放率<br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (组合框统计)

hmyroot

Ghostman110 发表于 2021-9-23 11:36
可以啦  有个地方没漏改了

推介你用这个模块，只需要在启动窗口完毕那里加载  窗口_适应DPI (窗口1.取窗口句柄 (), 96, 全局_屏幕DPI) 就可以实现全局控件自动缩放了
DPI适应模块.7z (1.68 KB, 下载次数: 365)

2021-9-29 16:05 上传

点击文件名下载附件
下载积分: 精币 -2 枚

补充内容 (2021-12-27 17:58):
推介使用【DPI适应模块.7z】更方便更好用，连接在27楼顶楼

限量版的网名

意思是要把所有不同的组件循环一次？

hmyroot

限量版的网名 发表于 2020-4-3 23:15
意思是要把所有不同的组件循环一次？

是的

wys810301

谢谢分享,紫薯布丁

JimmyHuang

谢谢分享,紫薯布丁

orjg

谢谢分享

michardhl

好像有类似的模块，没楼主的这么复杂

hmyroot

michardhl 发表于 2020-4-4 15:21
好像有类似的模块，没楼主的这么复杂

反编译模块看看代码量再确定

深圳梦

支持开源~！感谢分享

michardhl

hmyroot 发表于 2020-4-4 15:29
反编译模块看看代码量再确定

大神误会了，说的是跟你的实现方法不一样，你看看，我也只入门级的

1. .版本 2
   
2. 
   
3. .如果真 (是否为空 (屏幕DPI))
   
4.     屏幕DPI ＝ 全局_屏幕DPI
   
5. .如果真结束
   
6. 子窗口句柄 ＝ GetWindow (窗口句柄, #GW_CHILD)
   
7. .判断循环首 (子窗口句柄 ≠ 0)
   
8.     窗口_适应DPI (子窗口句柄, 设计DPI, 屏幕DPI)
   
9.     子窗口句柄 ＝ GetWindow (子窗口句柄, #GW_HWNDNEXT)
   
10. .判断循环尾 ()
    
11. 
    
12. GetWindowRect (窗口句柄, 窗口屏幕矩形)
    
13. 窗口大小.cx ＝ 窗口屏幕矩形.right － 窗口屏幕矩形.left
    
14. 窗口大小.cy ＝ 窗口屏幕矩形.bottom － 窗口屏幕矩形.top
    
15. 窗口坐标.x ＝ 窗口屏幕矩形.left
    
16. 窗口坐标.y ＝ 窗口屏幕矩形.top
    
17. 父窗口句柄 ＝ GetAncestor (窗口句柄, #GA_PARENT)
    
18. ' 父窗口句柄 ＝ GetParent (窗口句柄)
    
19. ScreenToClient (父窗口句柄, 窗口坐标)
    
20. 
    
21. .如果 (父窗口句柄 ＝ 0 或 父窗口句柄 ＝ 65552)
    
22.     ' 是弹出式窗口就缩放客户区并居中位置
    
23.     GetClientRect (窗口句柄, 窗口客户矩形)
    
24.     宽度 ＝ 窗口大小.cx － 窗口客户矩形.right ＋ MulDiv (窗口客户矩形.right, 屏幕DPI, 设计DPI)
    
25.     左边 ＝ 窗口屏幕矩形.left － (宽度 － 窗口大小.cx) ÷ 2
    
26.     高度 ＝ 窗口大小.cy － 窗口客户矩形.bottom ＋ MulDiv (窗口客户矩形.bottom, 屏幕DPI, 设计DPI)
    
27.     顶边 ＝ 窗口屏幕矩形.top － (高度 － 窗口大小.cy) ÷ 2
    
28. .否则
    
29.     宽度 ＝ MulDiv (窗口大小.cx, 屏幕DPI, 设计DPI)
    
30.     高度 ＝ MulDiv (窗口大小.cy, 屏幕DPI, 设计DPI)
    
31.     左边 ＝ MulDiv (窗口坐标.x, 屏幕DPI, 设计DPI)
    
32.     顶边 ＝ MulDiv (窗口坐标.y, 屏幕DPI, 设计DPI)
    
33. .如果结束
    
34. MoveWindow (窗口句柄, 左边, 顶边, 宽度, 高度, 真)
    

复制代码