易语言多彩进度条模块

易语言多彩进度条模块源码采用部分GDI功能绘制。
支持创建多个多彩进度条，同时进行。支持绑定系统进度条，无需填写各种坐标，方便。
支持任意大小的进度条，无特殊要求，本模块会自动缩放图片大小。
支持动态创建进度条控件。支持动态销毁进度条控件。

.子程序 彩色进度条_位置, 逻辑型, 公开, 移动彩色进度条，成功返回真，失败或完成返回假
.参数 彩色进度条特征码, 文本型, , 创建进度条时，返回的特征码变量
.参数 进度条, 进度条, , 创建时绑定的进度条
.参数 最大位置, 整数型, , 定义进度条的最大位置
.参数 当前位置, 整数型, , 定义进度条的当前位置
.参数 位图对象参数2, 对象, , 创建进度条时定义的对象参数2
.局部变量 彩色句柄, 文本型, , "0"
.局部变量 进度条单位, 小数型
.局部变量 图像, GP图像
.局部变量 缩略, GP图像
.局部变量 缩放, 字节集
.局部变量 当前进度, 小数型

彩色句柄 ＝ 分割文本 (彩色进度条特征码, “|”, )
.如果 (取数组成员数 (彩色句柄) ＜ 2)
返回 (假)
.否则
进度条单位 ＝ 进度条.宽度 ÷ 最大位置
当前进度 ＝ 当前位置 × 进度条单位
.如果 (当前进度 ＞ 进度条.宽度)
返回 (假)
.否则
窗口移动 (到整数 (彩色句柄 [2]), 进度条.左边, 进度条.顶边, 当前进度, 进度条.高度)
图像.创建自字节集 (#图片1)
图像.取图像缩略图 (进度条.宽度, 进度条.高度, 缩略)
缩放 ＝ 缩略.保存到字节集 (#图像格式_BMP)
处理事件 ()
动态_设置图片框图片 (到整数 (彩色句柄 [2]), 缩放, 位图对象参数2)