XProfan

Español

GlasEffekt Glas Effekt Ventana Aero DwmEnableBlurBehindWindow

ts-soft (06.04.2011)

' Author: ts-soft
' Glaseffekt para Profano-Ventana
' XProfan >= 11
' Windows Vista oder 7
Declarar DWM_BLURBEHIND#, dwmapi&
Dim DWM_BLURBEHIND#, 10
dwmapi& = UseDLL("dwmapi.dll")
ImportFunc(dwmapi&, "DwmEnableBlurBehindWindow", "")
Largo DWM_BLURBEHIND#, 0 = 5
Byte DWM_BLURBEHIND#, 5 = 1
CLS 0
DwmEnableBlurBehindWindow(%hWnd, DWM_BLURBEHIND#)
WaitInput
FreeDLL dwmapi&
Disponer DWM_BLURBEHIND#

AHT (07.04.2011)

Kompilieren Marca Separación

' Author: ts-soft, bearbeitet de AHT
' Glaseffekt para Profano-Ventana
' XProfan < 11
' Windows Vista oder 7
Def DwmEnableBlurBehindWindow(2) !"dwmapi.dll","DwmEnableBlurBehindWindow"
Declarar DWM_BLURBEHIND#, dwmapi&
Dim DWM_BLURBEHIND#, 10
dwmapi& = UseDLL("dwmapi.dll")
Largo DWM_BLURBEHIND#, 0 = 5
Byte DWM_BLURBEHIND#, 5 = 1
CLS 0
DwmEnableBlurBehindWindow(%hWnd, DWM_BLURBEHIND#)
WaitInput
FreeDLL dwmapi&
Disponer DWM_BLURBEHIND#

Volkmar (06.04.2011)

¡Hola

Es auch todavía auszubauen

Kompilieren Marca Separación

' Author: ts-soft
' Glaseffekt para Profano-Ventana
' Teileffekt y Button de VG
' XProfan >= 11
' Windows Vista oder 7
Def CreateRoundRectRgn(4) !"GDI32", "CreateRoundRectRgn"
Declarar DWM_BLURBEHIND#, dwmapi&
Dim DWM_BLURBEHIND#, 16
dwmapi& = UseDLL("dwmapi.dll")
ImportFunc(dwmapi&, "DwmEnableBlurBehindWindow", "")
Largo DWM_BLURBEHIND#, 0 = 7
Byte DWM_BLURBEHIND#, 5 = 1
CLS 0
Var Rgn& = CreateRoundRectRgn(-48, -96, %WinRight, 256, 6, 2)
Largo DWM_BLURBEHIND#, 8 = Rgn&
DwmEnableBlurBehindWindow(%hWnd, DWM_BLURBEHIND#)
Var Button& = Crear("Button", %HWnd, "Testbutton", 32, 156, 88, 22)
WaitInput
FreeDLL dwmapi&
Disponer DWM_BLURBEHIND#

Saludo Volkmar