编辑框控件边框美化模块

.子程序 开启边框美化, , 公开, 给能够获取焦点的窗口(控件)美化边框
.参数 窗口句柄, 整数型, , 要美化边框那个窗口的句柄,子控件将自动美化
.参数 普通边框颜色, 整数型, 可空, 未获取焦点时的边框颜色,默认和系统一致
.参数 焦点边框颜色1, 整数型, 可空, 获取焦点之后的边框颜色1,默认为QQ那种蓝色
.参数 焦点边框颜色2, 整数型, 可空, 获取焦点之后的边框颜色2,默认为QQ那种蓝色
.局部变量 hWndFocus, 整数型

.如果真 (是否为空 (普通边框颜色))
普通边框颜色 ＝ GetSysColor (#COLOR_WINDOWFRAME)
.如果真结束
.如果真 (是否为空 (焦点边框颜色1))
焦点边框颜色1 ＝ 16631904
.如果真结束
.如果真 (是否为空 (焦点边框颜色2))
焦点边框颜色2 ＝ 15182921
.如果真结束
hWndFocus ＝ GetFocus ()
Border_SubClass (窗口句柄, hWndFocus, 普通边框颜色, 焦点边框颜色1, 焦点边框颜色2)