AutoHotkey Community

/*
Flashy and impractical color picker
Build (0.1)
Released (12.16.10)
Framework
(
Written in AHK_L (Version v1.0.48.05.L61)
www.autohotkey.net/~Lexikos/AutoHotkey_L
©2003-2009 Chris Mallett, portions ©AutoIt Team and various AHK community members
)
Platforms tested (XP_32+64)
Language (English native + os dependent)
Author (The Naked General _ jamixzol@gmail.com)


DEPENDENCIES:
the colorpicker4ahk.jpg located at www.autohotkey.net/~jamixzol/colorpicker4ahk.jpg
It is written in AHK_L COM compliant syntax

TEST ENVIRONMENT:
Built and tested in Windows XP X64 sp3. Written in AHL_L_10.48.05.L61 with SciTE4AHK

*/


; This uses the image as a pallet
Gui, -Caption +ToolWindow +LastFound +AlwaysOnTop
GUI, add, pic, , colorpicker4ahk.jpg ;assumed to be in the directory with the script
Gui, Show
Gui, Color, 000000
;WinSet, TransColor, FFFFFF (This didn't work lawls)

;This is the color frame initialization
Gui, 2:-Caption +ToolWindow +LastFound +AlwaysOnTop
Gui, 2:Font, s12 cBlack ;Set font size & color
Gui, 2:Add, Text, x5 y5 w75 center vupdatetxt, FFFFFF

;Initialize this if you call it from somewhere else
showpad=1

Loop
{
CoordMode, Mouse, Screen
MouseGetPos X, Y
PixelGetColor Color, X, Y, RGB
ColorD := Color ;build an int based variable
StringRight, color, color, 6 ;removes 0x prefix
SetFormat, IntegerFast, d
ColorD += 0  ; Sets Var (which previously contained 11) to be 0xb.
ColorD .= ""  ; Necessary due to the "fast" mode.

Gui, 2:Color, %color%
CoordMode, Pixel
mx := X - 90
my := Y - 40
Gui, 2:-Caption +ToolWindow +LastFound +AlwaysOnTop +Border

Gui, 2:Show, NoActivate x%mX% y%mY% w85 h30
if (ColorD < 3158064)
{
Gui, 2:Font, cWhite  ; If desired, use a line like this to set a new default font for the window.
GuiControl, 2:Font, updatetxt
}
if (ColorD >= 3158064)
{
Gui, 2:Font, cBlack
GuiControl, 2:Font, updatetxt  ; Put the above font into effect for a control.
}
guicontrol,2: , updatetxt, %color% ;Update the text
Sleep 50
}Until showpad=0 ;WARNING AHK_L SYNTAX

~lButton:: ; Set the shortcut to be used to catch the color under mouse.
SetTimer, killgui, 500
;messagebox BONK
If (showpad=1)
MsgBox The color you picked is 0x%color% ;final color chosen
;Clipboard = %color% ;or stick it to the clipboard
showpad=0 ;break the loop
Return

esc::
Pause
Return ;just in case of emergency

;tell your GUIs to step up off
killgui:
gui, hide
gui, 2:hide
If (showpad=0) ;waiting for the bonk
{
ExitApp ;^ or just hide them
    SetTimer, killgui, Off ;stop killing stuff
}
Else
SetTimer, killgui, 500 ;kill away

Return

;===Auto-execute========================================================================
OnExit, ExitSub
FileFullPath := A_ScriptDir "\HSB wheel.jpg"
IfNotExist, %FileFullPath%
{
   URLDownloadToFile, http://oi53.tinypic.com/2gtombt.jpg, %FileFullPath%
   MsgBox,,, Download complete,1
}
ColorPicker("Init", FileFullPath)
return


;===Hotkeys=============================================================================
F1::MsgBox,,, % ColorPicker("Pick"), 1
Esc::ExitApp


;===Subroutines=========================================================================
ExitSub:
ColorPicker("OnExit")
ExitApp


;===Functions===========================================================================
#Include Gdip.ahk            ; by Tic

ColorPicker(cmd, param1="", param2="") {   ; by Learning one. Not finished!
   static  pToken, pBitmap, Width, Height, GuiNum
   if cmd = Init
   {
      IfNotExist, %param1%
      {
         MsgBox, 64, File not found, %param1% not found.`n`nApplication will exit.
         ExitApp
      }
      pToken := Gdip_Startup()
      if pToken =
      {
         MsgBox, 64, GDI+ error, GDI+ failed to start. Please ensure you have GDI+ on your system.`n`nApplication will exit.
         ExitApp
      }
      pBitmap := Gdip_CreateBitmapFromFile(param1)
      param2 := (param2) ? param2 : 99
      GuiNum := (GuiNum) ? GuiNum : param2
      Gui %GuiNum%: -Caption +E0x80000 +LastFound +ToolWindow +AlwaysOnTop +OwnDialogs
      Gui %GuiNum%: Show, hide
      hwnd1 := WinExist()
      Width := Gdip_GetImageWidth(pBitmap), Height := Gdip_GetImageHeight(pBitmap)
      hbm := CreateDIBSection(Width, Height), hdc := CreateCompatibleDC(), obm := SelectObject(hdc, hbm)
      G := Gdip_GraphicsFromHDC(hdc), Gdip_SetSmoothingMode(G, 4), Gdip_SetInterpolationMode(G, 7)
      Gdip_DrawImage(G, pBitmap, 0, 0, Width, Height)
      UpdateLayeredWindow(hwnd1, hdc, (A_ScreenWidth-Width)/2, (A_ScreenHeight-Height)/2, Width, Height)
      SelectObject(hdc, obm), DeleteObject(hbm), DeleteDC(hdc), Gdip_DeleteGraphics(G)
      Return hwnd1
   }
   else if (cmd = "Pick" or cmd = "select")
   {
      CoordMode, mouse, screen
      MouseGetPos, x1,y1
      Hotkey := RegExReplace(A_ThisHotkey,"^(\w* & |\W*)")
      GuiX := x1 - Width/2, GuiY := y1 - Height/2
      Gui %GuiNum%:Show, x%GuiX% y%GuiY% NA
      KeyWait, %Hotkey%
      MouseGetPos, x2,y2
      SelectedColor := Gdip_GetPixel(pBitmap, x2-GuiX, y2-GuiY)
      Gui %GuiNum%:Hide
      SetFormat, Integer, hex
      return SelectedColor
   }
   else if cmd = OnExit
   Gdip_DisposeImage(pBitmap), Gdip_Shutdown(pToken)
}