8 replies to this topic

[Learning one]

WARNING: This is old thread. It is continued here.

 

This method was presented before but here is my version. See also: LetUserSelectRect
License: In my opinion, this code isn't capable to be protected by nobodies copyright - so it can be used freely. In case it's under my copyright, I declare it public domain.

Function

SelectArea(Options="") { ; by Learning one
/*
Returns selected area. Return example: 22|13|243|543
Options: (White space separated)
- c color. Default: Blue.
- t transparency. Default: 50.
- g GUI number. Default: 99.
- m CoordMode. Default: s. s = Screen, r = Relative
*/
CoordMode, Mouse, Screen
MouseGetPos, MX, MY
CoordMode, Mouse, Relative
MouseGetPos, rMX, rMY
CoordMode, Mouse, Screen
loop, parse, Options, %A_Space%
{
Field := A_LoopField
FirstChar := SubStr(Field,1,1)
if FirstChar contains c,t,g,m
{
StringTrimLeft, Field, Field, 1
%FirstChar% := Field
}
}
c := (c = "") ? "Blue" : c, t := (t = "") ? "50" : t, g := (g = "") ? "99" : g , m := (m = "") ? "s" : m
Gui %g%: Destroy
Gui %g%: +AlwaysOnTop -caption +Border +ToolWindow +LastFound
WinSet, Transparent, %t%
Gui %g%: Color, %c%
Hotkey := RegExReplace(A_ThisHotkey,"^(\w* & |\W*)")
While, (GetKeyState(Hotkey, "p"))
{
Sleep, 10
MouseGetPos, MXend, MYend
w := abs(MX - MXend), h := abs(MY - MYend)
X := (MX < MXend) ? MX : MXend
Y := (MY < MYend) ? MY : MYend
Gui %g%: Show, x%X% y%Y% w%w% h%h% NA
}
Gui %g%: Destroy
if m = s ; Screen
{
MouseGetPos, MXend, MYend
If ( MX > MXend )
temp := MX, MX := MXend, MXend := temp
If ( MY > MYend )
temp := MY, MY := MYend, MYend := temp
Return MX "|" MY "|" MXend "|" MYend
}
else ; Relative
{
CoordMode, Mouse, Relative
MouseGetPos, rMXend, rMYend
If ( rMX > rMXend )
temp := rMX, rMX := rMXend, rMXend := temp
If ( rMY > rMYend )
temp := rMY, rMY := rMYend, rMYend := temp
Return rMX "|" rMY "|" rMXend "|" rMYend
}
}

Examples:

Rbutton::MsgBox,,, % SelectArea(), 1.5
Mbutton::MsgBox,,, % SelectArea("cLime t100 g55 mr"), 1.5

[majkinetor]

License: In my opinion, this code isn't capable to be protected by nobodies copyright - so it can be used freely.

You can consider Unlicensed copyright.

IMO, the best one out there.

[Learning one]

First post edited - I explicitly "unlicensed" myself (in case that code is under my copyright)

[majkinetor]

This method was presented before, but nobody created function so I did.

There is also LetUserSelectRect.

[Learning one]

For everybody's reference, link included in first post

[Learning one]

Can you explain the regex? ... I guess the idea is to remove modifiers?

Yes, my intention was to remove:
- modifiers or
- first key in two key combination hotkeys where & stands between them.

^!f2 hotkey doesn't work as intended indeed because there are 2 not word characters. Thanks for report. Here is the RegEx fix:

Hotkey := RegExReplace(A_ThisHotkey,"^(\w* & |\W[color=red]*[/color])")

I updated first post.