超级美化新信息框模块

易语言 2020-05-30 14:46:25

超级美化新信息框模块

.子程序 窗口_圆角化, , 公开, 把窗口的四个直角设置成圆角
.参数 窗口句柄, 整数型, , 要设置圆角的窗口
.参数 圆角椭圆的宽, 整数型, , 一般为50
.参数 圆角椭圆的高, 整数型, , 一般为50
.局部变量 矩形区域句柄, 整数型
.局部变量 窗口宽度, 整数型
.局部变量 窗口高度, 整数型

.' 如果真 (是否为空 (圆角椭圆的宽))
' 圆角椭圆的宽 = 50
.如果真结束
.' 如果真 (是否为空 (圆角椭圆的高))
' 圆角椭圆的高 = 50
.如果真结束
窗口_取控件大小 (窗口句柄, 窗口宽度, 窗口高度)
矩形区域句柄 = CreateRoundRectRgn (0, 0, 窗口宽度, 窗口高度, 圆角椭圆的宽, 圆角椭圆的高)
SetWindowRgn (窗口句柄, 矩形区域句柄, 真)
DeleteObject (矩形区域句柄)