X1, Y1, X2, Y2 Positionen ermitteln Topic is solved

[songoku]

Guten Abend,
würde gerne mit der rechten Maustaste ein Rechteck ziehen, die Koordinaten für X1, Y1, X2, Y2 beim loslassen in Zwischenablage speichern.
Wie kann ich das realisieren?
Gruß und Dank im Voraus.

[aifritz]

so sollte es klappen

Code: Select all

;Screen: (Standard, wenn nicht definiert) Koordinaten beziehen sich auf den Desktop (ganzer Bildschirm).
;Relative: Koordinaten beziehen sich auf das aktive Fenster.
CoordMouse = Screen

*~LButton::
  ClipBoard =
	CoordMode, Mouse, %CoordMouse%
	MouseGetPos, x1, y1
  ClipBoard := x1 ", " y1
return

*~LButton Up::
	CoordMode, Mouse, %CoordMouse%
	MouseGetPos, x2, y2
  ClipBoard .= ", " x2 ", " y2
  ;tooltip % clipboard
return

[songoku]

vielen lieben Dank, funktioniert sehr gut!
habe versucht, das ganze zu visualisieren, mit WinSet, doch es funktioniert nicht Optimal.
Gibt es eine Möglichkeit, das ganze, während man den Mauszeiger zieht zu visualisieren?
LG

Code: Select all

CoordMouse = Screen

*~RButton::
ClipBoard =
CoordMode, Mouse, %CoordMouse%
MouseGetPos, x1, y1	
ClipBoard := x1 ", " y1
return

*~RButton Up::
CoordMode, Mouse, %CoordMouse%
MouseGetPos, x2, y2
ClipBoard .= ", " x2 ", " y2
;tooltip % clipboard


c := x2-x1
d := y2-y1
WinSet, Region, %x1%-%y1% W%c% H%d%, A,,,
sleep, 1000
WinSet, Region,, A,,,
return

[aifritz]

Das könnte man z.B. so machen:

Code: Select all

*~LButton::
  ClipBoard =
  CoordMode, Mouse, Screen
  MouseGetPos, x1, y1
  ClipBoard := x1 ", " y1
  while, GetKeyState("LButton")
    {
      MouseGetPos, x2, y2
      tooltip % x1 ", " y1 ", " x2 ", " y2
      Sleep 300
    }
  ClipBoard .= ", " x2 ", " y2

  tooltip % "Im ClipBoard gespeichert: " x1 ", " y1 ", " x2 ", " y2
  Sleep 2000
  tooltip ;entfernen
return