All pastes #829562 Raw Edit

coordinator patch

public text v1 · immutable
#829562 ·published 2007-12-23 07:44 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($color)
	Exit
EndFunc

Do
	$pos = MouseGetPos()
	$color = PixelGetColor($pos[0]-2, $pos[1]-2)
	; red = BitShift($color, 16)
	; green = BitAND(BitShift($color, 8), 255)
	; blue = BitAND($color, 255)
	ToolTip("x: " & $pos[0] & " y: " & $pos[1] & " colour: #" & Hex($color))
	Sleep(125)
Until 1 = 0