Fade out No me funciona Topic is solved

[BlackDraGoN]

Code: Select all

Fade(Type="",WinTitle="",Speed=100,Trans=250,Duration=10) {
	if Type = In
		loop, %Speed% {
			WinSet, Transparent, %A_Index% * (%Trans%/%Speed%), %WinTitle%
			sleep, % ((Duration * 1000)/Speed)
			}
	If Type = Out
		loop, %Speed% {
			WinSet, Transparent, %Trans%-(%A_Index%*(%Trans%/%Speed%)), %WinTitle%
                        WinSetTitle, % (Trans - (A_Index * (Trans/Speed)))
			sleep, % ((Duration * 1000)/Speed)
			}
}

[Mod edit: + [code][/code] tags.]

Llevo poco tiempo en Autohotkey pero todavia me lio bastantes a la hora de las variables %variables%, la cuestion es que el Out no me lo hace bien y tiene que ser porque algo de esa linea WinSet, Transparent, %Trans%-(%A_Index%*(%Trans%/%Speed%)), %WinTitle% esta mal puesto, pero no se que puede ser.

Podeis ayudarme, mil gracias

[BlackDraGoN]

Como puedo crear una ventana que ocupe todo el monitor, incluida la barra de windows, quisiera hacer como un protector de pantalla con el Fade In y Out, he conseguido que me ocupe la pantalla, salva la barra de windows que no se como sobreponerla

[BlackDraGoN]

Gracias, ya conseguí que funcionase.

[BlackDraGoN]

Este es el codigo que me funciona.

Code: Select all

Fade(WinTitle, Direction="", Time=0, Trans=255){
	startTime := A_TickCount
	Loop{
		t := ((TimeElapsed := A_TickCount-startTime) < (Time*1000)) ? (If Direction="in" ? Trans*(timeElapsed/(Time*1000)) : Trans*(1-(timeElapsed/(Time*1000)))) : (If Direction="in" ? Trans : 0)
		WinSet, Transparent, %t%, %WinTitle%
		If (Direction = "in" && t >= Trans) or (Direction = "out" && t <= 0) {
			If Direction = in
				WinSet, Transparent, Off, %WinTitle%
			Break
		}
	}
	DebugLog("Fade - " . (If Direction = "out" ? "Ocultar frontend haciéndola transparente" : "Mostrando Frontend y eliminando transparencia"))
}