创建文本同行编辑框支持自适应窗口

易语言 2020-03-17 17:20:40

创建文本同行编辑框支持自适应窗口

重定义数组 (复制编辑框组件, 假, 取数组成员数 (信息行))
父窗口宽 = _启动窗口.取用户区宽度 ()
父组件编辑框.可视 = 假
行个数 = 取整 (父窗口宽 ÷ (编辑框宽 + 行间距))
.计次循环首 (取数组成员数 (信息行), i)
复制窗口组件 (父组件编辑框, 复制编辑框组件 [i])
事件转移 (复制编辑框组件 [i], 父组件编辑框)
复制编辑框组件 [i].宽度 = 编辑框宽
复制编辑框组件 [i].高度 = 编辑框高
组件序 = i
组件顶边 = 开始顶边
.判断循环首 (组件序 > 行个数)
组件序 = 组件序 - 行个数
组件顶边 = 组件顶边 + 复制编辑框组件 [i].高度 + 列间距
.判断循环尾 ()
组件左边 = 开始左边 + (复制编辑框组件 [i].宽度 + 行间距) × (组件序 - 1)
复制编辑框组件 [i].左边 = 组件左边
复制编辑框组件 [i].顶边 = 组件顶边
复制编辑框组件 [i].可视 = 真
复制编辑框组件 [i].内容 = 信息行 [i]
复制编辑框组件 [i].标记 = 到文本 (i)
.计次循环尾 ()