Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Transparent forms
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00808680
Message ID:
00808691
Vues:
12
>I need to make transparent, elliptic, circular forms in VFP. Does somebody have an OCX that I can use?

Francisco,

No ocx, just plain api. You'll have to experiment a bit

Transparent: try download#10021

Elliptic/circular:
take a look at - http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/regions_34mm.asp
and http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/pantdraw_2him.asp
DECLARE INTEGER CreateEllipticRgn IN WIN32API INTEGER X1 , INTEGER Y1 , INTEGER X2 , INTEGER Y2
DECLARE INTEGER SetWindowRgn IN WIN32API INTEGER HWND, INTEGER hRgn , INTEGER bRedraw
function	MakeWindowElliptic(_form)
	local Handle, RegionHandle, CaptionHeight
	Handle =_form.hwnd
	CaptionHeight  = iif(empty(_form.Titlebar), 0, iif(_form.HalfHeightCaption,22,26))
	RegionHandle = CreateEllipticRgn(4, CaptionHeight, _form.Width, _form.Height)
	=SetWindowRgn(Handle, RegionHandle, 1)
endfunc
Gregory
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform