XProfan

English

GlasEffekt glass effect Window Aero DwmEnableBlurBehindWindow

ts-soft (06.04.2011)

' Author: ts-soft
' Glaseffekt for Profan-Window
' XProfan >= 11
' windows Vista or 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)

Compile Mark Separation

' Author: ts-soft, machine of AHT
' Glaseffekt for Profan-Window
' XProfan < 11
' windows Vista or 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)

Hello

the goes too yet auszubauen

Compile Mark Separation

' Author: ts-soft
' Glaseffekt for Profan-Window
' Teileffekt and Button of VG
' XProfan >= 11
' windows Vista or 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#

Greeting Volkmar