- 63 名前：名無しさん＠お腹いっぱい。 mailto:sage [2009/05/28(木) 22:02:37 ID:k3jZrIoJ0]
- マウス周囲のを指定した大きさの正方形でデスクトップまで穴をあける。再度呼び出すと元に戻す。
~RCtrl::ClipWindow()
ClipWindow(size=200, ignoreClassPattern="Shell_TrayWnd|BaseBar") {
static clipped
If (!clipped) {
DetectHiddenWindows, Off
CoordMode, Mouse, Screen
MouseGetPos, mx, my
WinGet, list, List
Loop, % (list-1) {
IfWinNotExist, % "ahk_id " list%A_Index%
continue
WinGetClass, class
If ignoreClassPattern && RegExMatch(class, ignoreClassPattern)
continue
WinGetPos, x, y, w, h
mx1:=mx-x-size//2, my1:=my-y-size//2, mx2:=mx-x+size//2, my2:=my-y+size//2
If (mx1>w || my1>h || mx2<0 || my2<0)
continue
WinSet, Region, 0-0 %w%-0 %w%-%h% 0-%h% %mx1%-%my1% %mx2%-%my1% %mx2%-%my2% %mx1%-%my2% %mx1%-%my1% 0-%h%
clipped := list%A_Index% . (clipped ? "|" : "") . clipped
}
} else {
DetectHiddenWindows, On
Loop, PARSE, clipped, |
WinSet, Region,, ahk_id %A_LoopField%
clipped=
}
}
|
 |
