窗口排版窗口

易语言 2021-08-02 13:05:36

窗口数组 = 取所有窗口列表 ()
.计次循环首 (取数组成员数 (窗口数组), t)
窗口类 = 取窗口类名 (到整数 (窗口数组 [t]))
标题y = 窗口_取标题 (到整数 (窗口数组 [t]))
编辑框4.加入文本 (窗口类 + “--” + 标题y + #换行符 + #换行符 + #换行符)
.如果真 (编辑框3.内容 ≠ “”)
.如果真 (窗口类 = 删首尾空 (编辑框3.内容) 且 本窗口 ≠ 到整数 (窗口数组 [t]))
d = d + 1
.如果真结束
.如果真 (窗口类 = 删首尾空 (编辑框3.内容) 且 本窗口 ≠ 到整数 (窗口数组 [t]))
k = 到整数 (编辑框1.内容)
g = 到整数 (编辑框2.内容)
.如果真 (d = 1)
窗口_置位置和大小 (到整数 (窗口数组 [t]), 2, 2, k, g)
.如果真结束
.如果真 (d = 2)
窗口_置位置和大小 (到整数 (窗口数组 [t]), 2 + k, 2, k, g)
.如果真结束
.如果真 (d = 3)
窗口_置位置和大小 (到整数 (窗口数组 [t]), 2 + k + k, 2, k, g)
.如果真结束
.如果真 (d = 4)
窗口_置位置和大小 (到整数 (窗口数组 [t]), 2, 取屏幕高度 () ÷ 2 - 14, k, g)
.如果真结束
.如果真 (d = 5)
窗口_置位置和大小 (到整数 (窗口数组 [t]), 2 + k, 取屏幕高度 () ÷ 2 - 14, k, g)
.如果真结束
.如果真 (d = 6)
窗口_置位置和大小 (到整数 (窗口数组 [t]), 2 + k + k, 取屏幕高度 () ÷ 2 - 14, k, g)
.如果真结束

.如果真结束

.如果真结束

.计次循环尾 ()