General information
Category:
Forms & Form designer
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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only