启动窗口靠边隐藏的源码

.版本 2

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

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

时钟1.时钟周期 ＝ 10

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

.如果 (顶边 ≤ 0)
    总在最前 ＝ 真
.否则
    总在最前 ＝ 假
.如果结束
.如果 (左边 ≤ 0)
    总在最前 ＝ 真
.否则
    总在最前 ＝ 假
.如果结束
.如果 (取屏幕宽度 () － 左边 － 宽度 ≤ 0)
    总在最前 ＝ 真
.否则
    总在最前 ＝ 假
.如果结束
.如果 (顶边 ≥ 取屏幕高度 () － 30)
    总在最前 ＝ 真
.否则
    总在最前 ＝ 假
.如果结束
.如果 (取鼠标水平位置 () ＞ 左边 － 10 且 取鼠标水平位置 () ＜ 左边 ＋ 10 ＋ 宽度 且 取鼠标垂直位置 () ＞ 顶边 － 2 且 取鼠标垂直位置 () ＜ 顶边 ＋ 10 ＋ 高度)
    .如果真 (顶边 ≤ 0)
        顶边 ＝ 0
    .如果真结束

.否则
    .如果真 (顶边 ≤ 0)
        顶边 ＝ －高度 ＋ 2
    .如果真结束

.如果结束
.如果 (取鼠标水平位置 () ＞ 左边 － 2 且 取鼠标水平位置 () ＜ 左边 ＋ 10 ＋ 宽度 且 取鼠标垂直位置 () ＞ 顶边 － 10 且 取鼠标垂直位置 () ＜ 顶边 ＋ 10 ＋ 高度)
    .如果真 (左边 ≤ 0)
        左边 ＝ 0
    .如果真结束

.否则
    .如果真 (左边 ≤ 0)
        左边 ＝ －宽度 ＋ 2
    .如果真结束

.如果结束
.如果 (取鼠标水平位置 () ＞ 左边 － 10 且 取鼠标水平位置 () ＜ 左边 ＋ 2 ＋ 宽度 且 取鼠标垂直位置 () ＞ 顶边 － 10 且 取鼠标垂直位置 () ＜ 顶边 ＋ 10 ＋ 高度)
    .如果真 (取屏幕宽度 () － 左边 － 宽度 ≤ 0)
        左边 ＝ 取屏幕宽度 () － 宽度
    .如果真结束

.否则
    .如果真 (取屏幕宽度 () － 左边 － 宽度 ≤ 0)
        左边 ＝ 取屏幕宽度 () － 2
    .如果真结束

.如果结束
.如果 (取鼠标水平位置 () ＞ 左边 － 10 且 取鼠标水平位置 () ＜ 左边 ＋ 10 ＋ 宽度 且 取鼠标垂直位置 () ＞ 顶边 － 10 且 取鼠标垂直位置 () ＜ 顶边 ＋ 高度 ＋ 32)
    .如果真 (取屏幕高度 () － 顶边 － 高度 － 30 ≤ 0)
        顶边 ＝ 取屏幕高度 () － 高度 － 30
    .如果真结束

.否则
    .如果真 (顶边 ＝ 取屏幕高度 () － 高度 － 30)
        顶边 ＝ 取屏幕高度 () － 2
    .如果真结束

.如果结束

@成长的心