优秀的ExDui控件扩展模块

.子程序 初始化, 整数型, 公开, 返回 组件句柄
.参数 hWnd, 整数型
.参数 矩形, RectF
.参数 组件类型, 整数型
.参数 可视, 逻辑型, 可空, 默认为假
.参数 可停留焦点, 逻辑型, 可空, 默认为真
.参数 鼠标指针, 整数型, 可空, 默认为:#鼠标指针_ 开头的常量.如欲设置自定义指针,请调用方法:鼠标指针()
.参数 动画周期, 整数型, 可空, 默认为0,0即关闭动画效果,大于0则为每一帧动画所间隔时间
.参数 动画帧数, 整数型, 可空, 默认为0.动画总帧数
.参数 动画类型, 整数型, 可空, 默认为:#动画类型_默认(渐显渐隐)

.子程序 图形_画图标文本, , 公开
.参数 图形指针, 整数型, , Graphics
.参数 区域矩形, RectF, , RectF
.参数 图像指针, 整数型, , hImage
.参数 图标位置, 整数型, 可空, 常量:#图标位置_ ,默认为:#图标位置_居左
.参数 文本内容, 字节集, , String(Unicode),使用函数:A2W() 转换
.参数 文本颜色, 整数型, , argb颜色
.参数 字体指针, 整数型, , hFont
.参数 文本格式指针, 整数型, 可空, StringFormat
.参数 文本效果, 整数型, 可空, 常量:#文本效果_
.参数 阴影色, 整数型, 可空, argb颜色,参数 文本效果 设定后所渲染的阴影颜色.
.参数 图标与文本间隔, 整数型, 可空, 默认为:2(像素)
.参数 偏移像素X, 整数型, 可空, 图标与文本整体X轴偏移像素
.参数 偏移像素Y, 整数型, 可空, 图标与文本整体Y轴偏移像素
.局部变量 ico, 整数型
.局部变量 s_rcf, RectF
.局部变量 i_rcf, RectF

图形_测量文本矩形 (图形指针, 文本内容, 字体指针, 文本格式指针, , s_rcf)
Ex_CalcRcf_ImgStr (图像指针, 图标位置, 区域矩形, s_rcf, 偏移像素X, 偏移像素Y, 图标与文本间隔, s_rcf, i_rcf)
图形_绘图 (图形指针, 图像指针, i_rcf, 真)
.' 如果真 (s_rcf.Width ＞ i_rcf.Width)
' s_rcf.Width ＝ i_rcf.Width
.如果真结束
s_rcf.left ＝ i_rcf.left ＋ i_rcf.Width ÷ 2 － s_rcf.Width ÷ 2
图形_画文本 (图形指针, s_rcf, 文本内容, 字体指针, 文本颜色, 文本格式指针, 文本效果, 阴影色)