Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Change the shape of a form?
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00259494
Message ID:
00259888
Views:
19
>Erik,
>
>Could you provide a bit more clarification on
>the thread you referenced? Maybe date if you
>have it?

Check out Vinod's post on this thread. He copied the relevant text from the old thread. Aww, hell, I'll just copy it again:

>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)
Erik Moore
Clientelligence
Previous
Reply
Map
View

Click here to load this message in the networking platform