AutoHotkey Community

#SingleInstance force
setbatchlines, -1
SetWinDelay, -1
menu, tray, tip, pixelget2
CoordMode, Mouse, Screen
CoordMode, Pixel, Screen
toggle = 0

IniRead, FontColor, settings.ini, font, color
IniRead, BGColor, settings.ini, background, color
IniRead, Clpbrd, settings.ini, to clipboard, hotkey
IniRead, Cllct, settings.ini, collect colors, hotkey
IniRead, Mode, settings.ini, color mode, hex/dec
Hotkey, %Clpbrd%, Clipboard
Hotkey, %Cllct%, Collect
sleep, 100

Gui, +ToolWindow +AlwaysOnTop -SysMenu -Caption +Border
Gui, color, c%bgcolor%
Gui, Font, c%fontcolor% s8 wBold, Lucida Console
Gui, Add, Text, x2 y7 w66 +center vCurrentPixel, %color%
SetTimer, Get, 100

Menu, Tray, NoStandard ; only use this menu
Menu, Tray, Click, 1  ; Remove this line if you prefer double-click vs. single-click.
Menu, Tray, Add, &Show/Hide, View
Menu, Tray, Default, &Show/Hide
Menu, Tray, Add, &Edit Settings, Settings
Menu, Tray, Add, &Reload, Reload
Menu, Tray, Add, E&xit, Exit
return

Get:
MouseGetPos, MouseX, MouseY ; get mouse coords

if (MouseX >= (A_ScreenWidth * 0.90))
  textx := MouseX - 80
else
  textx := MouseX + 20

if (MouseY >= (A_ScreenHeight * 0.92))
  texty := MouseY - 40
else
  texty := MouseY + 20

PixelGetColor, color, %MouseX%, %MouseY%, RGB ; get pixel color
GuiControl, , CurrentPixel, %color%
Gui, Show, NoActivate w70 h25 x%textx% y%texty%, pixelget2
return

Clipboard:
  ControlGetText, color, Static1, pixelget2
  StringTrimLeft, color, color, 2
  if mode = dec
    gosub, hex2dec
  else
    Clipboard = %color%
    Return

Collect:
  ControlGetText, color, Static1, pixelget2
  StringTrimLeft, color, color, 2
  if mode = dec
  {
    gosub, hex2dec
    FileAppend, %color%`n, colors.txt
    return   
  }
  else
    Clipboard = %color%
    FileAppend, %color% `n, colors.txt
    return

^Q::
exitapp

View:
if toggle = 0
{
  toggle = 1
  Gui, Submit
  SetTimer, Get, off
  pause
  suspend
}
else
{
  toggle = 0
  SetTimer, Get, 100
  pause
  suspend
}
return

Settings:
run, settings.ini
return

Reload:
reload
return

Exit:
exitapp

hex2dec:
StringMid, r, color, 1, 2
StringMid, g, color, 3, 2
StringMid, b, color, 5, 2

red = 0x%r%
green = 0x%g%
blue = 0x%b%

SetFormat, integer, d
red += 0
green +=0
blue +=0
SetFormat, integer, hex

color = %red%`,%green%`,%blue%
Clipboard = %color%
return

Gui, Show, NoActivate w70 h25 x%textx% y%texty%, pixelget2

CoordMode, Mouse, Screen
CoordMode, Pixel, Screen

; display current screen coords and pixel color in a tooltip

loop
{
Coordmode, Mouse, Screen
MouseGetPos, MouseX, MouseY
PixelGetColor, Color, %MouseX%, %MouseY%, RGB
tooltip, %Color% `nx%MouseX% y%MouseY%
sleep, 10
}

    MouseGetPos, captX, captY, captWin, captControl
    captFullDetail = - Window: ID_%captWin%`n     > Control: %captControl%`n- Mouse: (x%captX%`, y%captY%)`n- Time (YYYYMMDDHH24MISS): %A_Now%`n`n
   FileAppend, Colour: %color%`n-------------------------`n%captFullDetail%, colors.txt

if (MouseY >= (A_ScreenHeight * 0.85))
   texty := MouseY - 20
else
   texty := MouseY + 20