Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Form Layout
Message
From
19/10/2000 16:14:19
 
 
To
19/10/2000 16:03:41
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00431781
Message ID:
00431783
Views:
11
>Hi,
>
>Is there a way to create form layout in VFP that is not rectangular, but instead oval or other shapes? Good example, is the sonique mp3 player (it's unique and the form design have different good and feel). Please let me know if this is possible?
>
>Thanks

try in form load
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)
I got this from UT awhile back - sorry - can't site source.

HTH
Ken B. Matson
GCom2 Solutions
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform