[Scripts] Stacked Table Viewer UPGRADE

{
;freo's Stacked Table Previewer v1.16
;XTlex's UPGRADE
;Only works in Vista/Windows7 with aero enabled

;Features:
;Shows thumbnails of all stacked tables in a preview window
;Adds and removes tables as they are opened and closed
;Click on the thumbnail to activate the table in the stack
;Displays number of open tables in the preview window title (in the caption)
;Highlights the active/previous active tables green/pink in the thumbnail (Color and border width can be changed in the user defined settings)

;UPGRADE:
;Configuration Menu
;Click on the thumbnail as if it was the table (Fold, Call, Raise, Sitout, you name it!)
;Table Numeration for easier access
;Hotkey for manually reorganize tables when reducing tables

#SingleInstance Force
#NoEnv

DetectHiddenWindows,On
SetTitleMatchMode, 2
setwindelay 0

OnMessage(0x201,"clickevent")
OnMessage(0x46, "WM_WINDOWPOSCHANGING")

;------------------------------------------------------------------------------------------------------------------
;User defined settings
pokersite=cu						;Pokersite ID - ps for Pokerstars, cu for Customised (you'll need to change cu settings further down)
hostwindoww:=1219				;Host preview window width, internal dim
hostwindowh:=480					;Host preview window height, internal dim
hostwindowx:=4					;Host preview window x position on screen
hostwindowy:=4					;Host preview window y position on screen
activebordersize:=4				;Width of the colored border for showing active and last active tables
activebordercolor=00FF00			;Color of the highlight border for the active window
lactivebordercolor=FF00FF			;Color of the highlight border for the last active window
chosenhotkeydefault=^!x			;Hotkey to manually reorganize previews (Ctrl+Alt+x)
refreshratedefault:=3				;Number of seconds to wait between refreshes
;------------------------------------------------------------------------------------------------------------------
}
if (pokersite = "ps") {
	ptablebasew=624										;Poker table base resolution width (For stars)
	ptablebaseh=430										;Poker table base resolution height (For stars)
	windowtitle=ahk_class PokerStarsTableFrameClass			;Window title to match to find tables - Pokerstars
	windowtitle2=Table ahk_class #32770					;Window title of the closing table message
	windowtitleexclude=									;Window title to exclude 
	windowtitleexclude2=PokerStars Lobby					;Window title to exclude 
} else if (pokersite = "cu") {								;Change these settings for a custom site/application
	ptablebasew=784										;custom site/application base resolution width
	ptablebaseh=550										;custom site/application base resolution height
	windowtitle=Hold'em ahk_class #32770					;Window title to match to find tables
	windowtitle2=Omaha ahk_class #32770					;Window title of the closing table message
	windowtitleexclude=									;Window title to exclude 
	windowtitleexclude2=									;Window title to exclude 
}
{
;VARIABLES
SysGet, borderxa, 45										;Size of the x window 3D border
Sysget, borderya, 46										;Size of the y window 3D border
Sysget, captionha, 4										;Size of the caption
Sysget, borderxb, 5										;Size of the x window normal border
Sysget, borderyb, 6										;Size of the y window normal border
Sysget, borderxX, 32										;SM_CXSIZEFRAME
borderx := borderxa + borderxb								;Total size of the x border
bordery := borderya + borderyb							;Total size of the y border
captionh := captionha + bordery							;Total size of the caption

hostwindoww2:=hostwindoww+borderx+borderx					;Host preview window width, external dim
hostwindowh2:=hostwindowh+bordery+captionh				;Host preview window height, external dim
clientareah := hostwindowh								;Height of the area thumbnail windows can be placed in
clientareaw := hostwindoww								;Width of the area thumbnail windows can be placed in
clientareax := hostwindowx + borderx
clientareay := hostwindowy + captionh
ptablehwratio := (ptablebaseh) / (ptablebasew)				;Ratio used for scaling thumbnail window size
lastactive:=0
thisactive:=0
borderguix:=clientareax
borderguiy:=clientareay
chosenhotkeysave:=chosenhotkeydefault						;hotkey to manually reorganize previews
refreshratesave:=refreshratedefault
refreshratereal:=refreshratesave*1000						;refreshrate for mainloop
refreshratereal2:=refreshratesave*200						;refreshrate for 2ndloop
idZ:=id:=0
GroupAdd, XTgroup, %windowtitle%,,,%windowtitleexclude%
GroupAdd, XTgroup, %windowtitle2%,,,%windowtitleexclude2%
hotkey, %chosenhotkeysave%, chosenhotkey


;GUIs
;Create preview window
Gui, 99: +LastFound +LabelForm1_
Gui, 99: Color, 0
;WinSet, TransColor, 0
target := WinExist()
Gui, 99: Show, w%hostwindoww% h%hostwindowh% x%hostwindowx% y%hostwindowy%, 00 Tables Previewed

;Create GUi's for colored border
;Gui 1 for active table
Gui, 1:+LastFound +Owner99
Gui, 1:Color, %activebordercolor%
Gui, 1:-Caption -Border
activegui:=WinExist()

;Gui 2 for last active table
Gui, 2:+LastFound +Owner99 
Gui, 2:Color, %lactivebordercolor%
Gui, 2:-Caption -Border
lactivegui:=WinExist()

;DebugMode GUI
;gui, 13:+alwaysontop
;gui, 13:-caption -border
;gui, 13:color, 0xFF0000
;gui, 13:show, w10 h10 x1 y1, Porp

;Configuration Page
gui, 72:+Owner99 -resize -minimizebox
gui, 72:font, s14 w700 cRed
gui, 72:add, text, center w300 h30 x1 y1, Configuration Page
gui, 72:font, s12 w400 cBlack
gui, 72:add, text, cBlue x10 y45 w280 h20, Manually reorganize previews:
gui, 72:add, text, cBlue x10 y110 w280 h20 vrefreshrateID0, RefreshRate:
gui, 72:add, text, center w10 h20 vrefresh, 1
gui, 72:add, text, center w10 h20 vrefresh2, 5
gui, 72:font, s8
gui, 72:add, hotkey, x10 y70 vchosenhotkey Limit1, %chosenhotkeydefault%
gui, 72:add, slider, x20 y130 vrefreshrateID tooltip tickinterval1 Buddy1refresh Buddy2refresh2 range1-5, %refreshratedefault%
gui, 72:add, button, x30 y210 gButton72, SAVE
gui, 72:add, button, x100 y210 gDefault72, DEFAULT
gui, 72:show, hide w300 h240 x%clientareax% y%clientareay%, Configuration Page

;Configuration Page Icon
gui, 73:+LastFound +Owner99
gui, 73:-caption -border
gui, 73:color, %activebordercolor%
g73:=WinExist()
g73x:=hostwindowx+hostwindoww-30
g73y:=hostwindowy+20
gui, 73:show, w40 h40 x%g73x% y%g73y%
winset, Region, 5-5 w30 h30 E, ahk_id %g73%

;GUI to anchor 75 and 77
gui, 74:show, hide

;Real Table active border
gui, 75:+LastFound +Owner74
gui, 75:-caption -border +alwaysontop
gui, 75:color, %activebordercolor%
XT0:=WinExist()

;Numeration Mask
gui, 76:+LastFound +Owner99
MaskK:=WinExist()
gui, 76:color, 0
winset, transcolor, 0, ahk_id %MaskK%
gui, 76:-caption -border
gui, 76:font, s20 w700 verdana
loop, 98 {
gui, 76: add, text, vNumera%a_index% c00FF00 x1 y5100, %a_index%
}
gui, 76: show, w%hostwindoww% h%hostwindowh% x%clientareax% y%clientareay%, Mask

;Real Table Numeration
gui, 77:+LastFound +Owner74
MesasS:=WinExist()
gui, 77:color, 0
winset, transcolor, 0, ahk_id %MesasS%
gui, 77:-caption -border +alwaysontop
gui, 77:font, s20 w700 verdana
gui, 77:add, text, x2 y0 c00FF00 vContagem, 00
gui, 77:show, x1 y5001 w70 h40 NA, Mesas


;DLL calls
DllCall("LoadLibrary", "str", "dwmapi.dll")							;Load dwmapi.dll for handling thumbnails
DllCall( "RegisterShellHookWindow", UInt,target)						;DLL hook for detecting window activations (for colored active table borders)
MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" )
OnMessage( MsgNum, "ShellMessage" )
}

;Create Empty variables for storing thumbnail links
Loop, 98 {
	source%A_Index%_hnd:=0
	source%A_Index%_thumb:=0
	source%A_Index%_wide:=0
}

MainLoop:
{
setTimer, MainLoop, %refreshratereal%
setTimer, 2ndLoop, %refreshratereal2%
skip:=0

;Get Tables List
WinGet, id, list, ahk_group XTgroup
if (id>idZ)
	idZ:=id

;Find any closed tables
Loop, 98 {
	abc:=source%a_index%_hnd
	IfWinNotExist, ahk_id %abc%
	{
		source%A_Index%_hnd:=0
		source%A_Index%_thumb:=0
		source%A_Index%_wide:=0
	}
}

;Unregister existing thumbs
Loop, 98 {
	unregisterthumbnail(source%A_Index%_thumb)
}

;Register new thumbs
Loop, %id% {
	kk:=id%a_index%
	flag:=0
	loop, 98 {
		if (kk = source%a_index%_hnd) {
			k:=a_index
			break
		}
		if (source%a_index%_hnd=0 and flag=0) {
			k:=a_index
			flag:=1
		}
	}
	tablesw := numtablesw(idZ)
	childwinw := Floor(calcwinsize(tablesw, idZ))
	childwinh := Floor(childwinw * ptablehwratio)
	addchild(k, kk)
}

WinSetTitle, ahk_id %target%, ,%id% Tables Previewed
gui, 76:show, hide
gui, 76:show, NA
skip:=1
}
Return

2ndLoop:
if (skip=1) {
	gui, 72:submit, nohide
	guicontrol, 72:, refreshrateID0, RefreshRate: %refreshrateID%s
	drawborder(1,thisactive)
	drawborder(2,lastactive)

	winget, XTlex, ID, A
	kjkj:=0
	loop, 98 {
		kjkj++
		if (XTlex=source%a_index%_hnd)
			break
	}
	if (kjkj<98) {
		drawExtras(XTlex)
	} else {
		Gui, 77:-alwaysontop
		Gui, 75:-alwaysontop
		winset, Top,, ahk_id %XTlex%
	}
}
return

;Function to register the thumbnail to the GUI
registerthumbnail(target, source, thumbnum) {
	Global

	VarSetCapacity(thumbnail,4,0)
	DllCall("dwmapi\DwmRegisterThumbnail",UInt,target,UInt,source,UInt, &thumbnail)
	thumbnail:=Numget(thumbnail,0,true)
	source%thumbnum%_hnd:=source
	source%thumbnum%_thumb:=thumbnail

	updatethumbnail(source, thumbnum, thumbnail)
}

updatethumbnail(source, thumbnum, thumbnail) {
/*
Function sets thumbnail properties and displays
DWM_TNP_RECTDESTINATION (0x00000001)
Indicates a value for rcDestination has been specified.
DWM_TNP_RECTSOURCE (0x00000002)
Indicates a value for rcSource has been specified.
DWM_TNP_OPACITY (0x00000004)
Indicates a value for opacity has been specified.
DWM_TNP_VISIBLE (0x00000008)
Indicates a value for fVisible has been specified.
DWM_TNP_SOURCECLIENTAREAONLY (0x00000010)
Indicates a value for fSourceClientAreaOnly has been specified.
*/
	Global

	dwFlags:=0X1 | 0x10
	opacity:=150
	fVisible:=1
	fSourceClientAreaOnly:=1

	;Determine where to position thumbnail based on its number
	rownum := Ceil(thumbnum / tablesw)
	colnum := Mod(thumbnum - 1,tablesw)+1
	newx := ((colnum - 1) * childwinw)
	newy := ((rownum - 1) * childwinh)
	neww := newx + childwinw
	newh := newy + childwinh
	new3x:=newx+1+activebordersize
	new3y:=newy-5+activebordersize
	guicontrol, 76: move, Numera%thumbnum%, x%new3x% y%new3y%
	WinGetPos,wx,wy,ww,wh,ahk_id %source%

	;struct _DWM_THUMBNAIL_PROPERTIES
	VarSetCapacity(dskThumbProps,45,0)
	NumPut(dwFlags,dskThumbProps,0,"UInt")
	NumPut(newx,dskThumbProps,4,"Int")								;x coord in relation to the target
	NumPut(newy,dskThumbProps,8,"Int")								;y coord in relation to the target
	NumPut(neww,dskThumbProps,12,"Int")							;x coord of bottom-right of the thumb in relation to the target
	NumPut(newh,dskThumbProps,16,"Int")							;y coord of bottom-right of the thumb in relation to the target
	;NumPut(0,dskThumbProps,20,"Int")								;x coord of source to start capture of image
	;NumPut(0,dskThumbProps,24,"Int")								;y coord of source to start capture of image
	;NumPut(ww-borderx,dskThumbProps,28,"Int")						;x coord of source to end capture of image
	;NumPut(wh-captionh,dskThumbProps,32,"Int")					;y coord of source to end capture of image
	;NumPut(opacity,dskThumbProps,36,"UChar")
	;NumPut(fVisible,dskThumbProps,37,"Int")
	NumPut(fSourceClientAreaOnly,dskThumbProps,41,"Int")
	DllCall("dwmapi\DwmUpdateThumbnailProperties","UInt",thumbnail,"UInt",&dskThumbProps) 
	source%thumbnum%_wide:=ww
}

unregisterthumbnail(unthumbnail) {
	DllCall("dwmapi.dll\DwmUnregisterThumbnail", "UInt", unthumbnail)
}

;Function to determine the optimal number of tables wide to show in preview window
numtablesw(totaltables) {
	if(totaltables>1) {
		global clientareah
		global clientareaw
		global ptablehwratio

		wsize := 0
		wnum := 0
		Loop,%totaltables% {											;The loop value will equal the number of tables per row
			thiswsize := floor(calcwinsize(A_Index, totaltables))
			if (thiswsize >= wsize) {    
				wsize := thiswsize
				wnum := A_Index
			}
		}
		return, %wnum%
	} Else return, 1
}

;Calculates child window size based on number of tables per row
calcwinsize(tblperrow, totaltables) {
	global clientareaw
	global clientareah
	global ptablehwratio

	calcwsize := clientareaw / tblperrow
	calcrownum := ceil(totaltables / tblperrow)
	if ((clientareah / calcrownum) < (ptablehwratio * calcwsize))
		calcwsize := (1 / ptablehwratio) * (clientareah / calcrownum)
	Return, calcwsize
}

;Adds child window to the preview pane
addchild(usenum, previewid) {
	Global childwinw
	Global childwinh
	Global hostwindoww
	Global hostwindowh
	Global target

	if (usenum > 0) {										;If usenum is 0 it is not part of the initial load of existing windows
		registerthumbnail(target, previewid, usenum)
		Return
	}
}

;Function to determine what happens when a thumbnail is clicked
clickevent(wparam) {
	local id2,win,mousex,mousey,thisslot,thisrow,thiscol,xl,xr,yt,yb
	coordmode,mouse,relative
	mousegetpos,mousex,mousey,id2
	mousex-=borderx
	mousey-=captionh
	
	if (a_gui=73) {
		gui, 72:show, x%borderguix% y%borderguiy%
		gosub, Saved72
	}
	if (id2=target) {
		if (id>0) {
			;Calculate slot number
			thisrow:=Ceil((mousey+1) / childwinh)
			thiscol:=Ceil((mousex+1) / childwinw)
			thisslot:=((thisrow-1)*tablesw)+thiscol
			win:=source%thisslot%_hnd

			WinGetPos, newnew, newnew2, tablew, tableh, ahk_id %win%
			tablew-=borderxX*2-2			;14
			tableh-=borderxX*2-bordery		;13
			tableh-=captionh
			getcoordsinv(thisslot,thisrow,thiscol,tablew,tableh,mousex,mousey,MX,MY)
			MX:=MX+borderxX							;8
			MY:=MY+borderxX+captionh-bordery			;30
			winactivate, ahk_id%win%
			controlclick, x%MX% y%MY%, ahk_id%win% ,,,,NA
;			MX:=MX+newnew
;			MY:=MY+newnew2
;			winmove, Porp,,%MX%,%MY%
		}
	}
}

getcoordsinv(calcslot,thisrow,thiscol,tablew,tableh,rectx,recty,ByRef thisx,ByRef thisy) {
	Global

	thisx:= ((thiscol-1) * childwinw)
	thisy:= ((thisrow - 1) * childwinh)
	thisx:=(rectx-thisx)*tablew/childwinw
	thisy:=(recty-thisy)*tableh/childwinh
	return
}

;Function for docking the border gui's to the preview window
WM_WINDOWPOSCHANGING(wParam, lParam) {
	Global

	if (A_Gui = 99) && !(NumGet(lParam+24) & 0x2)				; SWP_NOMOVE=0x2 
	{
		; Since WM_WINDOWPOSCHANGING happens *before* the window moves,
		; we must get the new position from the WINDOWPOS pointed to by lParam.
		borderguix := NumGet(lParam+8,0,"int")
		borderguiy := NumGet(lParam+12,0,"int")

		x76:=borderguix+borderx
		y76:=borderguiy+captionh
		winmove, ahk_id %MaskK%,, %x76%, %y76%
		x73:=borderguix+hostwindoww-30
		y73:=borderguiy+20
		winmove, ahk_id %g73%,, %x73%, %y73%

		If(thisactive>0)
			Gui, 1:Show, X%borderguix% Y%borderguiy% NA
		
		if(lastactive>0)
			Gui, 2:Show, X%borderguix% Y%borderguiy% NA
	}
}

;Function for detecting window activations for setting border colors
ShellMessage( wParam,lParam ) {
	Global

	If ((wParam = 4 or wParam = 32772) And WinExist( "ahk_id " lParam ))		;  HSHELL_WINDOWACTIVATED = 4, HSHELL_RUDEAPPACTIVATED = 32772
	{
		matchcnt:=0
		Loop, 98 {
			matchcnt++
			if (source%matchcnt%_hnd = lParam)
				break
		}
		if (matchcnt < 98)
			drawExtras(lparam)
		if (matchcnt < 98 and thisactive != lParam) {
			lastactive:=thisactive
			thisactive:=lParam
			drawborder(1,thisactive)
			drawborder(2,lastactive)
		}
	}
}

drawborder(guinum, active) {
	Global

	if (active) {
		slotnumb:=0
		Loop, 98 {
			slotnumb++
			if (source%slotnumb%_hnd = active)
				break
		}
	;Get the thumbnail outer edge coords
	thisrow:=Ceil(slotnumb/tablesw)
	thiscol:=Mod(slotnumb - 1,tablesw)+1
	xl:= (thiscol-1) * childwinw +borderx
	xr:= (thiscol) * childwinw +borderx
	yt:= (thisrow-1) * childwinh +captionh
	yb:= (thisrow) * childwinh +captionh

	if(guinum=1)
		thisgui:=activegui
	else
		thisgui:=lactivegui

	xli:=xl+activebordersize
	xri:=xr-activebordersize
	yti:=yt+activebordersize
	ybi:=yb-activebordersize

	WinSet, Region, %xl%-%yt% %xr%-%yt% %xr%-%yb% %xl%-%yb% %xl%-%yt%   %xli%-%yti% %xri%-%yti% %xri%-%ybi% %xli%-%ybi% %xli%-%yti%, ahk_id %thisgui%
	Gui, %guinum%:Show, x%borderguix% y%borderguiy% W%hostwindoww2% H%hostwindowh2% NA
	}
}

drawExtras(XTlex) {
	Global
		wingetpos, XT1, XT2, XT3, XT4, ahk_id %XTlex%
		loop, 98 {
		if (XTlex = source%A_Index%_hnd) {
			XTlex2:=a_index
			break
		}
		}
		XT1-=5
		XT3+=10
		XT4+=5
		XT15:=XT3-activebordersize
		XT16:=XT4-activebordersize
		WinSet, Region, 0-0 %XT3%-0 %XT3%-%XT4% 0-%XT4% 0-0   %activebordersize%-%activebordersize% %XT15%-%activebordersize% %XT15%-%XT16% %activebordersize%-%XT16% %activebordersize%-%activebordersize%, ahk_id %XT0%
		gui, 75:show, w%XT3% h%XT4% x%XT1% y%XT2% NA
		gui, 75:+alwaysontop

		XT15:=XT1+activebordersize
		XT16:=XT2+activebordersize-4
		GuiControl, 77:text, Contagem, %XTlex2%
		winmove, ahk_id %MesasS%,, %XT15%, %XT16%
		Gui, 77:+alwaysontop
}

Form1_Close:
	ExitApp
return

chosenhotkey:
{
flag2:=0
idZ:=0
loop, 97 {
	if (flag2=1)
		break
	flag2:=0
	loop, 98 {
		kkk:=a_index+1
		guicontrol, 76: move, Numera%a_index%, x1 y5100
		if (source%a_index%_hnd=0 and a_index<98) {
			source%a_index%_hnd:=source%kkk%_hnd
			source%a_index%_wide:=source%kkk%_wide
			source%a_index%_thumb:=source%kkk%_thumb
			source%kkk%_hnd:=0
			source%kkk%_wide:=0
			source%kkk%_thumb:=0
		}
		if (source%a_index%_hnd=0 and flag2=0)
			flag2:=1
		if (source%a_index%_hnd!=0 and flag2=1)
			flag2:=2
	}
}
}
return

Button72:
{
gui, 72:submit, nohide
if (chosenhotkeysave)
	hotkey, %chosenhotkeysave%, chosenhotkey, OFF
if (chosenhotkey)
	hotkey, %chosenhotkey%, chosenhotkey, ON
chosenhotkeysave:=chosenhotkey
refreshratesave:=refreshrateID
refreshratereal:=refreshratesave*1000
refreshratereal2:=refreshratesave*200
}
return

Default72:
guicontrol, 72:, chosenhotkey, %chosenhotkeydefault%
guicontrol, 72:, refreshrateID, %refreshratedefault%
return

Saved72:
guicontrol, 72:, chosenhotkey, %chosenhotkeysave%
guicontrol, 72:, refreshrateID, %refreshratesave%
return