易语言按钮加图标模块源码

本模块可以让图标和文字并存
加入命令"置按钮颜色"
.子程序 置按钮颜色, , 公开, 设置按钮的文本颜色
.参数 窗口句柄, 整数型, , 可以是按钮句柄或者容器型窗口句柄，如果是容器型窗口句柄，将自动对所有子窗口执行本命令
.参数 正常文本颜色, 整数型, , 提供颜色值,设置为-1将采用系统默认颜色
.参数 禁止文本颜色, 整数型, 可空, 提供颜色值,设置为-1将采用系统默认颜色
.局部变量 hWnd, 整数型
.局部变量 strClassName, 文本型

.如果真 (是否为空 (禁止文本颜色))
    禁止文本颜色 ＝ -1
.如果真结束
' ----------------------------------
hWnd ＝ 窗口句柄
strClassName ＝ GetClassNameEx (hWnd)
.如果真 (strClassName ＝ “Button”)
    Button_SubClass (hWnd)
    SetProp (hWnd, “ButtonIcon_TextColor1”, 正常文本颜色)
    SetProp (hWnd, “ButtonIcon_TextColor2”, 禁止文本颜色)
    InvalidateRect (hWnd, 0, 0)
.如果真结束
hWnd ＝ GetWindow (hWnd, #GW_CHILD)
.判断循环首 (hWnd ≠ 0)
    置按钮颜色 (hWnd, 正常文本颜色, 禁止文本颜色)
    hWnd ＝ GetWindow (hWnd, #GW_HWNDNEXT)
.判断循环尾 ()