' Author: ts-soft, bearbeitet von AHT
' Glaseffekt für 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#Ich seh nur ein schwarz eingefärbtes Fenster. 
Liegts daran, dass ich die teiltransparenten Titel ausgeschaltet hab?
AERO sollte schon an sein, sonst keine transparenten Fenster 
Wer's braucht...
Hallo
Das geht auch noch auszubauen
' Author: ts-soft
' Glaseffekt für 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#Gruß Volkmar
Zitat von Frabbing;850121Ich seh nur ein schwarz eingefärbtes Fenster.
Hier was zum Schauen:
[Blockierte Grafik: http://s4.postimage.org/27au5qcx0/Glas.jpg]
[Blockierte Grafik: http://s4.postimage.org/27bfnpvc4/Glas2.jpg]
Zitat von Volkmar;850136Hallo
Das geht auch noch auszubauen
Ja gut, aber da bräuchte ich nen Screenshot um den Effekt zu sehen.
Ich sehe nur ein schwarzes Fenster (wie Frank), das ausgestiegen ist.
Hallo
Hier ein Bild. Nur die Region hat den Glaseffekt, der Rest des Fensters ist komplett durchsichtig.
[Blockierte Grafik: http://s1.postimage.org/qg0xj1vo/Screenshoot01.jpg]
Mit Regionen sind da viele Gestaltungsmöglichkeiten drin, wenn's mal was ganz Ausgefallenes sein soll.
Gruß Volkmar
Xrofan11.2a: "Fehler beim Laden von dwmapi.dll"
Siehe Code:
' Windows Vista oder 7Volkmars Meldung war:
' Author: ts-soft
' Glaseffekt für Profan-Fenster
' Teileffekt und Button von VG
' XProfan >= 11 <========================
' Windows Vista oder 7
(siehe Beitrag oben, vermutlich also ein Irrtum?)
Hallo
Das Ganze läuft ab Vista, und Aero-Effekte müssen aktiv sein. Mein Anteil war, die Region hinzuzufügen, um das Fenster zu teilen in zwei Effektbereiche und den Button drüber zu legen (und korrektes DIM der Bereichsvariable).
Weniger als Vista bringt da nix, egal, welche XProfan-Version. Wie Jac schon geschrieben hat.
Gruß Volkmar
Ok, danke für die Klarstellung!
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!