/**
 * Creates a full-screen, transparent, click-through-able window and
 * monitors changes in the active window, pushing inactive windows
 * under the full-screen window. The effect is that the active window
 * stands out more, while inactive windows appear dimmed.
 *
 * NOTE: 
 *  • Press Shift+Win+Escape to exit.
 *  • You can modify transparency and color at top of script.
 *
 * KNOWN ISSUES:
 *  • The FullTilt software will not activate a table when action is
 *    required, but instead make it AlwaysOnTop. As the script only
 *    reacts when the active window changes, this throws it off. Thus
 *    both tables will be highlighted (until you click on the table
 *    needing action).
 *
 * CHANGELOG:
 *   • [30/07/2010] Check a windows ownder as opposed to its parent.
 *     This should work better with a lot of dialogs (e.g. FullTilt).
 *
 * @author Roland ([email protected])
 * @date   24 June 2010
 * @AHK    1.0.48.05.L52
 * @see    http://www.autohotkey.com/forum/viewtopic.php?p=206589#206589
 */

#NoEnv
#SingleInstance force
SetWinDelay -1          ; we don't want any delays

TRANSPARENCY := 150
COLOR        := 0x000000

SysGet, monitorCount, MonitorCount
Loop % monitorCount {
    Gui, %a_index%: Default
    Gui, +Toolwindow -Caption +Lastfound
    Gui, Color, % COLOR
    WinSet, ExStyle, +0x00000020
    WinSet, Transparent, % TRANSPARENCY
    SysGet, mon, MonitorWorkArea , % a_index
    Gui, Show
    , % "x" monLeft " y" monTop " w" monRight-monLeft 
      . " h" monBottom-monTop " NoActivate"
  }

; keep monitoring change in active window:
Loop {
    hwndLast:=WinExist("A")   ; get handle of active window
    WinWaitNotActive          ; wait for it to become not-active
    ; this is necessary due to "SetWinDelay -1" above... we need to
    ; wait until a new active window exists (sometimes there is no
    ; new active window yet):
    while !WinExist("A")
      Sleep 10
    ; if the new active window is owned by the last active
    ; window, we don't want to change anything:
    ; 4=GW_OWNER (http://msdn.microsoft.com/en-us/library/ms633515.aspx)
    hOwner:=DllCall("GetWindow", "uint", WinExist("A"), "uint", 4)
    ; if the active window is not owned by the previously active window,
    ; push the previously active window under the "dimmer":
    ifNotEqual, hOwner, % hwndLast, WinSet, Bottom,, ahk_id%hwndLast%
  }
return

+#esc::ExitApp

/**
 * Creates a full-screen, transparent, click-through-able window and
 * monitors changes in the active window, pushing inactive windows
 * under the full-screen window. The effect is that the active window
 * stands out more, while inactive windows appear dimmed.
 *
 * NOTE: 
 *  • Press Shift+Win+Escape to exit.
 *  • You can modify transparency and color at top of script.
 *
 * KNOWN ISSUES:
 *  • The FullTilt software will not activate a table when action is
 *    required, but instead make it AlwaysOnTop. As the script only
 *    reacts when the active window changes, this throws it off. Thus
 *    both tables will be highlighted (until you click on the table
 *    needing action).
 *
 * CHANGELOG:
 *   • [30/07/2010] Check a windows ownder as opposed to its parent.
 *     This should work better with a lot of dialogs (e.g. FullTilt).
 *
 * @author Roland ([email protected])
 * @date   24 June 2010
 * @AHK    1.0.48.05.L52
 * @see    http://www.autohotkey.com/forum/viewtopic.php?p=206589#206589
 */

#Persistent
#SingleInstance force
SetBatchLines,-1
SetWinDelay -1          ; we don't want any delays

DIMMER_TRANSPARENCY := 75
DIMMER_COLOR        := 0x000000

SysGet, monitorCount, MonitorCount
Loop % monitorCount {
    Gui, %a_index%: Default
    Gui, +Toolwindow -Caption +Lastfound
    Gui, Color, % DIMMER_COLOR
    WinSet, ExStyle, +0x00000020
    WinSet, Transparent, % DIMMER_TRANSPARENCY
    SysGet, mon, MonitorWorkArea , % a_index
    Gui, Show
    , % "x" monLeft " y" monTop " w" monRight-monLeft 
      . " h" monBottom-monTop " NoActivate"
	dimmer%a_index% := WinExist()
}

; keep monitoring change in active window:
Loop {
    hwndLast := WinExist("A")   ; get handle of active window
    WinWaitNotActive            ; wait for it to become not-active
    ; this is necessary due to "SetWinDelay -1" above... we need to
    ; wait until a new active window exists (sometimes there is no
    ; new active window yet):
    while ! hwnd := WinExist("A")
      Sleep 10
    ; if the new active window is owned by the last active
    ; window, we don't want to change anything:
    ; 4=GW_OWNER (http://msdn.microsoft.com/en-us/library/ms633515.aspx)
    hOwner := DllCall("GetWindow", "uint", hwnd, "uint", 4)
    ; if the active window is not owned by the previously active window,
    ; push the previously active window under the "dimmer":
    ; ifNotEqual, hOwner, % hwndLast, WinSet, Bottom,, ahk_id%hwndLast%
	if hOwner != hwndLast
	{
		Loop % monitorCount {
		  DllCall("SetWindowPos", "uint", dimmer%a_index%, "uint", hwnd, "int", "0", "int", "0", "int", "0", "int", "0"  , "uint", "19") ; 19 = NOSIZE | NOMOVE | NOACTIVATE ( 0x1 | 0x2 | 0x10 )
		}
	}
 }