.版本 2
.支持库 eAPI
.支持库 EThread
.程序集 窗口程序集1
.程序集变量 bq1, 标签
.子程序 _时钟1_周期事件
标签1.文本颜色 ＝ 多项选择 (取随机数 (1, 9), #红色, #蓝色, #蓝灰, #青绿, #青蓝, #紫色, #紫红, #黑色, #品红)
标签2.文本颜色 ＝ 标签1.文本颜色
bq1.文本颜色 ＝ 标签1.文本颜色
.子程序 渐显
.局部变量 a, 整数型
.计次循环首 (255, a)
设置窗口透明度 (取窗口句柄 (), a)
延时 (1)
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
启动线程 (&渐显, , )
复制窗口组件 (标签2, bq1)
bq1.可视 ＝ 真
bq1.左边 ＝ 宽度
.子程序 渐隐
.局部变量 a, 整数型
.计次循环首 (255, a)
设置窗口透明度 (取窗口句柄 (), 255 － a)
延时 (1)
.计次循环尾 ()
结束 ()
.子程序 __启动窗口_可否被关闭, 逻辑型
启动线程 (&渐隐, , )
返回 (假)
.子程序 _时钟2_周期事件
标签1.标题 ＝ 取文本右边 (标签1.标题, 取文本长度 (标签1.标题) － 1) ＋ 取文本左边 (标签1.标题, 1)
.子程序 _时钟3_周期事件
标签2.左边 ＝ 标签2.左边 ＋ 1
bq1.左边 ＝ bq1.左边 ＋ 1
.如果真 (标签2.左边 ＝ 宽度 － 标签2.宽度)
bq1.左边 ＝ 0 － bq1.宽度
.如果真结束
.如果真 (bq1.左边 ＝ 宽度 － 标签2.宽度)
标签2.左边 ＝ 0 － 标签2.宽度
.如果真结束
.子程序 _时钟4_周期事件
.如果真 (滚动条.左边 ≤ －滚动条.宽度)
滚动条.左边 ＝ 背景条.宽度
.如果真结束
滚动条.左边 ＝ 滚动条.左边 － 1
自己做的
纯属好看
