Ex_Dui写的轮播图缓动例子

补充一个Ex_Dui扩展类实现例子。

.判断开始 (uMsg ＝ #事件_绘画)
PaintObj (hObj)
.判断 (uMsg ＝ #事件_创建)
.计次循环首 (取数组成员数 (集_图片), i)
集_图片指针 [i] ＝ 图像_创建自字节集 (集_图片 [i])
.计次循环尾 ()
集_字体指针 ＝ 字体_创建 (“微软雅黑”, 12, #字体风格_普通)
集_文本格式指针 ＝ 文本格式_创建 ()
文本格式_置对齐 (集_文本格式指针, #文本对齐_左对齐)
文本格式_置行对齐 (集_文本格式指针, #文本对齐_居中)
主图宽 ＝ 宽度 () － 120 × 2
主图高 ＝ 高度 ()
副图宽 ＝ 主图宽 × 0.856
副图高 ＝ 主图高 × 0.856
调试输出 (主图宽, 主图高)
调试输出 (副图宽, 副图高)
集_图片矩形 [1] ＝ MakeRCF (0, (高度 () － 副图高) ÷ 2, 副图宽, 副图高)
集_图片矩形 [2] ＝ MakeRCF (宽度 () － 副图宽, (高度 () － 副图高) ÷ 2, 副图宽, 副图高)
集_图片矩形 [3] ＝ MakeRCF ((宽度 () － 主图宽) ÷ 2, 0, 主图宽, 主图高)
调试输出 (集_图片矩形 [2].left, 集_图片矩形 [2].top)
.判断 (uMsg ＝ #事件_销毁)
.计次循环首 (取数组成员数 (集_图片), i)
图像_销毁 (集_图片指针 [i])
.计次循环尾 ()
字体_销毁 (集_字体指针)
文本格式_销毁 (集_文本格式指针)