Hi All,
This is just for fun!
Create a form with an exit button in its center
add this code to the LOAD event of the form and run :-)
DECLARE INTEGER CreateEllipticRgn IN gdi32 INTEGER X1 , INTEGER Y1 , INTEGER X2 , INTEGER Y2
DECLARE INTEGER SetWindowRgn IN user32 INTEGER HWND, INTEGER hRgn , INTEGER bRedraw
SET LIBR TO ( HOME()+'foxtools.fll' )
lnwhandle = _WFindTitl(THIS.CAPTION)
HWND = _WhToHWnd(lnwhandle)
LOCAL hr
LOCAL w, h
w = THIS.WIDTH / 1 && change ratio
h = THIS.HEIGHT / 1 && change ratio
hr = CreateEllipticRgn(0, 0, w, h)
SetWindowRgn(HWND, hr, 1)
Nice!
I got it from a VB article.
To VB or not to VB that's the question!
(I'll VFP :-)