简单的字幕滚动逻辑

墨影0620 · 发表于 2018-12-8 11:29:19

本帖最后由墨影0620 于 2018-12-8 20:29 编辑

思路来源：http://www.eyuyan.la/?a=down&pid=14185

子程序名	返回值类型	公开	备注
字幕滚动			需要使用时钟调用此程序
参数名	类型	参考	可空	数组	备注
字幕组件	透明标签
父宽度	整数型				请输入父窗口/组件的宽度（用来决定组件重新滚动时位置）
加速	整数型				留空或传入0则默认为1，不进行加速。若传入负数则取其绝对值

加速＝选择 (加速＝ 0, 1, 加速)  ' 防止错误
加速＝选择 (加速＜ 0, 取绝对值 (加速), 加速)  ' 防止错误
字幕组件.左边＝字幕组件.左边－加速  ' 移动

如果真 (字幕组件.左边＜－字幕组件.宽度) ' 判断出是否要第2次循环

字幕组件.左边＝父宽度 ' 重新移动

i支持库列表	支持库注释
iext	扩展界面支持库一

之前我研究过很多字母滚动的逻辑，但是思路一直都是移动文字。
这一个思路是移动组件，感觉不错。
因为是移动组件就不需要考虑文字乱码什么的了。
优化自动调整组件宽度

子程序名	返回值类型	公开	备注
滚动字幕			需要使用时钟调用此程序,根据参数四来自动调整字幕组件的长度。
参数名	类型	参考	可空	数组	备注
字幕组件	透明标签				将此组件的左边设置为参数二可以实现重新滚动
父宽度	整数型				请输入父窗口/组件的宽度（用来决定组件重新滚动时位置）
加速	整数型				留空或传入0则默认为1，不进行加速。若传入负数则取其绝对值
字符长度	整数型				用于自动调整字幕组件的长度，留空默认为6

变量名	类型	静态	数组	备注
长度	整数型

加速＝选择 (加速＝ 0, 1, 加速) ' 防止错误
加速＝选择 (加速＜ 0, 取绝对值 (加速), 加速) ' 防止错误
字符长度＝选择 (是否为空 (字符长度), 6, 字符长度)
长度＝取文本长度 (字幕组件.标题) × 字符长度

如果真 (字幕组件.宽度 ≠ 长度)

字幕组件.宽度＝长度
字幕组件.左边＝字幕组件.左边－加速 ' 移动

如果真 (字幕组件.左边＜－字幕组件.宽度) ' 判断出是否要第2次循环

字幕组件.左边＝父宽度 ' 重新移动

i支持库列表	支持库注释
iext	扩展界面支持库一

汉族 · 发表于 2018-12-8 20:32:23

https://bbs.125.la/thread-14279501-1-1.html 可以参考这个东西可以取文本宽度高度

捷斯劫 · 发表于 2018-12-9 23:25:25

墨影0620 · 发表于 2018-12-8 20:34:22

汉族发表于 2018-12-8 12:20
台兄这个问题都研究好久了，其实各种方案都有优点其实移动位置到还费CPU占用率真的

可以研究 ...

顺便问一下，相对于动态窗口，这个吃cpu如何？

墨影0620 · 发表于 2018-12-8 20:26:42

汉族发表于 2018-12-8 12:20
台兄这个问题都研究好久了，其实各种方案都有优点其实移动位置到还费CPU占用率真的

可以研究 ...

惊现大神！

Nice回忆 · 发表于 2018-12-8 13:40:56

一个组件显示文字，一个组件遮蔽它，然后移动任意一个组件“滚动”

汉族 · 发表于 2018-12-8 12:20:24

台兄这个问题都研究好久了，其实各种方案都有优点其实移动位置到还费CPU占用率真的

可以研究上下滚动这个不错

		自动登录	找回密码
密码			注册

[易语言纯源码] 简单的字幕滚动逻辑