您的位置:首页 > 编程开发 > 易语言

组件自适应模块API实现

:3.038KB :2021-03-03 17:18:14

.计次循环首 (局_数量, 局_计次)
.如果真 (集_所有组件比例 [局_计次].顶层窗口句柄 = 参_目标窗口句柄)
.如果 (集_所有组件比例 [局_计次].窗口句柄 = 集_顶层窗口句柄)
取窗口客户区矩形 (参_目标窗口句柄, 局_矩形)
局_窗口宽度 = 局_矩形.右边
局_窗口高度 = 局_矩形.底边
.否则
取窗口矩形 (集_所有组件比例 [局_计次].窗口句柄, 局_矩形)
局_窗口宽度 = 局_矩形.右边 - 局_矩形.左边
局_窗口高度 = 局_矩形.底边 - 局_矩形.顶边
.如果结束
局_新左边 = 集_所有组件比例 [局_计次].左边比 × 局_窗口宽度
局_新顶边 = 集_所有组件比例 [局_计次].顶边比 × 局_窗口高度
局_新宽度 = 集_所有组件比例 [局_计次].宽度比 × 局_窗口宽度
局_新高度 = 集_所有组件比例 [局_计次].高度比 × 局_窗口高度
调整窗口组件 (集_所有组件比例 [局_计次].组件句柄, 局_新左边, 局_新顶边, 局_新宽度, 局_新高度, 真)
.如果真结束

.计次循环尾 ()
易语言组件自适应模块API实现例子。

颜色选择器,添加到自定义颜色,置弹出位置
BASS录音器,代码简单功能齐全

同类资源