XProfan

Français

GlasEffekt Glas effet la fenêtre Aero DwmEnableBlurBehindWindow

ts-soft (06.04.2011)

' Author: ts-soft
' Glaseffekt pour Profan-la fenêtre
' XProfan >= 11
' Windows Vue ou bien 7
Déclarer DWM_BLURBEHIND#, dwmapi&
Faible 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 Marque Séparation

' Author: ts-soft, bearbeitet de AHT
' Glaseffekt pour Profan-la fenêtre
' XProfan < 11
' Windows Vue ou bien 7
Def DwmEnableBlurBehindWindow(2) !"dwmapi.dll","DwmEnableBlurBehindWindow"
Déclarer DWM_BLURBEHIND#, dwmapi&
Faible 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)

allô

cela allez aussi encore auszubauen

Kompilieren Marque Séparation

' Author: ts-soft
' Glaseffekt pour Profan-la fenêtre
' Teileffekt et Button de VG
' XProfan >= 11
' Windows Vue ou bien 7
Def CreateRoundRectRgn(4) !"GDI32", "CreateRoundRectRgn"
Déclarer DWM_BLURBEHIND#, dwmapi&
Faible 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& = Créer("Button", %HWnd, "Testbutton", 32, 156, 88, 22)
WaitInput
FreeDLL dwmapi&
Dispose DWM_BLURBEHIND#

Salut Volkmar