自绘树形框源码自定义项目样式/颜色

.子程序 树型框_设置高亮, , 公开, 设置树型框选中项颜色，失去焦点时依然显示高亮
.参数 窗口句柄, 整数型, , 可以通过“树型框.取窗口句柄()”获取
.参数 文本颜色, 整数型, 可空, 留空默认和系统一样
.参数 背景颜色, 整数型, 可空, 留空默认和系统一样
.局部变量 hWnd, 整数型
.局部变量 pProc, 整数型
.局部变量 hWndParent, 整数型

.如果真 (是否为空 (文本颜色))
文本颜色 ＝ GetSysColor (#COLOR_HIGHLIGHTTEXT)
.如果真结束
.如果真 (是否为空 (背景颜色))
背景颜色 ＝ GetSysColor (#COLOR_HIGHLIGHT)
.如果真结束
' //----------------------------------------------------
hWnd ＝ 窗口句柄 ' //树型框的窗口句柄
hWndParent ＝ GetParent (hWnd) ' //父窗口的窗口句柄
SetProp (hWnd, #TVSKIN_OPENSKIN, 1) ' //设置个属性，表示开启了自绘
' //----------------------------------------------------
' //子类化父窗口
pProc ＝ GetProp (hWndParent, #TVSKIN_WNDPROC)
.如果真 (pProc ＝ 0)
pProc ＝ SetWindowLong (hWndParent, #GWL_WNDPROC, 到数值 (&树型框_Parent_OnMessage))
SetProp (hWndParent, #TVSKIN_WNDPROC, pProc)
.如果真结束
' //----------------------------------------------------
SetProp (hWnd, #TVSKIN_HIGHLIGHT, 背景颜色)
SetProp (hWnd, #TVSKIN_HIGHLIGHTTEXT, 文本颜色)
InvalidateRect_NULL (hWnd, 0, 1)