Fenster grau einfärben "fade"

[PBFetischist]

Hallo zusammen

wenn ich bei XP auf Computer ausschalten klicke, öffnet sich ein Fenster und der Rest auf meinem Desktop blendet von bunt auf grau.

Kann ich sowas auch mit einem Fenster machen von bunt auf grau "faden" ? Hat jemand sowas schon einmal gemacht oder hat einen Ansatz ?

[Swappy]

Also spontan würde ich sagen das du einfach einen screenshot machst und dann im windowed screen das über sprite-channel fadest, aber kann auch gut sein, das es einfacher geht.

[HeX0R]

So in der Art ?

Code: Alles auswählen

Procedure.l Fade(Color.l, SollColor.l, *_Step.LONG, _Steps.l)
	Protected G1.l = Green(Color), B1.l = Blue(Color), R1.l = Red(Color)
	Protected G2.l = Green(SollColor), B2.l = Blue(SollColor), R2.l = Red(SollColor)
	Protected GF.f = (G2 - G1) / _Steps * *_Step\l
	Protected BF.f = (B2 - B1) / _Steps * *_Step\l
	Protected RF.f = (R2 - R1) / _Steps * *_Step\l

	*_Step\l + 1
	ProcedureReturn RGB(Int(R1 + RF), Int(G1 + GF), Int(B1 + BF))
EndProcedure

Procedure Main()
	Protected D.l = 1000, Color.l = RGB(0, 0, 255), SollColor.l = RGB($57, $57, $57)
	Protected _Step.l = 1, TimeOUT.l = ElapsedMilliseconds() + 1000
	
	If OpenWindow(0, 0, 0, 400, 400, "Fade to Grey...", #PB_Window_SystemMenu | #PB_Window_TitleBar)
		SetWindowColor(0, Color)

		Repeat
			Select WaitWindowEvent(D)
				Case 0
					If TimeOUT < ElapsedMilliseconds()
						If D = 1000
							D = 50
							SetWindowColor(0, Fade(Color, SollColor, @_Step, 50))
							TimeOUT = ElapsedMilliseconds() + 50
						Else
							If _Step <= 50
								SetWindowColor(0, Fade(Color, SollColor, @_Step, 50))
								TimeOUT = ElapsedMilliseconds() + 50
							Else
								D = -1
							EndIf
						EndIf
					EndIf
				Case #PB_Event_CloseWindow
					Break
				Case #WM_MOUSEMOVE
					_Step   = 1
					D       = 1000
					TimeOUT = ElapsedMilliseconds() + 1000
					SetWindowColor(0, Color)
			EndSelect
		ForEver
	EndIf
EndProcedure

Main()

[Fluid Byte]

Das gesamte Fenster + Rahmen oder nur den Inhalt?

[PBFetischist]

@HeXOR

Das geht schon in die Richtung, aber hier wird ja nur das Fenster grau.

Das gesamte Fenster + Rahmen oder nur den Inhalt?

Alles sollte von Farbe in BW wechseln. Fenster, Rahmen und Inhalt. Bei Windows ist es zb so, dass auch Icons in einer Toolbar grau werden.