易语言另类圆角化窗口效果

易语言 2020-08-17 18:44:11

易语言另类圆角化窗口效果

.DLL命令 CreateRoundRectRgn, 整数型, "gdi32.dll", "CreateRoundRectRgn"
.参数 左上横坐标, 整数型, , X1,矩形左上角横坐标
.参数 左上纵坐标, 整数型, , Y1,矩形左上角纵坐标
.参数 右下横坐标, 整数型, , X2,矩形右下角横坐标
.参数 右下纵坐标, 整数型, , Y2,矩形右下角纵坐标
.参数 圆角椭圆的宽, 整数型, , X3,圆角椭圆的宽,其范围从0(没有圆角)到矩形宽(全圆)
.参数 圆角椭圆的高, 整数型, , Y3,圆角椭圆的高,其范围从0(没有圆角)到矩形高(全圆)

.子程序 圆角化
.参数 控件句柄, 整数型, , 要圆角化的窗口或控件句柄
.参数 宽度, 整数型, , 要圆角化的窗口或控件的宽度
.参数 高度, 整数型, , 要圆角化的窗口或控件的高度
.参数 圆角值, 整数型, , 要圆角化的数值
.参数 圆角值1, 整数型, , 要圆角化的数值
.局部变量 圆角句柄, 整数型

圆角句柄 = CreateRoundRectRgn (0, 0, 宽度, 高度, 圆角值, 圆角值1)
SetWindowRgn (控件句柄, 圆角句柄, 真)
DeleteObject (控件句柄)