程序置顶隐藏易语言源码

程序置顶隐藏易语言源码

@1242876632

.版本 2

.程序集 窗口程序集操作窗口

.子程序 置顶部隐藏, , , 隐藏模式 1 缩小 隐藏模式 2 隐藏窗口
.参数 操作窗口, 窗口
.参数 还原高度, 整数型, , 用作还原窗口高度
.参数 窗口边框类型, 整数型, , 用作还原窗口边框
.参数 隐藏模式, 整数型, 可空

.如果真 (隐藏模式 ＝ 0)
    隐藏模式 ＝ 1
.如果真结束
.如果真 (操作窗口.顶边 ＝ 0)
    .如果真 (取鼠标垂直位置 () ＞ 操作窗口.高度 或 取鼠标水平位置 () ＜ 操作窗口.左边 或 取鼠标水平位置 () ＞ 操作窗口.左边 ＋ 操作窗口.宽度)
        操作窗口.边框 ＝ 0
        .如果真 (隐藏模式 ＝ 1)
            操作窗口.高度 ＝ 2
        .如果真结束
        .如果真 (隐藏模式 ＝ 2)
            操作窗口.可视 ＝ 假
        .如果真结束
        操作窗口.总在最前 ＝ 真
    .如果真结束

    .如果真 (取鼠标垂直位置 () ＜ 操作窗口.高度 且 取鼠标水平位置 () ≥ 操作窗口.左边 且 取鼠标水平位置 () ≤ 操作窗口.左边 ＋ 操作窗口.宽度 且 取鼠标垂直位置 () ＝ 0)
        .如果真 (隐藏模式 ＝ 1)
            操作窗口.高度 ＝ 还原高度
        .如果真结束
        .如果真 (隐藏模式 ＝ 2)
            操作窗口.可视 ＝ 真
        .如果真结束
        操作窗口.边框 ＝ 窗口边框类型
        操作窗口.总在最前 ＝ 假
    .如果真结束

.如果真结束


.子程序 _时钟1_周期事件

置顶部隐藏 (_启动窗口, 250, 2, 2)

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

时钟1.时钟周期 ＝ 100