>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.