English
Source / code snippets

Aero Dwmenableblurbehindwindow effect Window glass Glaseffekt

 
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)
' 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
' 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
 
04/26/11  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

5.312 Views

Untitledvor 0 min.
RudiB.09/03/22
AndreasS11/27/18
Peter Max Müller10/22/17
Marc Bonus06/23/16
More...

Themeninformationen

this Topic has 1 subscriber:

iF (1x)


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie