易语言组件自动缩放源码

.版本 2
.支持库 eGrid

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_尺寸被改变
.局部变量 窗高比, 小数型
.局部变量 窗宽比, 小数型

窗宽比 ＝ 到数值 (读配置项 (取运行目录 () ＋ “sys.ini”, “主窗口”, “宽度”, )) ÷ 取用户区宽度 ()
窗高比 ＝ 到数值 (读配置项 (取运行目录 () ＋ “sys.ini”, “主窗口”, “高度”, )) ÷ 取用户区高度 ()
高级表格1.宽度 ＝ 到整数 (到数值 (读配置项 (取运行目录 () ＋ “sys.ini”, “表格1”, “宽度”, )) ÷ 窗宽比)
高级表格1.高度 ＝ 到整数 (到数值 (读配置项 (取运行目录 () ＋ “sys.ini”, “表格1”, “高度”, )) ÷ 窗高比)
高级表格1.左边 ＝ 到整数 (到数值 (读配置项 (取运行目录 () ＋ “sys.ini”, “表格1”, “左边”, )) ÷ 窗宽比)
高级表格1.顶边 ＝ 到整数 (到数值 (读配置项 (取运行目录 () ＋ “sys.ini”, “表格1”, “顶边”, )) ÷ 窗高比)
按钮1.宽度 ＝ 到数值 (读配置项 (取运行目录 () ＋ “sys.ini”, “按钮1”, “宽度”, )) ÷ 窗宽比
按钮1.高度 ＝ 到数值 (读配置项 (取运行目录 () ＋ “sys.ini”, “按钮1”, “高度”, )) ÷ 窗宽比
按钮1.左边 ＝ 到数值 (读配置项 (取运行目录 () ＋ “sys.ini”, “按钮1”, “左边”, )) ÷ 窗宽比
按钮1.顶边 ＝ 到数值 (读配置项 (取运行目录 () ＋ “sys.ini”, “按钮1”, “顶边”, )) ÷ 窗宽比

.子程序 __启动窗口_创建完毕

写配置项 (取运行目录 () ＋ “sys.ini”, “主窗口”, “宽度”, 到文本 (_启动窗口.宽度))
写配置项 (取运行目录 () ＋ “sys.ini”, “主窗口”, “高度”, 到文本 (_启动窗口.高度))
写配置项 (取运行目录 () ＋ “sys.ini”, “表格1”, “宽度”, 到文本 (高级表格1.宽度))
写配置项 (取运行目录 () ＋ “sys.ini”, “表格1”, “高度”, 到文本 (高级表格1.高度))
写配置项 (取运行目录 () ＋ “sys.ini”, “表格1”, “左边”, 到文本 (高级表格1.左边))
写配置项 (取运行目录 () ＋ “sys.ini”, “表格1”, “顶边”, 到文本 (高级表格1.顶边))
写配置项 (取运行目录 () ＋ “sys.ini”, “按钮1”, “宽度”, 到文本 (按钮1.宽度))
写配置项 (取运行目录 () ＋ “sys.ini”, “按钮1”, “高度”, 到文本 (按钮1.高度))
写配置项 (取运行目录 () ＋ “sys.ini”, “按钮1”, “左边”, 到文本 (按钮1.左边))
写配置项 (取运行目录 () ＋ “sys.ini”, “按钮1”, “顶边”, 到文本 (按钮1.顶边))

@鄞州四通电脑