Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Odd shaped form
Message
 
À
16/02/2000 16:12:49
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00332746
Message ID:
00333138
Vues:
43
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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform