可停靠分隔条模块源码 自绘配色样式自由

自绘配色样式自由废话不多说直接开源，之前版本的解释在模块发布栏含例子和源码调试用。

' CaptionH ＝ GetSystemMetrics (#SM_CYCAPTION) ' 标题栏宽
' BodyW ＝ (RECT1.Right － RECT1.Left － W) ÷ 2 ' 边界宽
.如果真 (left ＜ 0)
left ＝ 0
.如果真结束
.如果真 (top ＜ 0)
top ＝ 0
.如果真结束
.如果真 (left ＋ 配置.Width ＞ W)
left ＝ W － 配置.Width
.如果真结束
.如果真 (top ＋ 配置.Height ＞ H)
top ＝ H － 配置.Height

分隔.创建 (窗口1.取窗口句柄 (), 取颜色值 (102, 90, 100), 10, 10, 10, 100, 假, , , #天蓝)
分隔.挂接事件 (&被拖动)
分隔.置自动处理 (真, 编辑框1.取窗口句柄 (), 编辑框2.取窗口句柄 ())

.子程序 创建, 逻辑型, 公开, 创建控件
.参数 父窗口句柄, 整数型, , 父窗口句柄
.参数 背景色, 整数型, , RGB 不接受默认底色值
.参数 左边, 整数型
.参数 顶边, 整数型
.参数 宽度, 整数型
.参数 高度, 整数型
.参数 分隔条方向, 逻辑型, 可空, 假、横向【默认】 真、纵向
.参数 填充类型, 整数型, 可空, 0、仅虚线框 1、仅填充阴影 2、仅填充纯色 3、阴影带虚线框 4、纯色带虚线框
.参数 阴影类型, 整数型, 可空 数组, 0、横线 1、竖线 2、自左上到右下 3、自右上到左下 4、横纵线网格 5、斜线网格【默认】
.参数 填充前景色, 整数型, 可空
.参数 填充背景色, 整数型, 可空
.参数 边框风格, 整数型, 可空, 【部分相加有叠加效果】7、黑色 8、灰色 9、白色 4096、浅凹

.如果真 (IsWindow (HWnd) ≠ 0) ' 如果已经创建过控件
返回 (真)
.如果真结束
.如果真 (IsWindow (父窗口句柄) ＝ 0)
输出调试文本 (“[自绘分隔条.创建]失败，无效的父窗口句柄”)
返回 (假)
.如果真结束
R虚线框.创建 (父窗口句柄, 真)
.如果真 (是否为空 (填充类型))
填充类型 ＝ 4
.如果真结束
.如果真 (是否为空 (填充前景色))
填充前景色 ＝ #灰色
.如果真结束
.如果真 (是否为空 (填充背景色))
填充背景色 ＝ #黑色
.如果真结束
.如果 (是否为空 (阴影类型))
R虚线框.置矩形填充 (填充类型, { 5 }, 位异或 (填充前景色, 取颜色值 (255, 255, 255)), 位异或 (填充背景色, 取颜色值 (255, 255, 255)))
.否则
R虚线框.置矩形填充 (填充类型, 阴影类型, 位异或 (填充前景色, 取颜色值 (255, 255, 255)), 位异或 (填充背景色, 取颜色值 (255, 255, 255)))
.如果结束
配置.分隔条方向 ＝ 分隔条方向
返回 (创建分隔条 (父窗口句柄, 背景色, 左边, 顶边, 宽度, 高度, 边框风格))