程序窗口组件圆角化

.子程序 窗口圆角化, , 公开
.参数 Handle, 整数型, , 组件句柄
.参数 Widths, 整数型, , 组件宽度
.参数 Height, 整数型, , 组件高度
.参数 Radius, 整数型, , 圆角半径
.局部变量 Rectangular_Handle, 整数型

Rectangular_Handle ＝ CreateRoundRectRgn (0, 0, Widths ＋ 1, Height ＋ 1, Radius, Radius)
SetWindowRgn (Handle, Rectangular_Handle, 真)
DeleteObject (Rectangular_Handle)