Fun with Vista Aero using the DwmExtendFrameIntoClientArea

  • Article

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…