易语言动态提示组件
.版本 2
.支持库 eAPI
.支持库 iext
.程序集 窗口程序集1, , , ' 本源码来自三叶资源网(www.sanye.cx)
.子程序 _时钟1_周期事件
.判断开始 (取鼠标所在窗口句柄 () = 按钮1.取窗口句柄 ())
标签1.背景颜色 = #蓝色
标签_提示.移动 (取鼠标水平位置 () - 左边, 取鼠标垂直位置 () - 顶边, , )
标签_提示.可视 = 真
标签_提示.标题 = “按钮”
.默认
标签1.背景颜色 = #默认色
.如果真 (取鼠标所在窗口句柄 () = 取窗口句柄 ())
标签_提示.可视 = 假
.如果真结束
.判断结束
.判断开始 (取鼠标所在窗口句柄 () = 透明标签2.取窗口句柄 ())
透明标签1.文本颜色 = #红色
标签_提示.移动 (取鼠标水平位置 () - 左边, 取鼠标垂直位置 () - 顶边, , )
标签_提示.可视 = 真
标签_提示.标题 = “透明标签”
.默认
透明标签1.文本颜色 = #黑色
.如果真 (取鼠标所在窗口句柄 () = 取窗口句柄 ())
标签_提示.可视 = 假
.如果真结束
.判断结束
' 本源码来自三叶资源网(www.sanye.cx)
.判断开始 (取鼠标所在窗口句柄 () = 编辑框1.取窗口句柄 ())
标签2.背景颜色 = #绿色
标签_提示.移动 (取鼠标水平位置 () - 左边, 取鼠标垂直位置 () - 顶边, , )
标签_提示.可视 = 真
标签_提示.标题 = “编辑框”
.默认
标签2.背景颜色 = #默认色
.如果真 (取鼠标所在窗口句柄 () = 取窗口句柄 ())
标签_提示.可视 = 假
.如果真结束
.判断结束
.判断开始 (取鼠标所在窗口句柄 () = 选择框1.取窗口句柄 ())
标签3.背景颜色 = #黄色
标签_提示.移动 (取鼠标水平位置 () - 左边, 取鼠标垂直位置 () - 顶边, , )
标签_提示.可视 = 真
标签_提示.标题 = “选择框”
.默认
标签3.背景颜色 = #默认色
.如果真 (取鼠标所在窗口句柄 () = 取窗口句柄 ())
标签_提示.可视 = 假
.如果真结束
.判断结束
.判断开始 (取鼠标所在窗口句柄 () = 单选框1.取窗口句柄 ())
标签4.背景颜色 = #红色
标签_提示.移动 (取鼠标水平位置 () - 左边, 取鼠标垂直位置 () - 顶边, , )
标签_提示.可视 = 真
标签_提示.标题 = “单选框”
.默认
标签4.背景颜色 = #默认色
.如果真 (取鼠标所在窗口句柄 () = 取窗口句柄 ())
标签_提示.可视 = 假
.如果真结束
.判断结束
.子程序 __启动窗口_创建完毕
' 本源码来自三叶资源网(www.sanye.cx)