XProfan

def SetWindowRgn(3) !USER32,SetWindowRgn
def EllipticRgn(4) !GDI32,CreateEllipticRgn
def RoundRectRgn(6) !GDI32,CreateRoundRectRgn
def PolygonRgn(3) !GDI32,CreatePolygonRgn
def RectRgn(4) !GDI32,CreateRectRgn

PROC EllipseWindow

    Parameters hdl&,X1%, Y1%, X2%, Y2%
    SetWindowRgn(hdl&, EllipticRgn(X1%, Y1%, X2%, Y2%), 1)

ENDPROC

PROC Ellipsehdl

    Parameters hdl%, X1%, Y1%, X2%, Y2%
    SetWindowRgn(hdl%, EllipticRgn(X1%, Y1%, X2%, Y2%), 1)

ENDPROC

PROC RoundWindow

    Parameters X1%, Y1%, X2%, Y2%, RW%, RH%
    SetWindowRgn(%HWnd, RoundRectRgn(X1%, Y1%, X2%, Y2%, RW%, RH%), 1)

ENDPROC

PROC RoundWindowhdl

    Parameters hdl%,X1%, Y1%, X2%, Y2%, RW%, RH%
    SetWindowRgn(hdl%, RoundRectRgn(X1%, Y1%, X2%, Y2%, RW%, RH%), 1)

ENDPROC

PROC TriangleWindow

    Parameters X1%, Y1%, X2%, Y2%, X3%, Y3%
    Declare poly#
    Dim poly#, 26
    long poly#,0= x1%
    long poly#,4= y1%
    long poly#,8= x2%
    long poly#,12=y2%
    long poly#,16=x3%
    long poly#,20=y3%
    SetWindowRgn(%HWnd, PolygonRgn(poly#, 3, 1), 1)
    Dispose poly#

ENDPROC

PROC RectangleWindow

    Parameters X1%, Y1%, X2%, Y2%
    SetWindowRgn(%HWnd, RectRgn(X1%, Y1%, X2%, Y2%), 1)

ENDPROC

PROC form.hdl

    Parameters hdl&,X1%, Y1%, X2%, Y2%
    SetWindowRgn(hdl&, RectRgn(X1%, Y1%, X2%, Y2%), 1)

ENDPROC