All pastes #829499 Raw Edit

Untitled

public text v1 · immutable
#829499 ·published 2007-12-23 06:08 UTC
rendered paste body
; COORDINATOR!
; Shows mouse coordinate within current window, and colour at pointer in tooltip

AutoItSetOption ("MouseCoordMode", "0")
AutoItSetOption ("PixelCoordMode", "0")

HotKeySet("{ESC}", "CopyIt")

Func CopyIt()
	ClipPut($colour)
EndFunc

Do
	$beep = MouseGetPos()
	$colour = PixelGetColor($beep[0]-2, $beep[1]-2)
	ToolTip("x: " & $beep[0] & " y: " & $beep[1] & " colour: " & $colour)
	Sleep(125)
Until 1 = 0