新建一个picture用户对象:
uo_pic
picturename属性设置为按钮使用的图片
外部函数调用:FUNCTION ulong CreateRoundRectRgn(ulong X1,ulong Y1,ulong X2,ulong Y2,ulong X3,ulong Y3) LIBRARY "gdi32.dll"
FUNCTION ulong SetWindowRgn(ulong hWnd,ulong hRgn,boolean bRedraw) LIBRARY "user32.dll"
constructor事件脚本:
ulong width1,height1,rgnh;
width1=UnitsToPixels(width,XUnitsToPixels!)+1height1=UnitsToPixels(height,YUnitsToPixels!)+1
rgnh = CreateRoundRectRgn(7, 7, width1 - 7 , height1 - 7, 50, 50)//参......
阅读全文