Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Change the shape of a form?
Message
From
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:
00259554
Views:
16
>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
Next
Reply
Map
View

Click here to load this message in the networking platform