Ex_DirectUI 4.1简易模块更新1.6整合版

这次分成两个版本整合版
把0.LibExDui.Helper和0.YHan.Helper两个模块整合进去，使用时只需要加载“”Ex_DUI易模块 - 整合版“”就可以了。

独立版这个就跟原来一样需要0.LibExDui.Helper和0.YHan.Helper两个模块
此版本只是做细节改进，没加入什么新东西。

.子程序 创建, 整数型, 公开, 返回控件句柄，作者：石头剪子没有布
.参数 容器句柄, 整数型
.参数 左边, 整数型
.参数 顶边, 整数型
.参数 宽度, 整数型
.参数 高度, 整数型, , 这个高度决定了圆滑块的高度
.参数 控件ID, 整数型, 可空, 控件ID
.参数 当前位置, 整数型, 可空, 默认为0
.参数 第二进度位置, 整数型, 可空, 需要指定第二进度颜色,否则无效果,第二进度位置从滑块圆的位置开始,不是从0
.参数 最小位置, 整数型, 可空, 最小位置现在还有点问题,只能为0,有能力的自己修改吧
.参数 最大位置, 整数型, 可空, 默认为100,且最小值为100,最小位置大于最大位置的时候,最小位置为0,最大位置为100
.参数 行改变值, 整数型, 可空, 默认为-1,如果为-1 则鼠标点击到哪里就跳到那里,否则点击一次滚动对应值,如果为0则不滚动
.参数 滑块条背景颜色, 整数型, 可空, 整条的颜色,默认为白色
.参数 滑块条走过颜色, 整数型, 可空, 在圆左边范围颜色,默认不创建
.参数 第二进度颜色, 整数型, 可空, 在圆的右边范围的颜色,默认不创建,需要指定第二进度位置
.参数 圆正常颜色, 整数型, 可空, ARGB颜色,默认为 白色
.参数 圆点燃颜色, 整数型, 可空, ARGB颜色,默认为 芙红
.参数 圆按下颜色, 整数型, 可空, ARGB颜色,默认为 蓝色
.参数 位置改变事件, 整数型, 可空, 位置改变(hObj,nPos,x,y,百分比)
.参数 鼠标按下弹起, 整数型, 可空, 按下弹起(hObj,uMsg,nPos)
.局部变量 pMem, 整数型
.局部变量 pClassName, 整数型, 静态, , 整个程序运行期间只需要注册一次
.局部变量 x, 整数型

.如果真 (pClassName ＝ 0)
pClassName ＝ _msctls_trackbar_register ()
.如果真结束
m_hObj ＝ Ex_ObjCreateEx (-1, pClassName, 0, -1, 左边, 顶边, 宽度, 高度, 容器句柄, 控件ID, -1, 0, 0, 0)
.如果真 (m_hObj ＝ 0)
返回 (0)
.如果真结束
.如果真 (是否为空 (行改变值))
行改变值 ＝ -1
.如果真结束
pMem ＝ LocalAlloc (64, #属性滑块条_尺寸)
最小位置 ＝ 0
.如果真 (最小位置 ＜ 0)
最小位置 ＝ 0
.如果真结束
.如果真 (最大位置 ≤ 最小位置)
最大位置 ＝ 最小位置 × 2
.如果真结束
__set (pMem, #属性滑块条_最小位置, 最小位置)
__set (pMem, #属性滑块条_最大位置, 最大位置)
__set (pMem, #属性滑块条_行改变值, 行改变值)
__set (pMem, #属性滑块条_宽度, 宽度)
__set (pMem, #属性滑块条_高度, 高度)
__set (pMem, #属性滑块条_当前位置, 当前位置)
__set (pMem, #属性滑块条_第二进度位置, 第二进度位置)
__set (pMem, #属性滑块条_位置改变事件, 位置改变事件)
__set (pMem, #属性滑块条_按下弹起, 鼠标按下弹起)
Ex_ObjSetLong (m_hObj, #控件滑块条_滑块条信息, pMem)
.如果真 (滑块条背景颜色 ＝ 0)
滑块条背景颜色 ＝ RGB2ARGB (#白色, 255)
.如果真结束
__set (pMem, #属性滑块条_一般背景, _brush_create (滑块条背景颜色))

.如果真 (取反 (是否为空 (滑块条走过颜色)))
__set (pMem, #属性滑块条_第一进度, _brush_create (滑块条走过颜色))
.如果真结束

.如果真 (取反 (是否为空 (第二进度颜色)))
__set (pMem, #属性滑块条_第二进度, _brush_create (第二进度颜色))
.如果真结束

x ＝ _msctls_trackbar_pos2pt (m_hObj, 当前位置)
__set (pMem, #属性滑块条_滑块圆位置, x)
__set (pMem, #属性滑块条_滑块圆位置 ＋ 4, 0)
__set (pMem, #属性滑块条_滑块圆位置 ＋ 8, x ＋ 高度)
__set (pMem, #属性滑块条_滑块圆位置 ＋ 12, 高度)
__set (pMem, #属性滑块条_滑块圆宽高, 高度)
.如果真 (是否为空 (圆正常颜色))
圆正常颜色 ＝ RGB2ARGB (#白色, 255)
.如果真结束
.如果真 (是否为空 (圆点燃颜色))
圆点燃颜色 ＝ RGB2ARGB (#芙红, 255)
.如果真结束
.如果真 (是否为空 (圆按下颜色))
圆按下颜色 ＝ RGB2ARGB (#蓝色, 255)
.如果真结束
__set (pMem, #属性滑块条_滑块圆正常, _brush_create (圆正常颜色))
__set (pMem, #属性滑块条_滑块圆点燃, _brush_create (圆点燃颜色))
__set (pMem, #属性滑块条_滑块圆按下, _brush_create (圆按下颜色))

.子程序 置位置, 逻辑型, 公开, 为空不设置
.参数 位置, 整数型, 可空, 指定了圆滑块的位置
.参数 第二位置, 整数型, 可空, 从圆往后的位置,起始值是设置的最小值
.局部变量 pMem, 整数型
.局部变量 x, 整数型

.如果真 (m_hObj ＝ 0)
返回 (假)
.如果真结束
.如果真 (是否为空 (第二位置) 且 是否为空 (位置))
返回 (假)
.如果真结束
pMem ＝ Ex_ObjGetLong (m_hObj, #控件滑块条_滑块条信息)
.如果真 (pMem ＜ 0)
返回 (假)
.如果真结束
.如果真 (取反 (是否为空 (位置)))
__set (pMem, #属性滑块条_当前位置, 位置)
x ＝ _msctls_trackbar_pos2pt (m_hObj, 位置)
__set (pMem, #属性滑块条_滑块圆位置, x)
__set (pMem, #属性滑块条_滑块圆位置 ＋ 8, x ＋ __get (pMem, #属性滑块条_滑块圆位置 ＋ 12)) ' 设置右边,这里的右边是左边+高度
.如果真结束
.如果真 (取反 (是否为空 (第二位置)))
__set (pMem, #属性滑块条_第二进度位置, 第二位置)