Glaseffekt für Profan-Fenster - Paules-PC-Forum.de

ts-soft · 06.04.2011, 19:36

Code:

' Author: ts-soft
' Glaseffekt für 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** · 06.04.2011, 20:05

Code:

 
' 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#

**Frabbing** · 06.04.2011, 20:38

Ich seh nur ein schwarz eingefärbtes Fenster.

Liegts daran, dass ich die teiltransparenten Titel ausgeschaltet hab?

ts-soft · 06.04.2011, 20:45

AERO sollte schon an sein, sonst keine transparenten Fenster

**Frabbing** · 06.04.2011, 20:56

Wer's braucht...

Volkmar · 06.04.2011, 20:59

Hallo

Das geht auch noch auszubauen

Code:

' 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

**AHT** · 06.04.2011, 21:07

Zitat:

Zitat von Frabbing

Ich seh nur ein schwarz eingefärbtes Fenster.

Hier was zum Schauen:

ts-soft · 06.04.2011, 21:07

Zitat:

Zitat von Volkmar

Hallo

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.

Volkmar · 06.04.2011, 22:06

Hallo

Hier ein Bild. Nur die Region hat den Glaseffekt, der Rest des Fensters ist komplett durchsichtig.

Mit Regionen sind da viele Gestaltungsmöglichkeiten drin, wenn's mal was ganz Ausgefallenes sein soll.

Gruß Volkmar

p. specht · 10.04.2011, 15:37

Xrofan11.2a: "Fehler beim Laden von dwmapi.dll"

**Jac de Lad** · 10.04.2011, 15:41

Siehe Code:

Code:

' Windows Vista oder 7

p. specht · 10.04.2011, 15:46

Volkmars 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?)

Volkmar · 10.04.2011, 16:08

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

p. specht · 10.04.2011, 17:07

Ok, danke für die Klarstellung!

06.04.2011, 19:36	#1 (Direktlink)
ts-soft Forenmaskottchen Registriert seit: 16.05.2010 Ort: Berlin Beiträge: 724	Glaseffekt für Profan-Fenster Code: ' Author: ts-soft ' Glaseffekt für 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# __________________ Gruß Thomas Wenn mir früher jemand gesagt hätte, ich würde freiwillig eine Wanze mit mir herum tragen und sie auch noch selbst aufladen, hätte ich laut gelacht. Heute habe ich ein Smartphone. http://realsource.de

06.04.2011, 20:38	#3 (Direktlink)
Frabbing Super-Moderator Registriert seit: 05.02.2009 Ort: Westliches NRW Alter: 44 Beiträge: 5.094	Ich seh nur ein schwarz eingefärbtes Fenster. Liegts daran, dass ich die teiltransparenten Titel ausgeschaltet hab? __________________ Gruß, Frank Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken.

06.04.2011, 20:45	#4 (Direktlink)
ts-soft Forenmaskottchen Registriert seit: 16.05.2010 Ort: Berlin Beiträge: 724	AERO sollte schon an sein, sonst keine transparenten Fenster __________________ Gruß Thomas Wenn mir früher jemand gesagt hätte, ich würde freiwillig eine Wanze mit mir herum tragen und sie auch noch selbst aufladen, hätte ich laut gelacht. Heute habe ich ein Smartphone. http://realsource.de

06.04.2011, 20:56	#5 (Direktlink)
Frabbing Super-Moderator Registriert seit: 05.02.2009 Ort: Westliches NRW Alter: 44 Beiträge: 5.094	Wer's braucht... __________________ Gruß, Frank Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken.

10.04.2011, 15:37	#10 (Direktlink)
p. specht Dauergast Registriert seit: 06.02.2009 Ort: Wien, Österreich Beiträge: 1.079	Xrofan11.2a: "Fehler beim Laden von dwmapi.dll" __________________ Win7-64HomPremSP1,XProfan11.2a,XPIA,JWasm,XPSE,IntelCoreQuad2.5GHz/4GB/je1TB HD intern:esataBay:USB2:USB3

06.04.2011, 22:06	#9 (Direktlink)
Volkmar Forenmaskottchen Registriert seit: 23.01.2011 Ort: Bernburg Alter: 58 Beiträge: 756	Hallo Hier ein Bild. Nur die Region hat den Glaseffekt, der Rest des Fensters ist komplett durchsichtig. Mit Regionen sind da viele Gestaltungsmöglichkeiten drin, wenn's mal was ganz Ausgefallenes sein soll. Gruß Volkmar

10.04.2011, 15:41	#11 (Direktlink)
Jac de Lad Super-Moderator Registriert seit: 06.02.2009 Ort: Coswig Alter: 27 Beiträge: 1.159	Siehe Code: Code: ' Windows Vista oder 7 __________________ XProfan-Profi (XProfan X2+XPIA) http://jacdelad.bplaced.net http://jacdelad.square7.ch

10.04.2011, 15:46	#12 (Direktlink)
p. specht Dauergast Registriert seit: 06.02.2009 Ort: Wien, Österreich Beiträge: 1.079	Volkmars 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?) __________________ Win7-64HomPremSP1,XProfan11.2a,XPIA,JWasm,XPSE,IntelCoreQuad2.5GHz/4GB/je1TB HD intern:esataBay:USB2:USB3

10.04.2011, 16:08	#13 (Direktlink)
Volkmar Forenmaskottchen Registriert seit: 23.01.2011 Ort: Bernburg Alter: 58 Beiträge: 756	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

10.04.2011, 17:07	#14 (Direktlink)
p. specht Dauergast Registriert seit: 06.02.2009 Ort: Wien, Österreich Beiträge: 1.079	Ok, danke für die Klarstellung! __________________ Win7-64HomPremSP1,XProfan11.2a,XPIA,JWasm,XPSE,IntelCoreQuad2.5GHz/4GB/je1TB HD intern:esataBay:USB2:USB3

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
X-Profan Code-Generator	Hallo1001	Helfer & Tools	1	21.05.2010 12:56
Profan² Pad	da_andy	Sonstige Programmiersprachen	0	30.05.2008 16:58
Tipp: Glaseffekt erzwingen	Schwabenpfeil!	Windows Vista	6	01.12.2006 21:36
befehl für schließen von offenem fenster(bei Profan 5.0)	Poeli	Sonstige Programmiersprachen	2	14.06.2005 18:43