模块名称：窗口吸附模块
作者：塔那修斯
版本：1.0
完美的窗口吸附模块
@备注:
本来想做成类的
无语类里面用取址符号“&”怎么搞也搞不成
注意！！！
本模块是为标准窗口设计的
若用了其他控件替代标题栏，拖动时请用“发送消息(161,2,0)”
若主窗口的标题用控件来替代，必须要在其“鼠标左键放开”事件中调用“主窗口左键放开事件_”
塔那修斯 于2011.1.24
------------------------------
.版本 2
.子程序 加入窗口, 逻辑型, 公开, 注意：开始吸附后，不能加入新窗口，最多9个窗口
.参数 该窗口的句柄, 整数型
.参数 最小宽度, 整数型, 可空, 在拉伸过程中同时限制住尺寸，若不需要，可留空或设为-1
.参数 最小高度, 整数型, 可空
.参数 z大宽度, 整数型, 可空
.参数 z大高度, 整数型, 可空
.子程序 开始吸附, 逻辑型, 公开, 注意：开始吸附后，窗口不能被销毁，也不能加入新窗口
.参数 是否有主窗口, 逻辑型, 可空, 默认真。主窗口为第一个加入的窗口。当其他窗口吸在主窗口上时，会随着主窗口一起移动。若此参数为假，则认为所有窗口都是独立的。
.参数 是否检测屏幕边缘, 逻辑型, 可空, 默认真。此参数决定是否吸住屏幕边缘
.子程序 取窗口数量, 整数型, 公开
.子程序 取指定窗口句柄, 整数型, 公开
.参数 窗口号, 整数型
.子程序 删除窗口, 逻辑型, 公开, 注意：开始吸附后，不能删除窗口
.参数 窗口号, 整数型, 可空, 第一个加入的为1，以此类推，若给0或留空，则删除全部
.子程序 设置窗口活动性, , 公开, 不活动的窗口在吸附时直接被无视。请在窗口的显示/隐藏事件里调用
.参数 窗口号, 整数型
.参数 活动性, 逻辑型
.子程序 设置临界值, , 公开, 设定当窗口靠近多少像素时吸附。若不设置，初始值为20
.参数 新值, 整数型, , 单位为像素
.子程序 停止吸附, 逻辑型, 公开
.子程序 重新钩上, , 公开, 由于某些原因导致吸附失效时，调用此函数
.参数 窗口号, 整数型, , 0表示全部
.子程序 主窗口左键放开事件_, , 公开
19103158620[下载].rar
|
收藏
