软件窗口靠边自动隐藏模块源码 支持顶部及左右

.子程序 窗口到边吸收, , 公开, 有 上  左  右     要用  时钟   如；时钟1.时钟周期=50  
.参数 窗口, 窗口
.局部变量 是否激活, 逻辑型

.如果真 (窗口.位置 ≠ 3 且 窗口.位置 ≠ 2)
    .如果 (取鼠标水平位置 () ≥ 窗口.左边 且 取鼠标水平位置 () ≤ 窗口.左边 ＋ 窗口.宽度 且 取鼠标垂直位置 () ≥ 窗口.顶边 且 取鼠标垂直位置 () ≤ 窗口.顶边 ＋ 窗口.高度)
        .如果真 (窗口.顶边 ≤ 8)  ' 上吸附
            窗口.顶边 ＝ 0
        .如果真结束
        .如果真 (窗口.左边 ≤ 8)  ' 左吸附
            窗口.左边 ＝ 0
        .如果真结束
        .如果真 (窗口.左边 ≥ 取屏幕宽度 () － 窗口.宽度 － 8)  ' 右吸附
            窗口.左边 ＝ 取屏幕宽度 () － 窗口.宽度
        .如果真结束
        是否激活 ＝ 真

    .否则
        .如果 (窗口.顶边 ≤ 0 且 窗口.顶边 ＞ －窗口.高度 ＋ 2)  ' 上收缩
            窗口.顶边 ＝ 窗口.顶边 － 25
            返回 ()
        .否则
            .如果真 (窗口.顶边 ＜ 0)
                窗口.顶边 ＝ －窗口.高度 ＋ 2
                返回 ()