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

hmyroot

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



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


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


注 册表模块地址：
https://bbs.125.la/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, 下载次数: 295)

2021-9-29 16:05 上传

点击文件名下载附件


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

benbenseo

学习下大佬的思路

mytools

hmyroot 发表于 2021-9-29 16:05
推介你用这个模块，只需要在启动窗口完毕那里加载  窗口_适应DPI (窗口1.取窗口句柄 (), 96, 全局_屏幕DP ...

        支持开源~！感谢分享

longzhuo

感谢分享

wangwz592

hmyroot 发表于 2023-11-13 11:26
不太懂你的意思？是单独窗口？

系统设置中的DPI选项不变，只调整某一个应用或应用中的某一个窗口/对话框的DPI

易神

感谢分享，很给力！~

果心豆腐酱

DPI是什么

hmyroot

wangwz592 发表于 2023-11-11 12:53
有木有可以针对某一程序单独调整的

不太懂你的意思？是单独窗口？

wangwz592

hmyroot 发表于 2021-9-29 16:05
推介你用这个模块，只需要在启动窗口完毕那里加载  窗口_适应DPI (窗口1.取窗口句柄 (), 96, 全局_屏幕DP ...

有木有可以针对某一程序单独调整的

红色恋曲

学习一波~

红色恋曲

6666666666666666666