Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Transparent forms
Message
From
09/07/2003 16:51:28
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00808680
Message ID:
00808691
Views:
11
>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
Previous
Reply
Map
View

Click here to load this message in the networking platform