Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Odd shaped form
Message
From
16/02/2000 16:12:49
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Miscellaneous
Thread ID:
00332746
Message ID:
00333096
Views:
46
>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


Ken B. Matson
GCom2 Solutions
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform