WinFadeClose() - WinFadeClose any window! :)

[joedf]

"WinFadeClose" any window/control using "WinTitle"! 
This has probably been done before... not sure if it's been done under the form of function, but... Here it is anyways 
 
Note: the "time" variable is the time (ms) it takes for the window to fade away.
 
The Function

Code: Select all

WinFadeClose(WinTitle="A",Time=2000,ActivateWinTitle="ahk_class Shell_TrayWnd") {
	WinGet, WinID, ID, %WinTitle%
		if (ActivateWinTitle!=0) or ActivateWinTitle !=
			Winactivate, %ActivateWinTitle%
	WinDelay := A_WinDelay
	SetWinDelay, 5
	WinGet, Trans, Transparent, ahk_id %WinID%
	Trans := Trans ? Trans : 255
	WinSet, ExStyle, +0x00000020, ahk_id %WinID%
	I := (J:=Trans)*10/(Time/=2)
	Loop, % Time/10 {
		Sleep, 10 ; a delay from 1 to 10 is generally equivalent to 10 or 15.6
		WinSet, Transparent, % J-=I, ahk_id %WinID%
	}
	SetWinDelay, %WinDelay%
	WinClose, ahk_id %WinID%
}

Example Usage

Code: Select all

Run, notepad.exe,,,PID
sleep 1000
WinFadeClose("ahk_pid " . PID)

Changes:
29 May, 2013 :

• Changed "Deactivate" option to "ActivateWinTitle", Disable with "" or 0

23 April, 2013 :

• Changed 0x00000020 to +0x00000020, prevents the window from flashing if a window were transparent

19 April, 2013 :

• Applied changes by MasterFocus
• Added "Deactivate" option

I'm open to comments, suggestions, name changes, anything! ... except hate. 
Cheers!

[timeFlies]

If I'm not mistaken, doesn't Windows already fade close windows? I know Windows 7 does in Aero theme, but doesn't in classic theme. I'm not sure about Windows 8.

Or does this function just lengthen the time of the fading?

[joedf]

Smoother fading... Try the example!
With this function, you get the choose the duration of the fading effect.
cheers!