已审核词条 未审核词条

子程序名	返回值类型	公开	备 注
窗口_控件加边框			在控件的边上加上一层边框;
参数名	类 型	参考	可空	数组	备 注
控件句柄	整数型				要加边框的控件句柄;
鼠标被放开	逻辑型				在图片框鼠标被放开的时候把这个参数设置为真,控件句柄留空;

变量名	类 型	静态	数组	备 注
局_矩形	RECT
局_场景	整数型
局_窗口句柄	整数型
局_画框	逻辑型

局_场景 ＝ CreateDCA (“DISPLAY”, “”, “”, 0)
如果真 (鼠标被放开)
如果真 (局_画框 ＝ 假)
返回 ()
局_画框 ＝ 真
GetWindowRect (局_窗口句柄, 局_矩形)
子程序_画边框 (局_场景, 局_矩形)
局_画框 ＝ 取反 (局_画框)
DeleteDC (局_场景)
判断 (局_窗口句柄 ≠ 控件句柄)
如果真 (局_画框)
GetWindowRect (局_窗口句柄, 局_矩形)
子程序_画边框 (局_场景, 局_矩形)
局_画框 ＝ 假
GetWindowRect (控件句柄, 局_矩形)
子程序_画边框 (局_场景, 局_矩形)
DeleteDC (局_场景)
局_窗口句柄 ＝ 控件句柄
局_画框 ＝ 真
GetWindowRect (局_窗口句柄, 局_矩形)
子程序_画边框 (局_场景, 局_矩形)
局_画框 ＝ 取反 (局_画框)
DeleteDC (局_场景)

子程序名	返回值类型	公开	备 注
子程序_画边框
参数名	类 型	参考	可空	数组	备 注
场景	整数型
矩形边框	RECT

如果真 (IsRectEmpty (矩形边框) ＝ 假)
PatBlt (场景, 矩形边框.Left, 矩形边框.Top, 矩形边框.Right － 矩形边框.Left, 3, 5570569)
PatBlt (场景, 矩形边框.Left, 矩形边框.Top ＋ 3, 3, 矩形边框.Bottom － 矩形边框.Top － 6, 5570569)
PatBlt (场景, 矩形边框.Right, 矩形边框.Top ＋ 3, -3, 矩形边框.Bottom － 矩形边框.Top － 6, 5570569)
PatBlt (场景, 矩形边框.Left, 矩形边框.Bottom, 矩形边框.Right － 矩形边框.Left, -3, 5570569)

词条作者信息 使用例程