E4A用面板+时钟+标签实现垂直滚动标签源码
已有 422 次阅读2018-12-25 18:04
|个人分类:简单例子|
垂直滚动标签
事件 主窗口.创建完毕()
面板1.添加组件(标签1)
面板1.添加组件(标签2)
标签1.顶边=0
标签2.顶边=标签1.高度
时钟1.时钟周期=10
结束 事件
事件 时钟1.周期事件()
标签1.顶边=标签1.顶边-1
标签2.顶边=标签2.顶边-1
如果 标签1.顶边= 0 - 标签1.高度 则
时钟1.时钟周期=0
时钟2.时钟周期=2000
否则如果 标签2.顶边= 0 - 标签1.高度 则
时钟1.时钟周期=0
时钟2.时钟周期=2000
结束 如果
结束 事件
事件 时钟2.周期事件()
如果 标签1.顶边= 0 则
标签2.顶边=标签1.高度
时钟1.时钟周期=10
否则如果 标签2.顶边=0 则
标签1.顶边=标签2.高度
时钟1.时钟周期=10
结束 如果
结束 事件