易语言复制窗口组件

易语言复制窗口组件

@1204927751

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 图片框, 图片框
.程序集变量 标签, 标签

.子程序 __启动窗口_创建完毕
.局部变量 n3, 整数型

.计次循环首 (20, n3)
    复制窗口组件 (图片框1, 图片框)
    图片框.标记 ＝ 到文本 (n3)
    复制窗口组件 (标签1, 标签)
    标签.标记 ＝ 到文本 (20 ＋ n3)
.计次循环尾 ()
载入 (窗口1, _启动窗口, 假)

.子程序 _图片框1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

子程序1 ()

.子程序 _标签1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

子程序3 ()

.子程序 子程序1

图片框 ＝ 取事件组件 ()
图片框 ＝ 取标记组件 (到数值 (图片框.标记))
窗口1.移动 (_启动窗口.左边 ＋ 图片框.左边 ＋ 10, _启动窗口.顶边 ＋ 图片框.顶边 ＋ 32 ＋ 图片框_底部2.顶边, _启动窗口.图片框1.宽度, _启动窗口.图片框1.高度)
窗口1.可视 ＝ 真
标签 ＝ 标签.取标记组件 (到数值 (图片框.标记) ＋ 20)
标签.背景颜色 ＝ #嫩绿
标签.文本颜色 ＝ #白色

.子程序 子程序3

标签 ＝ 取事件组件 ()
标签 ＝ 取标记组件 (到数值 (标签.标记))
图片框 ＝ 标签.取标记组件 (到数值 (标签.标记) － 20)
窗口1.移动 (_启动窗口.左边 ＋ 图片框.左边 ＋ 10, _启动窗口.顶边 ＋ 图片框.顶边 ＋ 32 ＋ 图片框_底部2.顶边, _启动窗口.图片框1.宽度, _启动窗口.图片框1.高度)
窗口1.可视 ＝ 真
标签.背景颜色 ＝ #嫩绿
标签.文本颜色 ＝ #白色

.子程序 __启动窗口_位置被改变

窗口1.可视 ＝ 假

.子程序 __启动窗口_尺寸被改变

图片框_底部.移动 (0, 0, _启动窗口.宽度, _启动窗口.高度)
图片框_底部2.宽度 ＝ 图片框_底部.宽度
调试输出 (“正在尺寸被改变”)
子程序2 ()

.子程序 _图片框_底部2_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (窗口1.可视 ＝ 真)
    标签.背景颜色 ＝ #白色
    标签.文本颜色 ＝ #黑色
    窗口1.可视 ＝ 假
.如果真结束


.子程序 _按钮1_被单击

子程序2 ()

.子程序 子程序2
.局部变量 y, 整数型
.局部变量 x, 整数型
.局部变量 电视剧数量, 整数型
.局部变量 几列, 整数型
.局部变量 几排, 整数型

.计次循环首 (20, y)
    .计次循环首 (到整数 (图片框_底部2.宽度) ÷ (图片框1.宽度 ＋ 10), x)
        电视剧数量 ＝ 电视剧数量 ＋ 1
        图片框 ＝ 取标记组件 (电视剧数量)
        图片框.顶边 ＝ 图片框1.顶边
        图片框.移动 (图片框1.左边 × (图片框1.宽度 ＋ 10) × (x － 1) ＋ 10, 图片框1.顶边 × y ＋ (图片框1.高度 ＋ 10 ＋ 标签1.高度) × (y － 1), 图片框1.宽度, 图片框1.高度)
        图片框.可视 ＝ 真
        标签 ＝ 取标记组件 (20 ＋ 电视剧数量)
        标签.移动 (图片框.左边, 图片框.顶边 ＋ 图片框.高度, 标签1.宽度, 标签1.高度)
        标签.标题 ＝ “ 花千骨” ＋ #换行符 ＋ “ 全集”
        标签.文本颜色 ＝ 标签1.文本颜色
        标签.字体.字体大小 ＝ 标签1.字体.字体大小
        标签.背景颜色 ＝ 标签1.背景颜色
        标签.字体.字体名称 ＝ 标签1.字体.字体名称
        标签.可视 ＝ 真
        .如果真 (电视剧数量 ＝ 20)
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    .如果真 (电视剧数量 ＝ 20)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()

图片框_底部2.高度 ＝ y × (图片框1.高度 ＋ 标签1.高度 ＋ 10) ＋ y ＋ 1
调试输出 (电视剧数量)

调试输出 (y － 1)
调试输出 (图片框1.高度 ＋ 标签1.高度)
调试输出 (图片框_底部2.高度)


.子程序 子程序4

图片框.图片 ＝ #图片1

.子程序 _图片框_底部2_滚轮被滚动, 逻辑型
.参数 滚动距离, 整数型
.参数 功能键状态, 整数型

图片框_底部2.顶边 ＝ 图片框_底部2.顶边 ＋ 滚动距离 × 20

.子程序 __启动窗口_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

调试输出 (“窗口调整完毕，请指示”)

.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

调试输出 (图片框.标记)
调试输出 (“阿阿阿”)

.子程序 _图片框1_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型