8 de mayo de 2007

Diversión con Vista Aero y la función DwmExtend Frame IntoClientArea

Usted puede tener un poco de diversión con Windows Vista Aero utilizando la función API DwmExtendFrameIntoClientArea.

Calvin Hsia nos comenta en su Blog que con la función API DwmExtendFrameIntoClientArea (solo para Vista) podemos hacer que los bordes de VFP se pinten con el efecto de cristal alrededor del borde del zorro.

Podemos intentar lo siguiente en nuestros formularios:
Public loForm
loForm = CreateObject("MyForm")
loForm.Show
Define Class MyForm  As Form
  ShowWindow = 2 && formulario de nivel superior
  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)
  Endproc
Enddefine

El enlace al el artículo original de Calvin Hsia es: Fun with Vista Aero using the DwmExtendFrameIntoClientArea

No hay comentarios. :

Publicar un comentario