中粮桌面显屏易语言源码

中粮桌面显屏易语言源码

.版本 2
.支持库 iext

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

' 本源码来自三叶资源网(www.sanye.cx)
_启动窗口.可视 ＝ 假
检查更新 ()
载入 (窗口1, _启动窗口, 假)
窗口1.可视 ＝ 假
.如果真 (文件是否存在 (取运行目录 () ＋ “Unpack.ini”) ＝ 假)
    写到文件 (取运行目录 () ＋ “Unpack.ini”, #Unpack)
    信息框 (“配置文件已更新，请重新运行软件！”, 0, “提示”)
    运行 (取运行目录 () ＋ “” ＋ 取执行文件名 (), 假, )
.如果真结束
配置加载 ()
时钟1.时钟周期 ＝ 周期时间

.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #F8键)
    载入 (窗口2, _启动窗口, 真)
.如果真结束
' 本源码来自三叶资源网(www.sanye.cx)

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

.如果 (透明标签1.左边 ＋ 透明标签1.宽度 ＝ 200)
    透明标签1.左边 ＝ _启动窗口.宽度
    x ＝ x ＋ 1
.否则
    透明标签1.左边 ＝ 透明标签1.左边 － 5
.如果结束
.判断开始 (x ＞ 4 或 x ＝ 0)
    x ＝ 1
.默认

.判断结束
透明标签1.标题 ＝ 多项选择 (x, 读配置项 (取运行目录 () ＋ “Unpack.ini”, “滚动文本”, “文本0”, ), 读配置项 (取运行目录 () ＋ “Unpack.ini”, “滚动文本”, “文本1”, ), 读配置项 (取运行目录 () ＋ “Unpack.ini”, “滚动文本”, “文本2”, ), 读配置项 (取运行目录 () ＋ “Unpack.ini”, “滚动文本”, “文本3”, ))
透明标签1.文本颜色 ＝ 到整数 (多项选择 (x, 读配置项 (取运行目录 () ＋ “Unpack.ini”, “颜色”, “文本颜色”, ), 读配置项 (取运行目录 () ＋ “Unpack.ini”, “颜色”, “文本颜色1”, ), 读配置项 (取运行目录 () ＋ “Unpack.ini”, “颜色”, “文本颜色2”, ), 读配置项 (取运行目录 () ＋ “Unpack.ini”, “颜色”, “文本颜色3”, )))
透明标签1.宽度 ＝ 取文本长度 (透明标签1.标题) × 100

.子程序 配置加载

底色 ＝ 到整数 (读配置项 (取运行目录 () ＋ “Unpack.ini”, “颜色”, “背景颜色”, ))
' 透明标签1.文本颜色 ＝ 到整数 (读配置项 (取运行目录 () ＋ “Unpack.ini”, “颜色”, “文本颜色”, ))
周期时间 ＝ 到整数 (读配置项 (取运行目录 () ＋ “Unpack.ini”, “滚动文本”, “速度”, “50”))
画板1.画板背景色 ＝ 到整数 (读配置项 (取运行目录 () ＋ “Unpack.ini”, “颜色”, “背景颜色”, ))
_启动窗口.顶边 ＝ 0
_启动窗口.左边 ＝ 0
_启动窗口.宽度 ＝ 取屏幕宽度 ()
_启动窗口.高度 ＝ 取屏幕高度 ()
画板1.顶边 ＝ 0
画板1.左边 ＝ 0
画板1.宽度 ＝ 取屏幕宽度 ()
画板1.高度 ＝ 取屏幕高度 () ÷ 2.8
透明标签1.顶边 ＝ 取屏幕高度 () ÷ 3
透明标签1.左边 ＝ 取屏幕宽度 ()
透明标签1.宽度 ＝ 取屏幕宽度 ()

@易语言学习论坛