get z order (zorder) + overlapped

[Gintaras]

Macro Macro2430

Code:

Copy      Help

out
int w=win("" "QM_Editor")

int k
RECT r r2 r3; DpiGetWindowRect w &r

out "<><Z 0x80ff80>Visible windows above w in Z order:</Z>"
k=w
rep
,k=GetWindow(k GW_HWNDPREV)
,if(!k) break
,if(!IsWindowVisible(k)) continue
,outw k
,DpiGetWindowRect k &r2; if(IntersectRect(&r3 &r2 &r)) out "<><c 0xff>(overlaps w)</c>"

out "<><Z 0x80ff80>Visible windows below w in Z order:</Z>"
k=w
rep
,k=GetWindow(k GW_HWNDNEXT)
,if(!k) break
,if(!IsWindowVisible(k)) continue
,outw k

out "<><Z 0x80ff80>All visible windows in Z order, w blue:</Z>"
ARRAY(int) a; int i
win("" "" "" 0 "" a)
for i 0 a.len
,k=a[i]
,outw k 0 _s
,if(k=w) out F"<><c 0xff0000>{_s}</c>"
,else out _s