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

Stelle Fragen zur Programmierung mit Autohotkey

Moderator: jNizM

songoku
Posts: 64
Joined: 12 Apr 2018, 13:22

X1, Y1, X2, Y2 Positionen ermitteln

30 Oct 2018, 18:23

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
Posts: 40
Joined: 29 Jul 2018, 11:30

Re: X1, Y1, X2, Y2 Positionen ermitteln

31 Oct 2018, 00:51

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
Posts: 64
Joined: 12 Apr 2018, 13:22

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

31 Oct 2018, 16:56

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
Posts: 40
Joined: 29 Jul 2018, 11:30

Re: X1, Y1, X2, Y2 Positionen ermitteln

01 Nov 2018, 12:31

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


Return to “Ich brauche Hilfe”

Who is online

Users browsing this forum: No registered users and 15 guests