Fun with Vista Aero using the DwmExtendFrameIntoClientArea
You can have a little fun with Vista Aero using the DwmExtendFrameIntoClientArea function.
This will cause the VFP border to paint the glass effect around the fox border
DECLARE integer DwmExtendFrameIntoClientArea IN dwmapi integer hWnd, string @ daMargins
cStr=REPLICATE(BINTOC(100,"4rs"),4)
_screen.BackColor=0
_screen.ForeColor=-1
DwmExtendFrameIntoClientArea (_vfp.HWnd, @cStr)
RETURN
For your own forms, try this:
PUBLIC x
x=CREATEOBJECT("myForm")
x.show
DEFINE CLASS MyForm AS Form
ShowWindow= 2 && top level form
PROCEDURE Init
DECLARE integer DwmExtendFrameIntoClientArea IN dwmapi integer hWnd, string @ daMargins
cStr=REPLICATE(BINTOC(100,"4rs"),4)
this.BackColor=0
this.ForeColor=-1
DwmExtendFrameIntoClientArea (this.HWnd, @cStr)
ENDDEFINE
For more fun, stay tuned…