Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Odd shaped form
Message
From
17/02/2000 17:06:03
Jonathan Cochran
Alion Science and Technology
Maryland, United States
 
 
To
16/02/2000 16:12:49
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Miscellaneous
Thread ID:
00332746
Message ID:
00333763
Views:
39
If you change the two zeros in the call to CreateEllipticRgn() to SYSMETRIC(3) and SYSMETRIC(4), then the form doesn't show the resize border on the top and left.

>>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
>
>
>
Previous
Reply
Map
View

Click here to load this message in the networking platform