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

千面萌萌

全部组件都要操作？

zeng20160808

支持开源~！感谢分享

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 (窗口句柄, 左边, 顶边, 宽度, 高度, 真)
    

复制代码

深圳梦

支持开源~！感谢分享

hmyroot

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

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

michardhl

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

orjg

谢谢分享

JimmyHuang

谢谢分享,紫薯布丁

wys810301

谢谢分享,紫薯布丁

hmyroot

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

是的