Partager via

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…

Comments

  • Anonymous
    May 02, 2007
    The comment has been removed
  • Anonymous
    August 10, 2007
    Here are some of the links that I often visit regarding VFP9 SP2 and Sedna. The official Microsoft Visual...