[Autohotkey] Paste hex color into Windows color picker

pastecolor.ahk

HexToDec(h) {
  SetFormat, integer, D
  d := 0
  d += "0x" h
  return, d
}

PasteColor() {
  c := Clipboard
  If (RegExMatch(c, "^#[A-Za-z0-9]{6}$")) {
    r := HexToDec(SubStr(c, 2, 2))
    g := HexToDec(SubStr(c, 4, 2))
    b := HexToDec(SubStr(c, 6, 2))
    ; MsgBox %c% -> %r% %g% %b%
    ControlSetText, Edit4, %r%, A
    ControlSetText, Edit5, %g%, A
    ControlSetText, Edit6, %b%, A
  } else {
    MsgBox No recognized color found in clipboard
  }
}

#IfWinActive Color ahk_class #32770
^v::PasteColor()
#IfWinActive