下你所需,载你所想!
汇集开发技术源码资料

无模块实现程序组件全局自适应缩放

:2.283KB :1 :2019-12-28 06:57:05

部分简介

可任意添加各种控件自动适应缩放适用于任何版本,支持超多支持库根据窗口尺寸各控件自动调整间隔比例。

.计次循环首 (取数组成员数 (_ChildHwnd), i)
GetWindowRect (_ChildHwnd [i], tem)
加入成员 (Rect, tem)
Proportion_.Left = (_Rect [i].Left - 左边 - 4) ÷ 宽度
Proportion_.Top = (_Rect [i].Top - 顶边 - 32) ÷ 高度
Proportion_.width = (_Rect [i].Right - _Rect [i].Left) ÷ 宽度
Proportion_.height = (_Rect [i].Bottom - _Rect [i].Top) ÷ 高度
加入成员 (_Proportion, Proportion_)
.计次循环尾 ()
返回 (取数组成员数 (Rect))

.计次循环首 (A, N)
SetWindowPos (_ChildHwnd [N], 0, 宽度 × _Proportion [N].Left, 高度 × _Proportion [N].Top, _Proportion [N].width × 宽度, _Proportion [N].height × 高度, 0)
.计次循环尾 ()
标签1.标题 = “高度:” + 到文本 (高度) + “ 宽度:” + 到文本 (宽度)

无模块实现程序组件全局自适应缩放

热门推荐

相关文章