Code: Select all
#SingleInstance, Force
Gui,1:Add,Button,x50 y75 w100 h50 gBtSelectArea, Select Area
Gui,1:+alwaysOnTop
Gui,1:Show, x100 y100 w200 h200, Area selecter
Return
BtSelectArea:
CoordMode, Mouse, Screen
CoordMode, Pixel, Screen
Hotkey, Rbutton, SelectArea
SetTimer, area, 0
Gui, 2:New
Gui, 2:-Caption Border +AlwaysOnTop
Gui, 2:Color, 0xD0FFFF
Gui, 2:+LastFound
WinSet, Transparent, 100
Return
SelectArea:
SetTimer, area, Off
Gui, 2:Default
MouseGetPos, x1, y1
while GetKeyState("RButton", "P")
{
ToolTip, %x1%`, %y1%`, %x2%`, %y2%
MouseGetPos, x2, y2
x3 := x2 - x1
y3 := y2 - y1
Gui, 2:Show, x%x1% y%y1% w%x3% h%y3%
}
Gui, 2:Cancel
MsgBox, %x1%, %y1%, %x2%, %y2%
ToolTip, Area Selected
Sleep, 1000
ToolTip
SetTimer, area, 0
return
End::ExitApp,
area:
ToolTip, Select un area
Return