I am sure that someone already has a script exactly like this but I have not seen one and thought I would share.
I also plan to make windows "click-throughable".
Also has small ugly OSD
Alt-W: Decreases transparency
Alt-S: Increases transparency
Alt-A: Toggles always on top
Alt-X: Make active window clickthroughable
Alt-Z: Make window under the mouse cursor non-clickthroughable
#InstallKeybdHook
#SingleInstance force
/*
Hotkeys:
Alt-A: make window always on top
Alt-W: make window less transparent
Alt-S: make window more transparent
Alt-X: make window clickthoughable
Alt-Z: make window under mouse unclickthroughable
*/
!a::
WinGet, currentWindow, ID, A
WinGet, ExStyle, ExStyle, ahk_id %currentWindow%
if (ExStyle & 0x8) ; 0x8 is WS_EX_TOPMOST.
{
Winset, AlwaysOnTop, off, ahk_id %currentWindow%
SplashImage,, x0 y0 b fs12, OFF always on top.
Sleep, 1500
SplashImage, Off
}
else
{
WinSet, AlwaysOnTop, on, ahk_id %currentWindow%
SplashImage,,x0 y0 b fs12, ON always on top.
Sleep, 1500
SplashImage, Off
}
return
!w::
WinGet, currentWindow, ID, A
if not (%currentWindow%)
{
%currentWindow% := 255
}
if (%currentWindow% != 255)
{
%currentWindow% += 5
WinSet, Transparent, % %currentWindow%, ahk_id %currentWindow%
}
SplashImage,,w100 x0 y0 b fs12, % %currentWindow%
SetTimer, TurnOffSI, 1000, On
Return
!s::
SplashImage, Off
WinGet, currentWindow, ID, A
if not (%currentWindow%)
{
%currentWindow% := 255
}
if (%currentWindow% != 5)
{
%currentWindow% -= 5
WinSet, Transparent, % %currentWindow%, ahk_id %currentWindow%
}
SplashImage,, w100 x0 y0 b fs12, % %currentWindow%
SetTimer, TurnOffSI, 1000, On
Return
!x::
WinGet, currentWindow, ID, A
WinSet, ExStyle, +0x80020, ahk_id %currentWindow%
return
!z::
MouseGetPos,,, MouseWin ; Gets the unique ID of the window under the mouse
WinSet, ExStyle, -0x80020, ahk_id %currentWindow%
Return
TurnOffSI:
SplashImage, off
SetTimer, TurnOffSI, 1000, Off
Return
