Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Odd shaped form
Message
 
To
16/02/2000 16:12:49
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Miscellaneous
Thread ID:
00332746
Message ID:
00333138
Views:
50
Thanks.

Nice to know that this is possible.

Joe

>>Maybe you could provide a little help with that...maybe pointing out some API calls that'll do this or even some sample code...
>
>Here you go - I borrowed basic idea of this from someone - I believe from the UT - awhile back - don't remember - but I can't take full credit for it ...
>
>slap it in a prg and run it ...
>
>----------------------------------------
>
>LOCAL loForm, lnwinhand, lnHR, lnHWND
>
>SET LIBRARY TO (HOME()+'foxtools.fll')
>
>DECLARE INTEGER CreateEllipticRgn IN gdi32 INTEGER X1 , INTEGER Y1 , INTEGER X2 , INTEGER Y2
>DECLARE INTEGER SetWindowRgn IN user32 INTEGER HWND, INTEGER hRgn , INTEGER bRedraw
>
>loForm = CREATE("form")
>
>WITH loForm
>
> .LEFT = 100
> .TOP = 100
> .CAPTION = "RoundForm"
> .WINDOWTYPE = 1
> .ADDOBJECT("cmdCancel","cmdRelease")
> .cmdCancel.TOP = 80
> .cmdCancel.LEFT = 140
> .cmdCancel.VISIBLE = .T.
> .cmdCancel.HEIGHT = 20
> .cmdCancel.WIDTH = 80
> .cmdCancel.CAPTION = "Done"
>
> lnwinhand = _WFindTitl(.CAPTION)
> lnHWND = _WhToHWnd(lnwinhand)
> lnHR = CreateEllipticRgn (0, 0, .WIDTH, .HEIGHT)
> SetWindowRgn(lnHWND, lnHR, 1)
> loForm.SHOW()
>
>ENDWITH
>
>DEFINE CLASS cmdRelease AS COMMANDBUTTON
> FUNCTION CLICK
> THISFORM.HIDE()
> ENDFUNC
>ENDDEFINE
>
>
>
Joseph C. Kempel
Systems Analyst/Programmer
JNC
Previous
Reply
Map
View

Click here to load this message in the networking platform