Can anyone show me how/if this can be done?
I can only figure out how to draw a GUI from TopLeft to BottomRight.
Code: Select all
#SingleInstance Force
RButton::
{ MouseGetPos, Xpos, Ypos
X1 := (Xpos), Y1 := (Ypos)
Gui, 1: +Alwaysontop -Caption +E0x20
Gui, 1: Color, Lime
Gui, 1: Show, NA x%X1% y%Y1%, Horizontal ;StartPoint
WinSet, Transparent, 50, Horizontal
SetTimer, ReSize, 1
KeyWait, RButton
SetTimer, ReSize, OFF
Gui, 1: Destroy
} Return
ReSize:
{ MouseGetPos, Xpos, Ypos
X2 := (Xpos - X1), Y2 := (Ypos - Y1)
If ((X2 <= -1) AND !(Y2 <= -1)) ;Down & Left
{
SoundBeep, 200, 10
Sleep, 5
}
If (!(X2 <= -1) AND (Y2 <= -1)) ;Right & Up
{
SoundBeep, 300, 10
Sleep, 5
}
If ((X2 <= -1) AND (Y2 <= -1)) ;Left & Up
{
SoundBeep, 500, 10
Sleep, 5
}
If ((X2 >= 1) AND (Y2 >= 1)) ;Down & Right
{ Gui, 1: Show, NA H%Y2% W%X2%, Horizontal ;EndPoint
SoundBeep, 700, 10
} ToolTip, X1. %X1% Y1. %Y1% `nX2. %X2% Y2. %Y2%,,
SetTimer, RemoveToolTip, -100
} Return
RemoveToolTip:
{ ToolTip
} Return
~Esc::ExitApp