易语言程序栏窗口标题滚动+闪动

.版本 2
.支持库 OPenGL

.程序集 窗口程序集1

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

.判断开始 (是否为双字节字符 (_启动窗口.标题, 0) ＝ 真)
    _启动窗口.标题 ＝ 取文本右边 (_启动窗口.标题, 取文本长度 (_启动窗口.标题) － 2) ＋ 取文本左边 (_启动窗口.标题, 2)
.默认
    _启动窗口.标题 ＝ 取文本右边 (_启动窗口.标题, 取文本长度 (_启动窗口.标题) － 1) ＋ 取文本左边 (_启动窗口.标题, 1)
.判断结束


.子程序 _按钮1_被单击

.判断开始 (时钟1.时钟周期 ＝ 0)
    时钟1.时钟周期 ＝ 300
    _启动窗口.标题 ＝ 编辑框1.内容 ＋ “   ”
    按钮1.标题 ＝ “停止”
.默认
    时钟1.时钟周期 ＝ 0
    _启动窗口.标题 ＝ 编辑框1.内容
    按钮1.标题 ＝ “滚动”
.判断结束


.子程序 _按钮2_被单击

.判断开始 (时钟2.时钟周期 ＝ 0)
    时钟2.时钟周期 ＝ 500
    按钮2.标题 ＝ “停止”

.默认
    时钟2.时钟周期 ＝ 0
    按钮2.标题 ＝ “闪动”
.判断结束


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

.判断开始 (标题 ＝ 编辑框1.内容)
    标题 ＝ “”
.默认

    标题 ＝ 编辑框1.内容
.判断结束


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

@浅浅`