XProfan

Italia

GlasEffekt Glas Effekt Fenster Aero DwmEnableBlurBehindWindow

ts-soft (06.04.2011)

' Author: ts-soft
' Glaseffekt per Profan-Fenster
' XProfan >= 11
' Windows Vista oder 7
Declare DWM_BLURBEHIND#, dwmapi&
Dim DWM_BLURBEHIND#, 10
dwmapi& = UseDLL("dwmapi.dll")
ImportFunc(dwmapi&, "DwmEnableBlurBehindWindow", "")
Long DWM_BLURBEHIND#, 0 = 5
Byte DWM_BLURBEHIND#, 5 = 1
CLS 0
DwmEnableBlurBehindWindow(%hWnd, DWM_BLURBEHIND#)
WaitInput
FreeDLL dwmapi&
Dispose DWM_BLURBEHIND#

AHT (07.04.2011)

Kompilieren Markieren Separieren

' Author: ts-soft, bearbeitet von AHT
' Glaseffekt per Profan-Fenster
' XProfan < 11
' Windows Vista oder 7
Def DwmEnableBlurBehindWindow(2) !"dwmapi.dll","DwmEnableBlurBehindWindow"
Declare DWM_BLURBEHIND#, dwmapi&
Dim DWM_BLURBEHIND#, 10
dwmapi& = UseDLL("dwmapi.dll")
Long DWM_BLURBEHIND#, 0 = 5
Byte DWM_BLURBEHIND#, 5 = 1
CLS 0
DwmEnableBlurBehindWindow(%hWnd, DWM_BLURBEHIND#)
WaitInput
FreeDLL dwmapi&
Dispose DWM_BLURBEHIND#

Volkmar (06.04.2011)

Hallo

Das geht auch noch auszubauen

Kompilieren Markieren Separieren

' Author: ts-soft
' Glaseffekt per Profan-Fenster
' Teileffekt und Button von VG
' XProfan >= 11
' Windows Vista oder 7
Def CreateRoundRectRgn(4) !"GDI32", "CreateRoundRectRgn"
Declare DWM_BLURBEHIND#, dwmapi&
Dim DWM_BLURBEHIND#, 16
dwmapi& = UseDLL("dwmapi.dll")
ImportFunc(dwmapi&, "DwmEnableBlurBehindWindow", "")
Long DWM_BLURBEHIND#, 0 = 7
Byte DWM_BLURBEHIND#, 5 = 1
CLS 0
Var Rgn& = CreateRoundRectRgn(-48, -96, %WinRight, 256, 6, 2)
Long DWM_BLURBEHIND#, 8 = Rgn&
DwmEnableBlurBehindWindow(%hWnd, DWM_BLURBEHIND#)
Var Button& = Create("Button", %HWnd, "Testbutton", 32, 156, 88, 22)
WaitInput
FreeDLL dwmapi&
Dispose DWM_BLURBEHIND#

Saluto Volkmar