Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Change the shape of a form?
Message
 
 
To
31/08/1999 04:26:02
Vinod Parwani
United Creations L.L.C.
Ad-Dulayl, Jordan
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00259494
Message ID:
00259797
Views:
15
Outstanding!!! Thanks everyone. I should have known to come here first =)
-Darryl


>>Does anyone know of an OCX or (better yet) VCX that allows you to modify the shape of forms? I've seen a couple on cnet's activex site but none seem to work very well (or at all) in VFP. I need an eliptical shaped form. Thanks in advance.
>>-Darryl
>
>See the below pasted message, for more info. use calendar mode and retrieve this particular thread...
>
>[Pictures and Image processing in VFP] Fance Form Thread #211975 Message #211975
>From
>Waleed Hasan
>R.P. Scherer Egypt
>25/04/1999 03:31:34 To
>All
>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.
Previous
Reply
Map
View

Click here to load this message in the networking platform