corz.org text viewer..
[currently viewing: /public/machine/source/windows/color pickin chooser.au3 - raw]
[currently viewing: /public/machine/source/windows/color pickin chooser.au3 - raw]
click here for plain text
click here for more groovy stuff like this
#cs
corz color pickin chooser
a color picker to use on your desktop, or in your AutoIt applications.
for information, see here..
http://corz.org/windows/software/color-pickin-chooser/
http://www.autoitscript.com/forum/index.php?showtopic=53840
have fun!
;o)
(or
If you are compiling this yourself, you need to use "AutoIt Wrapper"
to add the extra icons. You will also need to use AT LEAST version
1.9.3 of AutoIt Wrapper for the paths to work correctly. You can
download it here..
http://www.autoitscript.com/autoit3/scite/downloads.shtml
© 2007-> (or @ corz.org ;o)
#ce
; if you don't have these includes, go here..
; http://corz.org/engine?section=windows%2FAutoIt%20Includes
#include ".\Include\corz_essentials.au3"
#include ".\Include\corz_gui_fx.au3"
#include ".\Include\corz_colors.au3"
#include ".\Include\corz_tips.au3"
; Establish whether we are running stand-alone or included in some other app..
$cpc_stand_alone = true ;distro
; or..
;
;if StringInStr(@ScriptName, "color pickin chooser") then $cpc_stand_alone = true
;
; Setting this up makes it a breeze to develop this and (your app) simultaneously.
; Running either, works. It also enables us to pull-off a few other tricks.
; The downside is that if you compile a "final" stand-alone version with the
; conditional code in-place, renaming color pickin chooser to something else
; would prevent it from running. It's for the development process, only.
; Constantinos..
;
##include <Constants.au3>
##include <GuiConstants.au3>
; it's no problem to delete all the constants below and simply uncomment the two constants file include lines (above)
; these constants are unique to the color pickin chooser..
const $CC_ANYCOLOR = 0x100
const $CC_FULLOPEN = 0x2
const $CC_RGBINIT = 0x1
const $TRAY_CHECKED = 1
const $TRAY_UNCHECKED = 4
const $BS_AUTOCHECKBOX = 0x0003
const $BS_ICON = 0x0040
const $WS_TABSTOP = 0x00010000
const $WS_MINIMIZEBOX = 0x00020000
const $WS_SYSMENU = 0x00080000
const $WS_SIZEBOX = 0x00040000
const $ES_MULTILINE = 4
const $SS_SUNKEN = 0x1000
const $SS_LEFTNOWORDWRAP = 12
const $GUI_BKCOLOR_TRANSPARENT = -2
const $GUI_WS_EX_PARENTDRAG = 0x00100000
const $GUI_DOCKBORDERS = 0x0066
const $GUI_DOCKLEFT = 0x0002
const $GUI_DOCKRIGHT = 0x0004
const $GUI_DOCKBOTTOM = 0x0040
const $GUI_DOCKWIDTH = 0x0100
const $GUI_DOCKHEIGHT = 0x0200
const $GUI_DEFBUTTON = 512
const $GUI_ONTOP = 2048
; these constants are also in the master app (e.g. clock)..
; (we only load them when running in stand-alone mode)
; if your app doesn't declare any of these.. you will need
; to move those constants to the "unique" section above.
if $cpc_stand_alone then
const $TRAY_EVENT_PRIMARYDOWN = -7
const $GUI_EVENT_CLOSE = -3
const $GUI_EVENT_DROPPED = -13
const $GUI_CHECKED = 1
const $GUI_UNCHECKED = 4
const $GUI_DROPACCEPTED = 8
const $GUI_FOCUS = 256
const $CBS_DROPDOWN = 0x0002
const $CBS_AUTOHSCROLL = 0x0040
const $CBS_SORT = 0x0100
const $ES_NUMBER = 8192
const $WS_VSCROLL = 0x00200000
const $WS_CAPTION = 0x00C00000
const $WS_MINIMIZE = 0x20000000
const $WS_POPUP = 0x80000000
const $WS_EX_ACCEPTFILES = 0x00000010
const $WS_EX_TOOLWINDOW = 0x00000080
const $WS_EX_TOPMOST = 0x00000008
const $SS_NOTIFY = 0x0100
const $BS_CENTER = 0x0300
const $BS_VCENTER = 0x0C00
const $BS_PUSHLIKE = 0x1000
const $TBS_NOTICKS = 0x0010
endif
; so, we are on our own..
if $cpc_stand_alone then
ce_Singleton("ColorPickinChooser")
ColorPickinChooser()
exit
endif
; main function..
;
func ColorPickinChooser($set_color="", $scheme="", $autoit_val=false, $func="")
; initialize variables and GUI
cpc_Setup()
cpc_InitColorWells()
if $scheme <> "" then
if InArray($group_names, $scheme) then
$cpc_my_group = $scheme
GUICtrlSetData($combo_custom_groups, $cpc_my_group)
cpc_LoadColorGroup()
endif
endif
if $set_color <> "" then
if StringLen($set_color) <> 6 then $set_color = StringRight($set_color, 6)
$cpc_my_color = $set_color
endif
global $do_func = $func
cpc_UpdateImageContextMenu()
cpc_SwitchImage($cpc_picker_image)
; get the colors ready..
cpc_UpdateHexOutput($cpc_my_color)
cpc_AddHex()
cpc_SetColor(true) ; true for first run
local $last_event_mode = AutoItSetOption("GUIOnEventMode", 1)
local $last_traymenu_mode = AutoItSetOption("TrayMenuMode", 1)
local $last_trayonevent_mode = AutoItSetOption("TrayOnEventMode", 1)
; show the gui..
corz_GUIAnimateOpen($gui_color, $cpc_gui_fx)
cpc_ToggleOnTopWin(true)
cpc_ToggleOnTopWin(true)
cpc_ToggleLiveTitleBar(true)
cpc_ToggleLiveTitleBar(true)
if $cpc_stand_alone then
cpc_ToggleDoneQuits(true)
cpc_ToggleDoneQuits(true)
endif
cpc_LoadMag()
GUICtrlSetState($combo_custom_groups, $GUI_FOCUS)
$color_set = 0
global $do_quit = false
global $cpc_killed = false
global $super_mag = false
$left_window = false
; tricks and tips..
if $cpc_no_tips = $GUI_UNCHECKED or ce_IsPressed(10) then
cpc_HotKeyShowTips()
endif
; main loop..
;
while not $do_quit
if $do_func <> "" then
Call($do_func)
endif
sleep(75)
local $mouse_info = GUIGetCursorInfo() ; help file page for this command needs a decent hover example!
; in fact, *any* decent examples would be good.
if $mouse_info = 0 then
$left_window = true
cpc_UnSetHotKeys()
else
cpc_SetHotKeys()
if $super_mag and $left_window = true then ; back inside the gui
cpc_SwitchOffSuperMag()
endif
$left_window = false
endif
if not IsArray($mouse_info) then continueloop ; outside gui
local $MousePos = MouseGetPos()
if not IsArray($MousePos) then continueloop
; inside picker, grad, or mag (or dragable info label)..
if $mouse_info[4] = $pic_color_picker or $mouse_info[4] >= $info_dummy then
if $mouse_info[4] = $info_dummy or $mouse_info[4] = $label_colorwell then
GUISetCursor(9, 1, $gui_color) ; feel free to use something like this for the GUIGetCursorInfo() manual page.
continueloop ; no credit required! ;o)
endif
GUISetCursor(3, 1, $gui_color) ; "+"
$cpc_live_color = StringRight(Hex(PixelGetColor($MousePos[0],$MousePos[1])), 6)
cpc_UpdateLiveColorBox()
; hold down left mouse button for live effects..
if $live_luminance = $GUI_CHECKED or ce_IsPressed(01) then cpc_UpdateLumGrad($cpc_live_color)
if $live_mag = $GUI_CHECKED or ce_IsPressed(01) then cpc_UpdateMag()
if $live_hex = $GUI_CHECKED then
if ce_IsPressed(10) then
ToolTip(ConvertColorValue($cpc_live_color, $cpc_output_mode, $add_prefix), $MousePos[0]+2, $MousePos[1]+2)
else
ToolTip($cpc_live_color, $MousePos[0]+2, $MousePos[1]+2)
endif
endif
$color_set = 1
elseif $super_mag then
cpc_UpdateMag()
GUISetCursor(3, 1, $gui_color)
else ; outside picker areas or window..
GUISetCursor()
ToolTip ("")
if $color_set = 1 then
if $hold_live_color = $GUI_UNCHECKED then
GUICtrlSetBkColor($label_live_color, "0x" & $cpc_my_color)
if $live_luminance = $GUI_CHECKED then cpc_UpdateLumGrad($cpc_my_color)
endif
$color_set = 0
endif
endif
wend
; all done..
cpc_KillWindow()
AutoItSetOption("GUIOnEventMode", $last_event_mode)
AutoItSetOption("TrayMenuMode", $last_traymenu_mode)
AutoItSetOption("TrayOnEventMode", $last_trayonevent_mode)
$return_val = $cpc_my_color
; nothing changed, return the original color..
if $cpc_killed then $return_val = $set_color
if $autoit_val then
return '0x' & $return_val
else
return $return_val
endif
endfunc
; initial setup..
;
func cpc_Setup()
global $cpc_my_name = "color pickin chooser"
global $cpc_data_parent = @AppDataDir & "\corz\" & $cpc_my_name
global $cpc_ini_path = $cpc_data_parent & "\" & $cpc_my_name & ".ini"
global $colors_ini_path = $cpc_data_parent & "\custom colors.ini"
global $default_picker_img_dir = $cpc_data_parent & "\picker images"
global $picker_img_dir = IniRead($cpc_ini_path, $cpc_my_name, "picker_images_folder", $default_picker_img_dir)
global $previous_combo_groups[501] = [500] ; for storing previous combobox selections
global $ini_process = false
global $group_process = false
global $no_colorwells = 64 ; it won't do anything good if you change this (at least, not yet)
global $sort_flags[11] = [10]
if not FileExists($picker_img_dir) then DirCreate($picker_img_dir)
; install sample images..
if $picker_img_dir = $default_picker_img_dir then cpc_InstallSampleImages()
; tips setup..
global $tips_file = $cpc_data_parent & "\tips.txt"
;if StringInStr(@OSVersion, 'VISTA') then global $tips_file = @TempDir & "\color-pickin-tips.txt" ; not required
FileInstall(".\stuff\tips.txt", $tips_file, 0)
global $cpc_no_tips = IniReadCheckboxValue($cpc_ini_path, $cpc_my_name, "no_tips", $GUI_UNCHECKED)
global $cpc_live_color, $red_index, $green_index, $blue_index
global $cpc_my_color = IniRead($cpc_ini_path, $cpc_my_name, "my_color", "FF50A3")
global $cpc_my_group = IniRead($cpc_ini_path, $cpc_my_name, "my_group", "empty")
global $current_group_index, $cpc_previous_mode
global $cpc_picker_image = IniRead($cpc_ini_path, $cpc_my_name, "picker_image", $picker_img_dir & "\Spectrums\Spectrum.jpg")
global $cpc_last_mag = IniRead($cpc_ini_path, $cpc_my_name, "last_mag", "0|0")
global $live_luminance = IniReadCheckboxValue($cpc_ini_path, $cpc_my_name, "live_luminance", $GUI_UNCHECKED)
global $live_hex = IniReadCheckboxValue($cpc_ini_path, $cpc_my_name, "live_hex", $GUI_UNCHECKED)
global $live_mag = IniReadCheckboxValue($cpc_ini_path, $cpc_my_name, "live_mag", $GUI_UNCHECKED)
global $hold_live_color = IniReadCheckboxValue($cpc_ini_path, $cpc_my_name, "hold_live_color", $GUI_UNCHECKED)
global $cpc_auto_copy = IniReadCheckboxValue($cpc_ini_path, $cpc_my_name, "auto_copy", $GUI_UNCHECKED)
global $cpc_on_top = IniReadCheckboxValue($cpc_ini_path, $cpc_my_name, "always_on_top", $GUI_CHECKED)
global $cpc_live_titlebar = IniReadCheckboxValue($cpc_ini_path, $cpc_my_name, "colors_in_titlebar", $GUI_UNCHECKED)
global $cpc_output_mode = IniRead($cpc_ini_path, $cpc_my_name, "output_mode", "Web Hex")
global $cpc_output_modes[9] = [ "Web Hex", _ ; You can change the menu order by changing the order here.
"Autoit RGB Hex", _ ; You can also disable any options you don't want to use.
"Autoit BGR Hex", _ ; If you do, don't forget to alter the total (currently 9).
"Visual C++ Hex", _ ; The full text of the items is important; if you want to
"Delphi Hex", _ ; alter any items, check/hack ConvertColorValue() first.
"RGB Integer", _
"RGB Float", _
"HSL", _
"CMYK" ]
global $cpc_menu_output_modes[uBound($cpc_output_modes)]
global $add_prefix = IniReadCheckBoxValue($cpc_ini_path, $cpc_my_name, "add_prefix", $GUI_UNCHECKED)
global $gui_fx = IniRead($cpc_ini_path, $cpc_my_name, "gui_fx", "Slide Right")
global $cpc_gui_fx = corz_GUIGetFX($gui_fx, $cpc_ini_path, $cpc_my_name)
global $done_quits = IniReadCheckboxValue($cpc_ini_path, $cpc_my_name, "done_quits", $GUI_UNCHECKED)
global $dont_pop_up_comments = IniReadCheckBoxValue($cpc_ini_path, $cpc_my_name, "dont_pop_up_comments", $GUI_UNCHECKED)
global $cpc_width = 395
global $cpc_height = 215
global $cpc_x = IniRead($cpc_ini_path, $cpc_my_name, "x", @DesktopWidth-$cpc_width-16) ; not -1. we need a real number
global $cpc_y = IniRead($cpc_ini_path, $cpc_my_name, "y", 26) ; for later calculations
global $cpc_picker_size = 150
global $cpc_mag_top = $cpc_picker_size + 10
global $cpc_lum_width = 16
global $cpc_lum_height = $cpc_picker_size
global $cpc_grad_step = $cpc_lum_height / 2
global $cpc_uncheck_img_idx
global $cpc_current_img_idx
cpc_MakeGUI()
endfunc
; create the main gui and controls..
;
func cpc_MakeGUI()
; the main gui..
;
local $last_coord_mode = AutoItSetOption("GUICoordMode", 0)
global $dummy_container = GUICreate(-1,-1,-1,-1,-1, $WS_EX_TOOLWINDOW) ; no taskbar entry required
global $gui_color = GUICreate($cpc_my_name & "..", $cpc_width , $cpc_height , $cpc_x , $cpc_y, _
BitOr($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_ACCEPTFILES, $dummy_container)
if not $cpc_stand_alone then GuiSetIcon(@ScriptFullPath, 6) ; set correct icon (see #compile section @ foot)
; GUI Events..
GUISetOnEvent($GUI_EVENT_CLOSE, "cpc_ExitDoQuit", $gui_color)
GUISetOnEvent($GUI_EVENT_DROPPED, "cpc_GetDroppedItem", $gui_color)
global $pic_color_picker = GUICtrlCreatePic("", 6, 6, $cpc_picker_size , $cpc_picker_size)
GUICtrlSetOnEvent(-1, "cpc_ClickMouseSetColor")
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
; live toggles..
global $check_lumlive = GUICtrlCreateCheckbox("", $cpc_picker_size+5, $cpc_lum_height+5, 15, 15, _
BitOr($BS_AUTOCHECKBOX, $BS_PUSHLIKE, $BS_ICON, $BS_VCENTER, $BS_CENTER))
GUICtrlSetOnEvent(-1, "cpc_ToggleLiveLum")
GUICtrlSetTip(-1, " click this switch to toggle the live luminance gradient [F5]")
GUICtrlSetState(-1, $live_luminance)
if @compiled then
GUICtrlSetImage(-1, @ScriptFullPath, -4, 0)
else
GUICtrlSetImage(-1, ".\img\icons\grad.ico", -1, 0)
endif
global $check_maglive = GUICtrlCreateCheckbox("", 0, 17, 15, 15, _
BitOr($BS_AUTOCHECKBOX, $BS_PUSHLIKE, $BS_ICON, $BS_VCENTER, $BS_CENTER))
GUICtrlSetOnEvent(-1, "cpc_ToggleLiveMag")
GUICtrlSetTip(-1, " click this switch to toggle the live magnifier (it will revert once you select an area) [F6] " _
& @CRLF & " [ shift-click for super-mag ] ")
GUICtrlSetState(-1, $live_mag)
if @compiled then
GUICtrlSetImage(-1, @ScriptFullPath, -5, 0)
else
GUICtrlSetImage(-1, ".\img\icons\mag.ico", -1, 0)
endif
global $check_hexlive = GUICtrlCreateCheckbox("#", 0, 17, 15, 15, _
BitOr($BS_AUTOCHECKBOX, $BS_PUSHLIKE, $BS_ICON, $BS_VCENTER, $BS_CENTER))
GUICtrlSetOnEvent(-1, "cpc_ToggleLiveHex")
GUICtrlSetTip(-1, " click this switch to toggle the live hex color readout tip [F7] " & @CRLF & _
" while running, hold down the SHIFT key to see the converted output")
GUICtrlSetState(-1, $live_hex)
if @compiled then
GUICtrlSetImage(-1, @ScriptFullPath, -6, 0)
else
GUICtrlSetImage(-1, ".\img\icons\hex.ico", -1, 0)
endif
GUISetCoord(5, $cpc_mag_top)
global $label_live_color = GUICtrlCreateLabel("", $cpc_picker_size/3, 0, $cpc_picker_size/3, $cpc_picker_size/3)
GUICtrlSetOnEvent(-1, "cpc_ToggleLiveColorHold")
GUICtrlSetTip(-1, " this is the current live color " & @CRLF & _
" [as well as a readout, you can click it to toggle the live color hold] ")
global $label_my_color = GUICtrlCreateLabel("", $cpc_picker_size/3, 0, $cpc_picker_size/3, $cpc_picker_size/3)
GUICtrlSetOnEvent(-1, "cpc_AddMyColor")
GUICtrlSetTip(-1, " your currently selected color, aka 'my color' " & @CRLF & _
" [click this box (or press F2) to add this color to the end of your current color group] ")
GUISetCoord(184, 10)
global $cpc_label_red = GUICtrlCreateLabel("Red: ", 0, 3, 32, 20, -1, $GUI_WS_EX_PARENTDRAG)
global $cpc_input_red = GUICtrlCreateInput(" ", 40, -4, 32, 20, $ES_NUMBER)
GUICtrlSetOnEvent(-1, "cpc_AddRed")
GUICtrlSetTip(-1, " red input/output. here you can enter a decimal value for red (0-255) ")
global $cpc_label_green = GUICtrlCreateLabel("Green: ", -40, 47, 32, 20, -1, $GUI_WS_EX_PARENTDRAG)
global $cpc_input_green = GUICtrlCreateInput(" ", 40, -4, 32, 20, $ES_NUMBER)
GUICtrlSetOnEvent(-1, "cpc_AddGreen")
GUICtrlSetTip(-1, " green input/output. here you can enter a decimal value for green (0-255) ")
global $cpc_label_blue = GUICtrlCreateLabel("Blue: ", -40, 47, 32, 20, -1, $GUI_WS_EX_PARENTDRAG)
global $cpc_input_blue = GUICtrlCreateInput(" ", 40, -4, 32, 20, $ES_NUMBER)
GUICtrlSetOnEvent(-1, "cpc_AddBlue")
GUICtrlSetTip(-1, " blue input/output. here you can enter a decimal value for blue (0-255) ")
global $cpc_slider_red = GUICtrlCreateSlider( -40, -65, 85 , 20 , BitOr($TBS_NOTICKS, $WS_TABSTOP))
GUICtrlSetOnEvent(-1, "cpc_SlideRed")
GUICtrlSetLimit (-1, 255, 0)
GUICtrlSetTip(-1, " red slider. slide it up and down to chage the red value (0-255) ")
global $cpc_slider_green = GUICtrlCreateSlider( 0, 43, 85 , 20 , BitOr($TBS_NOTICKS, $WS_TABSTOP))
GUICtrlSetOnEvent(-1, "cpc_Slidegreen")
GUICtrlSetLimit (-1, 255, 0)
GUICtrlSetTip(-1, " green slider. sliding it chages the green value (0-255) ")
global $cpc_slider_blue = GUICtrlCreateSlider( 0, 43, 85 , 20 , BitOr($TBS_NOTICKS, $WS_TABSTOP))
GUICtrlSetOnEvent(-1, "cpc_Slideblue")
GUICtrlSetLimit (-1, 255, 0)
GUICtrlSetTip(-1, " blue slider. give it a slide to chage the blue value (0-255) ")
global $label_hex_in_out = GUICtrlCreateLabel("Hex: ", 0, 28, 32, 20, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetTip(-1, " current output: " & ConvertColorValue($cpc_my_color, $cpc_output_mode, $add_prefix) _
& @CRLF & " right-click me for a menu of various clipboard output formats ")
global $input_hex_in_out = GUICtrlCreateInput("", 27, -3, 53, 20)
GUICtrlSetOnEvent(-1, "cpc_AddHex")
GUICtrlSetData(-1, $cpc_my_color)
GUICtrlSetTip(-1, " RGB hex input/output. here you can enter a standard RGB hex color value, eg. 'FF00FF' " & @CRLF & _
" (note: you can copy to the clipboard in a number of formats; right-click the 'Hex' label to choose) ")
global $check_autocopy = GUICtrlCreateCheckbox("auto", -27, 24, 28, 19, _
BitOr($BS_AUTOCHECKBOX, $BS_PUSHLIKE, $BS_VCENTER, $BS_CENTER))
GUICtrlSetOnEvent(-1, "cpc_ToggleAutoCopy")
GUICtrlSetTip(-1, " click this switch to automatically copy the " & $cpc_output_mode & " value of all selected colors to the clipboard, or not [F3] ")
GUICtrlSetState(-1, $cpc_auto_copy)
global $check_special_clip_copy = GUICtrlCreateCheckbox("copy hex", 28, 0, 50, 19, _
BitOr($BS_AUTOCHECKBOX, $BS_PUSHLIKE, $BS_VCENTER, $BS_CENTER))
GUICtrlSetOnEvent(-1, "cpc_ButtCopyColor")
GUICtrlSetTip(-1, " click this button to copy the " & $cpc_output_mode &" value to the clipboard [F4] ")
if $cpc_auto_copy = $GUI_CHECKED then GUICtrlSetState(-1, $GUI_CHECKED)
; all done..
GUISetCoord($cpc_width-44, $cpc_height-25)
$butt_all_done = GUICtrlCreateButton( "&done!", 0, 0, 40, 20 )
GUICtrlSetOnEvent(-1, "cpc_Done")
GUISetCoord(269, 8)
; we'll duplicate the context menu on these three controls..
global $combo_custom_groups = GUICtrlCreateCombo( "", 0, 0, 86, 18, BitOR($CBS_SORT, $CBS_DROPDOWN, $CBS_AUTOHSCROLL, $WS_VSCROLL))
GUICtrlSetOnEvent(-1, "cpc_LoadColorGroup")
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSetTip(-1, " your color groups " & @CRLF & _
" you can drag palettes and ini files (even folders of ini files) into here (and the picker image) to import their colors ")
global $butt_delete_group = GUICtrlCreateButton("-", 88, 1, 16, 18)
GUICtrlSetOnEvent(-1, "cpc_DeleteColorGroup")
GUICtrlSetTip(-1, " remove this color group ")
GUICtrlSetFont(-1, Default , 800)
global $butt_add_group = GUICtrlCreateButton("+", 18, 0, 16, 18)
GUICtrlSetOnEvent(-1, "cpc_AddColorGroup")
GUICtrlSetTip(-1, " add a new color group ")
; color wells..
;
GUISetCoord(374, 17)
global $custom_color_box[$no_colorwells+1] = [$no_colorwells] ; 1-64 (0 is total)
$box = 1
for $i = 1 to 8 ; eight main rows, we'll make a grid
; need $*CHECKBOX to get colors on pushlike radio buttons
;$custom_color_box[$box] = GUICtrlCreateRadio("", -105, 16, 16, 17, BitOr($BS_AUTOCHECKBOX, $BS_PUSHLIKE)) ; first box
$custom_color_box[$box] = GUICtrlCreateLabel("", -105, 16, 16, 17, BitOr($SS_NOTIFY, $SS_SUNKEN))
GUICtrlSetOnEvent(-1, "cpc_SelectColorWell") ; labels also work fine (and look *much* better in XP style - which I
GUICtrlSetBkColor(-1, Default) ; don't use) but you can't see the (almost invisible) checkbox selections.
$box += 1 ; Feck it, labels it is! I'll add some other kind of visual feedback.
for $t = 1 to 7 ; the other seven boxes..
$custom_color_box[$box] = GUICtrlCreateLabel("", 15, 0, 16, 17, BitOr($SS_NOTIFY, $SS_SUNKEN))
GUICtrlSetOnEvent(-1, "cpc_SelectColorWell")
GUICtrlSetBkColor(-1, Default)
$box += 1
next
next
global $input_color_name = GUICtrlCreateInput("", -106, 20, 122, 20)
GUICtrlSetTip(-1, " the color name input. enter something here to save a color by that name. " & @CRLF & _
" to rename a color: click it, type a new name, click it again (or hit F2/Enter) ")
; information area (dragable)
;
global $info_dummy = GUICtrlCreateLabel("", -83, 21, 164, 30, -1, $GUI_WS_EX_PARENTDRAG)
global $label_colorwell = GUICtrlCreateLabel("", 0, 9, 164, 15, $SS_LEFTNOWORDWRAP, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetTip(-1, " information appears here. you can click and drag the window around from here, too ")
GUICtrlSetFont(-1, 7, 200)
; magnifier (Cheers to CodeMaster Rapture)
;
AutoItSetOption("GUICoordMode", 1)
$count = 0
global $mag_x = 5
$mag_size = 5
global $mag_block[200] ; yeah, we only need 100, but still. try it.
global $mag_save_blocks[200] = [100]
for $iterX = 0 to 49 step $mag_size
for $iterY = 0 to 49 step $mag_size
$mag_block[$count] = GUICtrlCreateLabel("", $iterX+$mag_x, $iterY+$cpc_mag_top, $mag_size, $mag_size)
GUICtrlSetOnEvent(-1, "cpc_ClickMouseSetColor") ; otherwise first click on mag doesn't stick
GUICtrlSetBkColor(-1, Default)
GUICtrlSetTip(-1, "the magnifier area, aka. 'mag box'. you can magnify this, too ")
$count += 1
next
next
; a new style luminance gradient..
;
global $grad_bars[151] = [150]
for $bar = 1 to 150
$grad_bars[$bar] = GuiCtrlCreateLabel("", $cpc_picker_size+10, 4 + $bar, $cpc_lum_width, 1)
GUICtrlSetOnEvent(-1, "cpc_ClickMouseSetColor")
next
; end of visible gui controls
; context menus..
;
global $cpc_MenuHex = GUICtrlCreateContextMenu($label_hex_in_out)
GUICtrlCreateMenuitem("Clipboard Copy Modes..", $cpc_MenuHex)
GUICtrlCreateMenuitem("", $cpc_MenuHex)
for $i = 0 to uBound($cpc_output_modes)-1
$cpc_menu_output_modes[$i] = GUICtrlCreateMenuitem($cpc_output_modes[$i], $cpc_MenuHex)
GUICtrlSetOnEvent(-1, "cpc_SwitchMode")
if $cpc_output_modes[$i] = $cpc_output_mode then
GUICtrlSetState($cpc_menu_output_modes[$i], $GUI_CHECKED)
$cpc_previous_mode = $i
endif
next
GUICtrlCreateMenuitem("", $cpc_MenuHex)
global $menu_hex_prefix = GUICtrlCreateMenuitem("Add Prefix", $cpc_MenuHex)
GUICtrlSetOnEvent(-1, "cpc_MenuTogglePrefix")
GUICtrlSetState(-1, $add_prefix)
; three identical context menus..
for $i = $combo_custom_groups to $butt_add_group
GUICtrlCreateContextMenu($i)
GUICtrlCreateMenuitem("Export Color Group..", $i)
GUICtrlSetOnEvent(-1, "cpc_ExportGroup")
GUICtrlCreateMenuitem("Export Gimp Palette..", $i)
GUICtrlSetOnEvent(-1, "cpc_ExportGimpPalette")
GUICtrlCreateMenuitem("Export JASC Palette..", $i)
GUICtrlSetOnEvent(-1, "cpc_ExportJASCPalette")
GUICtrlCreateMenuitem("", $i)
GUICtrlCreateMenuitem("Sort Colors by Name.. Ctrl + KeyPad 0", $i)
GUICtrlSetOnEvent(-1, "cpc_MenuSortColorsName")
GUICtrlCreateMenuitem("", $i)
GUICtrlCreateMenuitem("Sort Colors by Red.. Ctrl + KeyPad 1", $i)
GUICtrlSetOnEvent(-1, "cpc_MenuSortColorsRed")
GUICtrlCreateMenuitem("Sort Colors by Green.. Ctrl + KeyPad 2", $i)
GUICtrlSetOnEvent(-1, "cpc_MenuSortColorsGreen")
GUICtrlCreateMenuitem("Sort Colors by Blue.. Ctrl + KeyPad 3", $i)
GUICtrlSetOnEvent(-1, "cpc_MenuSortColorsBlue")
GUICtrlCreateMenuitem("", $i)
GUICtrlCreateMenuitem("Sort Colors by Hue.. Ctrl + KeyPad 4", $i)
GUICtrlSetOnEvent(-1, "cpc_MenuSortColorsHue")
GUICtrlCreateMenuitem("Sort Colors by Saturation.. Ctrl + KeyPad 5", $i)
GUICtrlSetOnEvent(-1, "cpc_MenuSortColorsSat")
GUICtrlCreateMenuitem("Sort Colors by Lightness.. Ctrl + KeyPad 6", $i)
GUICtrlSetOnEvent(-1, "cpc_MenuSortColorsLum")
GUICtrlCreateMenuitem("", $i)
GUICtrlCreateMenuitem("Group notes and comments.. Alt+C", $i)
GUICtrlSetOnEvent(-1, "cpc_MenuGroupComments")
next
; picker image menu built and re-built later.
global $cpc_MenuColorPicker = GUICtrlCreateContextMenu($pic_color_picker)
; system tray..
; only for stand-alone mode
;
if $cpc_stand_alone then
$TrayItemAbout = TrayCreateItem("About color pickin chooser..")
TrayItemSetOnEvent(-1, "cpc_DoAbout")
global $TrayItemDoneQuits= TrayCreateItem("Tips and Tricks.. F1", -1)
TrayItemSetOnEvent(-1, "cpc_HotKeyShowTips")
TrayCreateItem("")
global $TrayItemOpenDataFolder = TrayCreateItem("Open data folder.. F10")
TrayItemSetOnEvent(-1, "cpc_OpenDataFolder")
TrayCreateItem("")
global $TrayItemToggleOnTop= TrayCreateItem("Always on top")
TrayItemSetOnEvent(-1, "cpc_MenuToggleOnTopWin")
GUICtrlSetState(-1, $cpc_on_top)
global $TrayItemLiveTitleBar= TrayCreateItem("Color output in title bar")
TrayItemSetOnEvent(-1, "cpc_MenuToggleLiveTitleBar")
GUICtrlSetState(-1, $cpc_live_titlebar)
TrayCreateItem("")
global $TrayMenuWinAnim = TrayCreateMenu("Window animation..")
local $win_anims[11] = ["Slide Left", "Slide Right", "Slide Top", "Slide Bottom", _
"Slide Top Left", "Slide Top Right", "Slide Bottom Right", "Slide Bottom Left", _
"Explode/Implode", "Fade", "Disable window animation"]
global $menu_items_win_anim[11]
for $i = 0 to 10
$menu_items_win_anim[$i] = TrayCreateItem($win_anims[$i], $TrayMenuWinAnim, -1, 1)
TrayItemSetOnEvent(-1, "cpc_MenuSetWinAnim")
next
for $i in $menu_items_win_anim
if TrayItemGetText($i) = $gui_fx then TrayItemSetState($i, $TRAY_CHECKED)
next
TrayCreateItem("")
global $TrayItemDoneQuits= TrayCreateItem("'Done!' quits the program", -1)
TrayItemSetOnEvent(-1, "cpc_MenuToggleDoneQuits")
GUICtrlSetState(-1, $done_quits)
TrayCreateItem("")
$TrayItemExit = TrayCreateItem("Exit (Esc)", -1)
TrayItemSetOnEvent(-1, "cpc_ExitDoQuit")
TraySetToolTip (" left-click to toggle the color pickin chooser [Ctrl+F1]" & _
@CRLF & " right-click to bring up the menu ")
TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "cpc_ToggleWindow")
TraySetState()
TraySetClick(8) ; right-click only to bring up the menu
endif
AutoItSetOption("GUICoordMode", $last_coord_mode)
endfunc
; update our cpc_gui_fx array and save the new setting to the ini..
func cpc_MenuSetWinAnim()
$cpc_gui_fx = corz_GUIGetFX(TrayItemGetText(@TRAY_ID), $cpc_ini_path, $cpc_my_name)
;$cpc_gui_fx = corz_GUIAnimateOpen("", TrayItemGetText(@TRAY_ID), $cpc_ini_path, $cpc_my_name) ;same thing, but a tad slower
endfunc
func cpc_HotKeyShowTips()
if $tips_live then return ; prevents F1 causing trouble when tips are running
cpc_DialogOpen()
corz_TipsSystem($tips_file, $gui_color, $cpc_ini_path, $cpc_my_name, "color pickin tips", "", "", $do_func)
cpc_DialogClose()
endfunc
func cpc_ClickMouseSetColor()
cpc_MouseSetColor()
if $live_mag = $GUI_CHECKED then cpc_UnliveMag()
cpc_UpdateMag()
endfunc
func cpc_MouseSetColor()
$mouse_info = GUIGetCursorInfo()
if not IsArray($mouse_info) then return
if $mouse_info[4] = $pic_color_picker or $mouse_info[4] >= $mag_block[0] then
cpc_SetColor()
; replace a color well with the current color..
if ce_IsPressed(10) then cpc_AddNewColor($cpc_my_color, GUICtrlRead($input_color_name))
if ($mouse_info[4] >= $grad_bars[1] and $mouse_info[4] < $grad_bars[150]) _
and $live_mag = $GUI_CHECKED then cpc_UnliveMag()
endif
endfunc
func cpc_SetColor($first=false)
if cpc_MakeNewColor($first) then
cpc_UpdateInputs()
cpc_UpdateLiveColorBox()
endif
endfunc
func cpc_MakeNewColor($first=false)
if $first = false and $cpc_my_color = $cpc_live_color then return 0
cpc_MakeRGBFromCurrentColor()
$cpc_my_color = $cpc_live_color
if $cpc_auto_copy = $GUI_CHECKED then cpc_ClipCopyHex($cpc_my_color)
return 1
endfunc
func cpc_SlideRed()
$red_index = Hex(GUICtrlRead($cpc_slider_red), 2)
cpc_Update()
endfunc
func cpc_Slidegreen()
$green_index = Hex(GUICtrlRead($cpc_slider_green), 2)
cpc_Update()
endfunc
func cpc_Slideblue()
$blue_index = Hex(GUICtrlRead($cpc_slider_blue), 2)
cpc_Update()
endfunc
func cpc_AddRed()
$red_index = Hex(GUICtrlRead($cpc_input_red), 2)
cpc_Update()
endfunc
func cpc_AddGreen()
$green_index = Hex(GUICtrlRead($cpc_input_green), 2)
cpc_Update()
endfunc
func cpc_AddBlue()
$blue_index = Hex(GUICtrlRead($cpc_input_blue), 2)
cpc_Update()
endfunc
func cpc_AddHex()
if cpc_CheckBigHex(GUICtrlRead($input_hex_in_out)) then
cpc_MakeRGBFromHex()
cpc_Update()
else
cpc_UpdateHexOutput($cpc_my_color)
endif
endfunc
func cpc_MakeRGBFromHex()
$red_index = StringLeft(GUICtrlRead($input_hex_in_out), 2)
$green_index = StringMid(GUICtrlRead($input_hex_in_out), 3, 2)
$blue_index = StringRight(GUICtrlRead($input_hex_in_out), 2)
endfunc
func cpc_MakeColorFromRGB()
$cpc_live_color = $red_index & $green_index & $blue_index
endfunc
func cpc_MakeRGBFromCurrentColor()
$red_index = StringLeft($cpc_live_color, 2)
$green_index = StringMid($cpc_live_color, 3, 2)
$blue_index = StringRight($cpc_live_color, 2)
endfunc
func cpc_Update()
cpc_MakeColorFromRGB()
if cpc_MakeNewColor() then
cpc_UpdateInputs()
cpc_UpdateLiveColorBox()
endif
endfunc
func cpc_UpdateInputs()
; sadly, this deselects the text in the control you tab to. hmm.
; who keys in colors manually these days, huh?
GUICtrlSetData($cpc_slider_red, Dec($red_index))
GUICtrlSetData($cpc_slider_green, Dec($green_index))
GUICtrlSetData($cpc_slider_blue, Dec($blue_index))
GUICtrlSetData($cpc_input_red, Dec($red_index))
GUICtrlSetData($cpc_input_green, Dec($green_index))
GUICtrlSetData($cpc_input_blue, Dec($blue_index))
cpc_UpdateHexOutput($cpc_my_color)
GUICtrlSetBkColor($label_my_color, "0x" & $cpc_my_color)
cpc_UpdateLumGrad($cpc_my_color)
endfunc
func cpc_UpdateHexOutput($web_hex)
GUICtrlSetData($input_hex_in_out, $web_hex)
$c_color = ConvertColorValue($web_hex, $cpc_output_mode, $add_prefix)
if $cpc_live_titlebar = $GUI_CHECKED then _
WinSetTitle($gui_color, "", "color pickin chooser.. " & $cpc_output_mode & ": " & $c_color & "" )
GUICtrlSetTip($label_hex_in_out, " current output: " & $c_color & @CRLF & _
" right-click me for a menu of various clipboard output formats ")
endfunc
func cpc_UpdateLiveColorBox()
GUICtrlSetBkColor($label_live_color, "0x" & $cpc_live_color)
endfunc
; two gradients, one from the target color up to white, the other down to black..
; (crafty luminance selection ;o)
func cpc_UpdateLumGrad($target_color)
$target_color = "0x" & $target_color
GUICtrlSetBkColor($grad_bars[1], 0xFFFFFF) ; Oh! The math!
for $i = 2 to $cpc_grad_step
$color_str = cpc_MakeGradLineColors(0xFFFFFF, $target_color, $i)
GUICtrlSetBkColor($grad_bars[$i], $color_str)
next
for $i = 1 to $cpc_grad_step
$color_str = cpc_MakeGradLineColors($target_color, 0x000000, $i)
GUICtrlSetBkColor($grad_bars[$cpc_grad_step+$i], $color_str)
next
endfunc
func cpc_MakeGradLineColors($start_color, $target_color, $i)
local $g_red = GetColorRed($start_color)
local $g_green = GetColorGreen($start_color)
local $g_blue = GetColorBlue($start_color)
local $g_r_step = (GetColorRed($target_color) - $g_red) / $cpc_grad_step
local $g_g_step = (GetColorGreen($target_color) - $g_green) / $cpc_grad_step
local $g_b_step = (GetColorBlue($target_color) - $g_blue) / $cpc_grad_step
return "0x" & StringFormat("%02X%02X%02X", $g_red + $g_r_step * $i, $g_green + $g_g_step * $i, $g_blue + $g_b_step * $i)
endfunc
func cpc_UpdateMag($firstrun=false)
if $firstrun then
if $cpc_last_mag then
; this is a back-up for the regular "fool-proof" approach (store an array of the label colors in the ini)
; if they move the GUI (or switch image) after clicking, it spoils the effect, but it's still fun.
; this only kicks in if they have no 'mag_save' data in their ini, and the mag array could not be built.
; on first run, it will create a cute mag of the top-left corner of your desktop.
; we leave the 'last_mag' pref (and this Plan B) hanging around, to confound users of the compiled app ;o)
$mag_xy = StringSplit($cpc_last_mag, "|")
local $MousePos[2] = [$mag_xy[1], $mag_xy[2]] ; minus x/y
else
return
endif
else
$MousePos = MouseGetPos()
if IsArray($MousePos) then $cpc_last_mag = $MousePos[0] & "|" & $MousePos[1]
endif
$count = 0
for $iterX = -5 to 4
for $iterY = -5 to 4
$mag_save_blocks[$count+1] = PixelGetColor($MousePos[0]+$iterX, $MousePos[1]+$iterY) ; so we can store it, later
GUICtrlSetBkColor($mag_block[$count], $mag_save_blocks[$count+1])
$count += 1
next
next
endfunc
; a few sample picker images..
func cpc_InstallSampleImages()
if IniReadCheckBoxValue($cpc_ini_path, $cpc_my_name, "samples_installed", $GUI_UNCHECKED) = $GUI_UNCHECKED then
if not FileExists($picker_img_dir) then return
FileInstall(".\img\picker images\Homer X-Ray.jpg", $picker_img_dir & "\Homer X-Ray.jpg")
FileInstall(".\img\picker images\New York.jpg", $picker_img_dir & "\New York.jpg")
FileInstall(".\img\picker images\Biker.jpg", $picker_img_dir & "\Biker.jpg")
FileInstall(".\img\picker images\Reds.jpg", $picker_img_dir & "\Reds.jpg")
FileInstall(".\img\picker images\Sarah.jpg", $picker_img_dir & "\Sarah.jpg")
FileInstall(".\img\picker images\Tropical bed and breakfast.jpg", $picker_img_dir & "\Tropical bed and breakfast.jpg")
; will anyone spot the ordering by extension type? they might spot this..
FileInstall(".\img\picker images\Shoreline.jpeg", $picker_img_dir & "\Shoreline.jpeg")
if not FileExists($picker_img_dir & "\Spectrums") then DirCreate($picker_img_dir & "\Spectrums")
FileInstall(".\img\picker images\Spectrums\Gimp.jpg", $picker_img_dir & "\Spectrums\Gimp.jpg")
FileInstall(".\img\picker images\Spectrums\Microsoft.jpg", $picker_img_dir & "\Spectrums\Microsoft.jpg")
FileInstall(".\img\picker images\Spectrums\Spectrum.jpg", $picker_img_dir & "\Spectrums\Spectrum.jpg")
FileInstall(".\img\picker images\Spectrums\Primary-Secondary.jpg", $picker_img_dir & "\Spectrums\Primary-Secondary.jpg")
if not FileExists($picker_img_dir & "\Stretchies") then DirCreate($picker_img_dir & "\Stretchies")
FileInstall(".\img\picker images\Stretchies\Primary Stretchie 1.bmp", $picker_img_dir & "\Stretchies\Primary Stretchie 1.bmp")
FileInstall(".\img\picker images\Stretchies\Primary Stretchie 2.bmp", $picker_img_dir & "\Stretchies\Primary Stretchie 2.bmp")
FileInstall(".\img\picker images\Stretchies\Stretchie [blue-green].jpg", $picker_img_dir & "\Stretchies\Stretchie [blue-green].jpg")
FileInstall(".\img\picker images\Stretchies\Stretchie [red-yellow].jpg", $picker_img_dir & "\Stretchies\Stretchie [red-yellow].jpg")
FileInstall(".\img\picker images\Stretchies\Stretchie [yellow-green].jpg", $picker_img_dir & "\Stretchies\Stretchie [yellow-green].jpg")
IniWrite($cpc_ini_path, $cpc_my_name, "samples_installed", 1)
endif
endfunc
func cpc_ImportImage($some_image)
$new_image = $picker_img_dir & "\Imported\" & BaseName($some_image)
$current_picker_images = RecurseDir($picker_img_dir, "*.jpg,*.jpeg,*.gif,*.bmp")
for $i in $current_picker_images
if BaseName($i) = BaseName($some_image) and FileGetSize($i) = FileGetSize($some_image) then
cpc_DoInfo("import failed: image already exists")
AdlibEnable("cpc_SwitchOffInfo", 4000)
return
endif
next
FileCopy($some_image, $new_image, 8)
if FileExists($new_image) then
cpc_DoInfo("image imported successfully")
AdlibEnable("cpc_SwitchOffInfo", 4000)
cpc_UpdateImageContextMenu()
cpc_SwitchImage($new_image)
endif
endfunc
func cpc_MenuUpdateImageContextMenu()
cpc_UpdateImageContextMenu()
; immediately pop up the refreshed menu..
; also means folk can use F8 to pop up the menu anywhere on screen
ControlFocus ($gui_color, "", $pic_color_picker)
ControlSend($gui_color, "", $pic_color_picker, "{APPSKEY}")
endfunc
func cpc_UpdateImageContextMenu()
GUICtrlDelete($cpc_MenuColorPicker)
global $cpc_MenuColorPicker = GUICtrlCreateContextMenu($pic_color_picker)
global $cpc_picker_images = RecurseDir($picker_img_dir, "*.jpg,*.jpeg,*.gif,*.bmp")
if IsArray($cpc_picker_images) and FileExists($picker_img_dir) then
global $img_menu_items[$cpc_picker_images[0]+1]
$current_picker_path = $picker_img_dir
for $i = 1 to $cpc_picker_images[0]
; check if we need a separator..
if $current_picker_path <> GetParent($cpc_picker_images[$i]) then
$current_picker_path = GetParent($cpc_picker_images[$i])
GUICtrlCreateMenuItem("", $cpc_MenuColorPicker)
endif
if $cpc_picker_images[$i] <> '' then
$img_menu_items[$i] = GUICtrlCreateMenuItem(CleanName($cpc_picker_images[$i]), $cpc_MenuColorPicker)
GUICtrlSetOnEvent(-1, "cpc_Menucpc_SwitchImage")
if $cpc_picker_images[$i] = $cpc_picker_image then
$cpc_current_img_idx = $i
GUICtrlSetState($img_menu_items[$i], $GUI_CHECKED)
endif
endif
next
else
$img_menu_item = GUICtrlCreateMenuItem("[no images in this folder]", $cpc_MenuColorPicker)
GUICtrlSetOnEvent(-1, "cpc_NewPickerFolder")
endif
GUICtrlCreateMenuitem("", $cpc_MenuColorPicker)
$MenuSchemePrefs = GUICtrlCreateMenuitem("Open Picker Images Folder..", $cpc_MenuColorPicker)
GUICtrlSetOnEvent(-1, "cpc_OpenPickersFolder")
$MenuSchemePrefs = GUICtrlCreateMenuitem("New Picker Images Folder..", $cpc_MenuColorPicker)
GUICtrlSetOnEvent(-1, "cpc_NewPickerFolder")
$MenuSchemePrefs = GUICtrlCreateMenuitem("Refresh this menu.. F8", $cpc_MenuColorPicker)
GUICtrlSetOnEvent(-1, "cpc_MenuUpdateImageContextMenu")
GUICtrlCreateMenuitem("", $cpc_MenuColorPicker)
$MenuSchemePrefs = GUICtrlCreateMenuitem("Use System Picker.. F9", $cpc_MenuColorPicker)
GUICtrlSetOnEvent(-1, "cpc_SystemPicker")
GUICtrlCreateMenuitem("", $cpc_MenuColorPicker)
$MenuSchemePrefs = GUICtrlCreateMenuitem("About corz color pickin chooser", $cpc_MenuColorPicker)
GUICtrlSetOnEvent(-1, "cpc_DoAbout")
; grab this again..
$cpc_picker_image = IniRead($cpc_ini_path, $cpc_my_name, "picker_image", $picker_img_dir & "\Spectrums\Spectrum.jpg")
endfunc
func cpc_Menucpc_SwitchImage()
if not IsArray($cpc_picker_images) then return
for $s = 1 to $cpc_picker_images[0]
select
case @GUI_CtrlId = $img_menu_items[$s]
if ce_IsPressed(10) then ; delete an image from the folder
FileRecycle($cpc_picker_images[$s]) ; well, almost delete
cpc_UpdateImageContextMenu()
return
endif
$cpc_current_img_idx = $s
cpc_SwitchImage($cpc_picker_images[$s])
endselect
next
endfunc
func cpc_SwitchImage($new_image)
if FileExists($new_image) then
GUICtrlSetState($img_menu_items[$cpc_uncheck_img_idx], $GUI_UNCHECKED)
$cpc_picker_image = $new_image
for $i = 1 to $cpc_picker_images[0]
if $cpc_picker_images[$i] = $cpc_picker_image then
$cpc_current_img_idx = $i
$cpc_uncheck_img_idx = $i
GUICtrlSetState($img_menu_items[$i], $GUI_CHECKED)
endif
next
if not ce_IsPressed(11) then GUICtrlSetImage($pic_color_picker, "") ; if Ctrl key not down, clear the image
GUICtrlSetImage($pic_color_picker, $cpc_picker_image)
IniWrite($cpc_ini_path, $cpc_my_name, "picker_image", $cpc_picker_image) ; set as current picker image
elseif IsArray($cpc_picker_images) then
GUICtrlSetImage($pic_color_picker , $cpc_picker_images[1])
else
cpc_NewPickerFolder() ; WHAT HAPPENED? Vista user?
endif
endfunc
func cpc_OpenPickersFolder()
ShellExecute ("Explorer.exe", $picker_img_dir)
WinWaitActive($picker_img_dir, "" , 5)
; activate thumbnails (how dare we!)..
Send("!vh")
endfunc
func cpc_NewPickerFolder()
if $cpc_on_top = $GUI_CHECKED then WinSetOnTop($gui_color, "", 0)
$new_dir = FileSelectFolder( "Select a folder to use for picker images (subfolders will also be scanned)", _
"" , 6 , $picker_img_dir)
if $new_dir <> "" then
$picker_img_dir = $new_dir
IniWrite($cpc_ini_path, $cpc_my_name, "picker_images_folder", $picker_img_dir)
cpc_UpdateImageContextMenu()
endif
if $cpc_on_top = $GUI_CHECKED then WinSetOnTop($gui_color, "", 1)
endfunc
func cpc_SwitchMode()
GUICtrlSetState($cpc_menu_output_modes[$cpc_previous_mode], $GUI_UNCHECKED)
for $i = 0 to uBound($cpc_output_modes)-1
select
case @GUI_CtrlId = $cpc_menu_output_modes[$i]
$cpc_output_mode = $cpc_output_modes[$i]
GUICtrlSetState($cpc_menu_output_modes[$i], $GUI_CHECKED)
GUICtrlSetTip($check_special_clip_copy, " click this button to copy the " & $cpc_output_modes[$i] & _
" value to the clipboard [F4] ")
GUICtrlSetTip($check_autocopy, " click this switch to automatically copy the " & $cpc_output_modes[$i] & _
" value of all selected colors to the clipboard, or not [F3] ")
$cpc_previous_mode = $i
IniWrite($cpc_ini_path, $cpc_my_name, "output_mode", $cpc_output_mode)
endselect
next
if $cpc_auto_copy = $GUI_CHECKED then ControlClick($gui_color, "", $check_special_clip_copy)
cpc_UpdateHexOutput($cpc_my_color)
endfunc
func cpc_HotAutoKeyCopyHex()
ControlClick($gui_color, "", $check_autocopy)
endfunc
func cpc_HotKeyCopyHex()
ControlClick($gui_color, "", $check_special_clip_copy)
endfunc
func cpc_ButtCopyColor()
cpc_ClipCopyHex(GUICtrlRead($input_hex_in_out))
endfunc
func cpc_ClipCopyHex($color)
if $color = "" then $color = GUICtrlRead($input_hex_in_out)
$color = ConvertColorValue($color, $cpc_output_mode, $add_prefix)
ClipPut($color)
;EnvSet("color_pickin_color", $color)
if $cpc_auto_copy = $GUI_UNCHECKED then
GUICtrlSetState($check_special_clip_copy, $GUI_UNCHECKED)
else
GUICtrlSetState($check_special_clip_copy, $GUI_CHECKED)
endif
endfunc
func cpc_ToggleAutoCopy()
if $cpc_auto_copy = $GUI_UNCHECKED then
$cpc_auto_copy = $GUI_CHECKED
ControlClick($gui_color, "", $check_special_clip_copy)
else
$cpc_auto_copy = $GUI_UNCHECKED
GUICtrlSetState($check_special_clip_copy, $GUI_UNCHECKED)
endif
IniWriteCheckboxValue($cpc_ini_path, $cpc_my_name, "auto_copy", $cpc_auto_copy)
endfunc
func cpc_MenuToggleDoneQuits()
cpc_ToggleDoneQuits()
endfunc
func cpc_ToggleDoneQuits($flip=0)
if $done_quits <> $GUI_CHECKED then
$done_quits = $GUI_CHECKED
else
$done_quits = $GUI_UNCHECKED
endif
TrayItemSetState($TrayItemDoneQuits, $done_quits)
if not $flip then IniWriteCheckboxValue($cpc_ini_path, $cpc_my_name, "done_quits", $done_quits)
endfunc
func cpc_HotKeyToggleLiveLum()
ControlClick($gui_color, "", $check_lumlive)
endfunc
func cpc_ToggleLiveLum()
if $live_luminance = $GUI_CHECKED then
$live_luminance = $GUI_UNCHECKED
else
$live_luminance = $GUI_CHECKED
endif
IniWriteCheckboxValue($cpc_ini_path, $cpc_my_name, "live_luminance", $live_luminance)
endfunc
func cpc_HotKeyToggleLiveMag()
ControlClick($gui_color, "", $check_maglive)
endfunc
; user clicked the mag (pushbutton) checkbox..
func cpc_ToggleLiveMag()
select
; regardless of whether it was on or off, it's super-mag time!..
case ce_IsPressed(10)
cpc_GetXYPrefs(1)
ToolTip(" click somewhere to grab that region " & @CRLF & _
" or even right-click, if it's an active thing ", $cpc_x, $cpc_y, "super mag activated", 1)
AdlibEnable("cpc_SwitchOffInfo", 4000)
$super_mag = true
GUISetCursor(3, 1, $gui_color) ; "+"
$live_mag = $GUI_CHECKED
GUICTrlSetState($check_maglive, $GUI_CHECKED)
case $live_mag = $GUI_CHECKED
$live_mag = $GUI_UNCHECKED
if $super_mag = true then
$super_mag = false
GUISetCursor()
endif
case $live_mag = $GUI_UNCHECKED
$live_mag = $GUI_CHECKED
endselect
IniWriteCheckboxValue($cpc_ini_path, $cpc_my_name, "live_mag", $live_mag)
endfunc
func cpc_UnliveMag()
$live_mag = $GUI_UNCHECKED
GUICtrlSetState($check_maglive, $GUI_UNCHECKED)
; don't write to ini. in practice, you may have quit right after getting your color, live mag
; enabled means you probably like it that way, and were just grabbing a color. so let's leave
; it that way for when you begin again. however, if you physically switch it off (with HotKey
; or mag button click), it will remain off.
endfunc
func cpc_SwitchOffSuperMag()
cpc_UnliveMag()
$super_mag = false
endfunc
func cpc_HotKeyToggleLiveHex()
ControlClick($gui_color, "", $check_hexlive)
endfunc
func cpc_ToggleLiveHex()
if $live_hex = $GUI_CHECKED then
$live_hex = $GUI_UNCHECKED
ToolTip("")
else
$live_hex = $GUI_CHECKED
endif
IniWriteCheckboxValue($cpc_ini_path, $cpc_my_name, "live_hex", $live_hex)
endfunc
func cpc_ToggleLiveColorHold()
if $hold_live_color = $GUI_UNCHECKED then
$hold_live_color = $GUI_CHECKED
else
$hold_live_color = $GUI_UNCHECKED
endif
IniWriteCheckboxValue($cpc_ini_path, $cpc_my_name, "hold_live_color", $hold_live_color)
endfunc
func cpc_MenuToggleOnTopWin()
cpc_ToggleOnTopWin()
endfunc
func cpc_ToggleOnTopWin($flip=0)
if $cpc_on_top <> $GUI_CHECKED then ; I like to mix it up!
$cpc_on_top = $GUI_CHECKED
WinSetOnTop($gui_color, "", 1)
else
$cpc_on_top = $GUI_UNCHECKED
WinSetOnTop($gui_color, "", 0)
endif
if $cpc_stand_alone then TrayItemSetState($TrayItemToggleOnTop, $cpc_on_top)
if not $flip then IniWriteCheckBoxValue($cpc_ini_path, $cpc_my_name, "always_on_top", $cpc_on_top)
endfunc
func cpc_MenuToggleLiveTitleBar()
cpc_ToggleLiveTitleBar()
endfunc
func cpc_ToggleLiveTitleBar($flip=0)
if $cpc_live_titlebar <> $GUI_CHECKED then
$cpc_live_titlebar = $GUI_CHECKED ; *phew*!
if not $flip then _
WinSetTitle($gui_color, "", "color pickin chooser.. " & $cpc_output_mode & ": " & _
ConvertColorValue(GUICtrlRead($input_hex_in_out), $cpc_output_mode, $add_prefix) & "" )
else
$cpc_live_titlebar = $GUI_UNCHECKED
if not $flip then _
WinSetTitle($gui_color, "", "color pickin chooser..")
endif
if $cpc_stand_alone then TrayItemSetState($TrayItemLiveTitleBar, $cpc_live_titlebar)
if not $flip then IniWriteCheckBoxValue($cpc_ini_path, $cpc_my_name, "colors_in_titlebar", $cpc_live_titlebar)
endfunc
func cpc_MenuTogglePrefix()
if $add_prefix = $GUI_CHECKED then
$add_prefix = $GUI_UNCHECKED
else
$add_prefix = $GUI_CHECKED
endif
GUICtrlSetState($menu_hex_prefix, $add_prefix)
IniWriteCheckBoxValue($cpc_ini_path, $cpc_my_name, "add_prefix", $add_prefix)
cpc_UpdateHexOutput($cpc_my_color)
if $cpc_auto_copy = $GUI_CHECKED then cpc_ClipCopyHex($cpc_my_color)
endfunc
func cpc_InitColorWells()
cpc_LoadAllSavedColors()
cpc_FillGroupsCombo()
cpc_LoadColorGroup()
endfunc
func cpc_LoadAllSavedColors()
cpc_GetColorGroupNames()
for $i = 1 to $group_names[0]
local $a_group[$no_colorwells+1][2]
local $tmp_array = IniReadSection($colors_ini_path, $group_names[$i])
if not IsArray($tmp_array) then local $tmp_array[1][2] = [[0]]
; fill first values from ini array (the remaining wells will be blank)..
for $j = 0 to uBound($tmp_array)-1
if $tmp_array[$j][0] <> "" then
$a_group[$j][0] = $tmp_array[$j][0]
$a_group[$j][1] = $tmp_array[$j][1]
endif
if $j = $no_colorwells then exitloop ; there may be more colors in the ini, but we'll load only 64 for now.
next ; if they delete one, the 65th will pop into the last well, and so on..
$groups[$i] = $a_group
next
endfunc
func cpc_GetColorGroupNames()
global $group_names = IniReadSectionNames($colors_ini_path)
if not IsArray($group_names) then
global $group_names = MakeDummyArray("empty")
global $groups[$group_names[0]+1] ; 1
IniWrite($cpc_ini_path, $cpc_my_name, "my_group", "empty")
$cpc_my_group = "empty"
else
if not InArray($group_names, $cpc_my_group) then; your last group is now gone..
$cpc_my_group = $group_names[$group_names[0]]
IniWrite($cpc_ini_path, $cpc_my_name, "my_group", $cpc_my_group)
endif
global $groups[$group_names[0]+1] = [$group_names[0]] ; set element 0 to total
endif
endfunc
func cpc_FillGroupsCombo()
GUICtrlSetData($combo_custom_groups, "|")
for $i = 1 to $group_names[0]
GUICtrlSetData($combo_custom_groups, $group_names[$i])
next
GUICtrlSetData($combo_custom_groups, $cpc_my_group)
endfunc
func cpc_LoadColorGroup()
global $current_box = 0 ; not 1-64
RememberComboSelection($previous_combo_groups, $cpc_my_group)
$load_group = GUICtrlRead($combo_custom_groups)
for $i = 1 to $group_names[0]
if $load_group = $group_names[$i] then
$current_group_index = $i
$cpc_my_group = $group_names[$current_group_index] ; <- handy variable to set now, the group name.
; now a 2-dimensional array of all the colours (and their names) in the currently selected group..
global $this_group = $groups[$i]
cpc_UpdateColorWells()
; but leave the name and label as they are.
endif
next
endfunc
func cpc_UpdateColorWells()
for $i = 1 to $no_colorwells
GUICtrlSetBkColor($custom_color_box[$i], Default) ; aha! blankness!
if $this_group[$i][0] <> "" then
GUICtrlSetBkColor($custom_color_box[$i], '0x' & $this_group[$i][0])
GUICtrlSetTip($custom_color_box[$i], $this_group[$i][1])
else
GUICtrlSetTip($custom_color_box[$i], "no color")
endif
next
endfunc
func cpc_SelectColorWell()
$overwrite = false
if ce_IsPressed(10) then $overwrite = true
for $i = $custom_color_box[1] to $custom_color_box[$no_colorwells] ; just numbers, dudes! ;o)
$box_idx = $i - ($custom_color_box[1]) + 1
; user clicked box no. $box_idx..
if $i = @GUI_CtrlId then
; of course, this doesn't work with labels. erm..
;GUICtrlSetState($custom_color_box[$box_idx], $GUI_CHECKED)
$flash_color = '0xffffff' ; or perhaps.. $flash_color = Default
if RGBToHSL($this_group[$box_idx][0], 3) > 0.9 then $flash_color = '0x000000'
GUICtrlSetBkColor($custom_color_box[$box_idx], $flash_color) ; there's your feedback!
; empty color well.. (add my color to group)
if $this_group[$box_idx][0] = "" then
$this_group[$box_idx][0] = $cpc_my_color
$this_group[$box_idx][1] = GUICtrlRead($input_color_name)
cpc_AddNewColor($this_group[$box_idx][0], $this_group[$box_idx][1])
; existing color..
else
; update existing color with new name..
if $current_box = $box_idx and GUICtrlRead($input_color_name) <> $this_group[$box_idx][1] and _
GUICtrlRead($input_color_name) <> "" then ; no removing names, only changing
$this_group[$box_idx][1] = GUICtrlRead($input_color_name) ; if you really need to, use a space
cpc_AddNewColor($this_group[$box_idx][0], $this_group[$box_idx][1])
exitloop
endif
; delete a color..
if $cpc_my_color = $this_group[$box_idx][0] and $overwrite then
cpc_DeleteColor($this_group[$box_idx][0])
$this_group[$box_idx][0] = "" ; keep name, for moving colors
cpc_InitColorWells()
; replace a color with current picked colors..
elseif $overwrite then
cpc_DeleteColor($this_group[$box_idx][0])
$this_group[$box_idx][0] = $cpc_my_color
$this_group[$box_idx][1] = GUICtrlRead($input_color_name)
cpc_AddNewColor($this_group[$box_idx][0], $this_group[$box_idx][1])
else
; update picked colors from selected color well..
GUICtrlSetData($input_color_name, $this_group[$box_idx][1])
if GUICtrlRead($input_hex_in_out) <> $this_group[$box_idx][0] then
cpc_UpdateHexOutput($this_group[$box_idx][0])
cpc_AddHex()
endif
GUICtrlSetBkColor($custom_color_box[$box_idx], $flash_color); if they clicked the active color well again
Sleep(100)
GUICtrlSetBkColor($custom_color_box[$box_idx], '0x' & $this_group[$box_idx][0])
endif
endif
$current_box = $box_idx
endif
next
; no sticky visible selections, but at least we have this..
cpc_DoInfo("Color Well " & $current_box & " : " & $this_group[$current_box][1])
GUICtrlSetState($input_color_name, $GUI_FOCUS) ; you want to name the color, right? (then type, hit <enter>) Voila!
Send("{RIGHT}") ; it's too ugly when all the text is selected automatically (use Ctrl+SHIFT+LEFT!)
endfunc
func cpc_HotKeyDeleteColor()
cpc_DeleteColor($this_group[$current_box][0])
$save_box = $current_box
cpc_InitColorWells()
$current_box = $save_box
endfunc
func cpc_DeleteColor($color)
IniDelete($colors_ini_path, $cpc_my_group, $color)
endfunc
func cpc_HotKeyAddChosenColor()
cpc_AddMyColor()
endfunc
func cpc_AddMyColor()
if GUICtrlRead($combo_custom_groups) = "" then
ControlCommand($gui_color, "", $combo_custom_groups, "SelectString", $cpc_my_group)
endif
$under_limit = false
for $i = 1 to $no_colorwells
if $this_group[$i][0] = "" then
$this_group[$i][0] = $cpc_my_color
$this_group[$i][1] = GUICtrlRead($input_color_name) ; this could be a rename
GUICtrlSetBkColor($custom_color_box[$i], '0x' & $this_group[$i][0])
cpc_AddNewColor($this_group[$i][0], $this_group[$i][1])
ControlFocus ($gui_color, "", $custom_color_box[$i])
$current_box = $i
$under_limit = true
exitloop
endif
next
; even if we're out of space in the color wells, we'll add it to the ini.
; the user may not realise yet and we DO NOT want to destroy user data.
; they might later copy the group and delete the first 64 colors, creating
; two groups out of the one big one (see cpc_LoadAllSavedColors() - above)
; or perhaps export it as a palette, with *all* the colors intact.
if not $under_limit then cpc_AddNewColor($cpc_my_color, GUICtrlRead($input_color_name))
endfunc
func cpc_AddNewColor($color, $name)
; prefs color-first, means leave the dupe-checking to IniWrite. However..
; if you launch cpc and "my_color" happens to be in the group (quite likely)
; this will prevent it having its name wiped if you happen to click an empty well, as folk do..
$poss_old_name = IniRead($colors_ini_path, $cpc_my_group, $color, "()*&(*&^*&^%*&^%(*&^")
if $poss_old_name <> "()*&(*&^*&^%*&^%(*&^" and $name = "" then $name = $poss_old_name
IniWrite($colors_ini_path, $cpc_my_group, $color, $name)
cpc_InitColorWells()
endfunc
func cpc_AddColorGroup()
$new_group = StringReplace(GUICtrlRead($combo_custom_groups), "[", "{")
$new_group = StringReplace($new_group, "]", "}")
for $i = 1 to $group_names[0] ; existing group..
if $group_names[$i] = $new_group and $new_group <> "empty" then return
next
; simple and effective, and 'extra' colors are passed across, comments are not..
$old_group = IniReadSection($colors_ini_path, $cpc_my_group)
if IsArray($old_group) then
IniWriteSection($colors_ini_path, $new_group, $old_group)
else
IniWrite($colors_ini_path, $new_group, "tmp", "")
IniDelete($colors_ini_path, $new_group, "tmp")
endif
cpc_LoadAllSavedColors()
cpc_FillGroupsCombo()
GUICtrlSetData($combo_custom_groups, $new_group)
cpc_LoadColorGroup()
endfunc
func cpc_DeleteColorGroup()
if ce_IsPressed(10) then
cpc_RecoverBackup($colors_ini_path)
cpc_LoadAllSavedColors()
cpc_FillGroupsCombo()
return
endif
cpc_StoreBackup($colors_ini_path)
IniDelete($colors_ini_path, GUICtrlRead($combo_custom_groups))
cpc_LoadAllSavedColors()
$cpc_my_group = GetLastComboSelection($previous_combo_groups, $group_names)
IniWrite($cpc_ini_path, $cpc_my_name, "my_group", $cpc_my_group)
cpc_FillGroupsCombo()
GUICtrlSetData($combo_custom_groups, $cpc_my_group)
cpc_LoadColorGroup()
GUICtrlSetState($combo_custom_groups, $GUI_FOCUS)
endfunc
func cpc_DoInfo($info_string)
GUICtrlSetData($label_colorwell, $info_string)
endfunc
func cpc_SwitchOffInfo()
if $ini_process then return ; they may import another folder immediately, you see.
GUICtrlSetData($label_colorwell, "")
ToolTip("")
AdLibDisable()
endfunc
func cpc_GetDroppedItem()
global $found_colors = false
$ini_process = false
WinActivate($gui_color)
$new_group = ""
if @GUI_DRAGID = -1 then ; a regular file or folder
if not StringInStr(FileGetAttrib(@GUI_DRAGFILE), "D") then ; not a folder
$import_file = @GUI_DRAGFILE
switch GetExtension($import_file)
case "ini"
$ini_process = true
$new_group = cpc_ImportIniColors(@GUI_DRAGFILE)
case "jpg", "jpeg", "bmp", "gif"
cpc_ImportImage(@GUI_DRAGFILE)
case "gpl", "pal"
$multiple_groups = true
if ce_IsPressed(10) then $multiple_groups = false
cpc_DoInfo("scanning palette.. " & BaseName(@GUI_DRAGFILE))
cpc_ImportPalette(@GUI_DRAGFILE, $multiple_groups)
GUICtrlSetState($combo_custom_groups, $GUI_FOCUS)
endswitch
else ; a folder..
$ini_process = true
$group_process = true
cpc_DoInfo("scanning for ini files in: " & BaseName(@GUI_DRAGFILE))
$list_o_inis = RecurseDir(@GUI_DRAGFILE, "*.ini")
if IsArray($list_o_inis) and FileExists(@GUI_DRAGFILE) then
for $i = 1 to $list_o_inis[0]
if $list_o_inis[$i] <> '' then
cpc_DoInfo("assimilating colors in: " & BaseName($list_o_inis[$i]))
$new_group = cpc_ImportIniColors($list_o_inis[$i])
endif
next
endif
endif
endif
if $ini_process then
if $found_colors then
if $group_process then
cpc_GetXYPrefs(1)
ToolTip(" Imported colors are now available in your color groups ", $cpc_x, $cpc_y, _
"Import Complete", 1)
cpc_DoInfo("import complete: new colors added")
endif
cpc_InitColorWells()
cpc_DoInfo("import complete")
else
cpc_DoInfo("no colors found")
endif
endif
$ini_process = false
AdlibEnable("cpc_SwitchOffInfo", 4000)
if $new_group then
if $dont_pop_up_comments = $GUI_UNCHECKED then cpc_PopUpComments($new_group)
; this next line is here because doing it beforehand isn't quick enough to activate the group! :/
; which is why cpc_PopUpComments() takes a variable instead of always working with cpc_my_group.
ControlCommand($gui_color, "", $combo_custom_groups, "SelectString", $new_group)
endif
endfunc
; cpc_ImportIniColors()
;
; This function imports colours from any old ini file, as well as regular
; cpc color group files, and converts them into color groups. pretty neat.
;
func cpc_ImportIniColors($import_file)
$new_group = $cpc_my_group ; we will return this value, and use it to set the group combo
$comment_string = "" ; to the last $new_group loaded (it may only be one group)
$imported_sections = IniReadSectionNames($import_file)
if not IsArray($imported_sections) then ; bad ini file (prolly xml!)
if not $group_process then
cpc_GetXYPrefs(1)
ToolTip(" The ini file is in a non-standard format. ", $cpc_x, $cpc_y, "An error occurred.", 1)
AdlibEnable("cpc_SwitchOffInfo", 3333)
endif
return
endif
; it would get too slow to check all situations, this is probably enough..
$removed = 0
for $i = 1 to $imported_sections[0] ; run through each section of the ini file..
$found_here = false
$new_group = $imported_sections[$i]
$ini_section = IniReadSection($import_file, $new_group)
if not IsArray($ini_section) then continueloop
for $j = 0 to uBound($ini_section)-1
select
; remove a color from a group (for "updates")..
case StringLen($ini_section[$j][0]) = 6 and $ini_section[$j][1] = "-"
if IniRead($colors_ini_path, $new_group, $ini_section[$j][0], "foo") <> "foo" then $removed += 1
IniDelete($colors_ini_path, $new_group, $ini_section[$j][0])
; kinda back-to-front, but we like it that way..
; foo=FF0000 becomes.. FF0000=foo
case StringLen($ini_section[$j][1]) = 6 and cpc_CheckBigHex($ini_section[$j][1])
IniWrite($colors_ini_path, $new_group, $ini_section[$j][1], _
StringReplace($ini_section[$j][0], "_", " "))
$found_colors = true
$found_here = true
; and for regular front-to-back cpc color groups..
; we get a lot of free energy out of the colors being stored value-first.
case StringLen($ini_section[$j][0]) = 6 and cpc_CheckBigHex($ini_section[$j][0])
IniWrite($colors_ini_path, $new_group, $ini_section[$j][0], _
StringReplace($ini_section[$j][1], "_", " "))
$found_colors = true
$found_here = true
endselect
next
if $found_here then
; we won't import comments for existing groups - this could potentially lead to massive duplication (when updating)..
; we could delete the existsing comments (good for 'updates'), but I just don't like detroying user data.
if not InArray($group_names, $new_group) then $comment_string = GrabCommentsFromIniSection($import_file, $new_group)
; write out any comments for this section..
if $comment_string then WriteCommentsToIniSection($colors_ini_path, $new_group, $comment_string)
endif
next
if not $group_process then
$tip_add = ""
if $removed then $tip_add = @CRLF & $removed & " colors were removed."
cpc_GetXYPrefs(1)
ToolTip("All available colors have been added to your color groups. " & $tip_add, $cpc_x, $cpc_y, "Import Complete", 1)
AdlibEnable("cpc_SwitchOffInfo", 3333)
$tip_add = ""
if $removed then $tip_add = " (" & $removed & " colors removed)"
cpc_DoInfo("import complete" & $tip_add)
AdlibEnable("cpc_SwitchOffInfo", 4000)
endif
return $new_group
endfunc
func cpc_CheckBigHex($so_called_color)
$tmp_dec = Dec($so_called_color)
if $tmp_dec = 0 and $so_called_color = "000000" then return 1
if $tmp_dec <> 0 then return 1
return 0
endfunc
; Import a Color Palette..
;
; Gimp palettes are the best, bar none; beautiful plain text, support for both palette and
; color names, as well as column information (which even cpc doesn't have). Vey nice indeed.
;
; JASC palettes are also pretty good; and plain text, which we love. Though they do have
; a couple of quirks. For instance, although IniWrite wouldn't write two blacks, we need
; to watch for them, anyway..
;
; Black is used as the "empty" color in JASC Palettes, so after we have one black, we need
; to skip the rest. HOWEVER, sometimes you will see dozens of black entries, and then more
; valid colors, and then another group of black entries, then more colors, and so on.
;
; Gimp palettes have their quirks, too. Duplicate colors are common (to fill columns), as
; are comments, both of which will be stripped when imported into color pickin chooser.
;
; Anyways, this simple function will grab all the colors, nomatter where they are, from
; either type of palette and store them in color pickin chooser groups.
;
func cpc_ImportPalette($file, $multiple_groups=true)
cpc_GetXYPrefs(1)
$palfile = FileOpen($file, 0)
if $palfile = -1 then
ToolTip(" There was an error reading the file. Check its permissions.", $cpc_x, $cpc_y, "Import Failed", 1)
AdlibEnable("cpc_SwitchOffInfo", 3333)
return 0
endif
$palette_values = FileRead($palfile)
FileClose($palfile)
$palette_values = StringSplit($palette_values, @LF)
switch StringStripWS($palette_values[1], 3)
case "JASC-PAL"
$pal_type = "jasc"
$new_group = StringReplace(CleanName($file), "[", "{")
$new_group = StringReplace($new_group, "]", "}")
$got_colums = true
case "GIMP Palette"
$pal_type = "gimp"
$new_group = StringStripWS(StringReplace($palette_values[2], "Name:", ""), 3)
$got_colums = false
case else
ToolTip(" The palette was of an unknown type", $cpc_x, $cpc_y, "Import Failed", 1)
cpc_DoInfo("import failed: unknown palette type")
AdlibEnable("cpc_SwitchOffInfo", 4000)
return
endswitch
if InArray($group_names, $new_group) then
ToolTip(" '" & $new_group & "' already exists", $cpc_x, $cpc_y, "Import Failed", 1)
cpc_DoInfo("failed: '" & $new_group & "' already exists")
AdlibEnable("cpc_SwitchOffInfo", 4000)
return
endif
$color_well = 1
$name_count = 1
$name_append = ""
$comment_string = ""
$partial = false
$got_black = false
local $check_array[$palette_values[0]] ; quicker than querying the ini for every value
for $i = 3 to $palette_values[0] ; begin scanning at line 2
if not StringInStr($palette_values[$i], " ") then continueloop
if $palette_values[$i] <> "" then
; setting a flag now is quicker than checking on every loop..
if not $got_colums and $pal_type = "gimp" and StringLeft($palette_values[$i], 8) = "Columns:" then
$got_colums = true ;
continueloop
endif
if $pal_type = "jasc" and StringStripWS($palette_values[$i], 3) = "0 0 0" then
if $got_black then
continueloop
else
$got_black = true
endif
endif
if $pal_type = "gimp" and StringLeft($palette_values[$i], 1) = "#" then
$comment_string &= StringStripWS($palette_values[$i], 3) & @CRLF
continueloop
endif
; holding down the shift key while importing enables you to force
; all the colors into the same group..
if $multiple_groups then
; more than 64 colors in this group -> make another group..
if $color_well = $no_colorwells+1 then
$name_count += 1
$color_well = 1 ; reset
endif
if $name_count > 1 then $name_append = " " & $name_count
if InArray($group_names, $new_group & $name_append) then
$partial = true
continueloop ; they are fooling around!
endif ; seriously though, this enables you to re-import parts of a set
endif
; convert the decimal RGB color to its hex equivalent, and save..
switch $pal_type
case "jasc" ; colors separated by spaces..
$dec_array = StringSplit(StringStripWS($palette_values[$i], 3), " ")
$hex_val = Hex($dec_array[1], 2) & Hex($dec_array[2], 2) & Hex($dec_array[3], 2)
$color_name = StringStripWS($palette_values[$i], 3)
case "gimp" ; colors separated by spaces, followed by a tab, followed by the color name.
$gimp_col = StringSplit(StringStripWS($palette_values[$i], 3), " ")
$color_name = $gimp_col[$gimp_col[0]]
$col_array = StringSplit(StringStripWS($gimp_col[1], 3), " ")
local $gimp_col[3] ; might as well re-use this
$count = 0
for $g = 1 to $col_array[0]
if StringStripWS($col_array[$g], 8) <> "" then
$gimp_col[$count] = $col_array[$g]
$count +=1
endif
next
$hex_val = Hex($gimp_col[0], 2) & Hex($gimp_col[1], 2) & Hex($gimp_col[2], 2)
endswitch
; this is a new color....
if not InArray($check_array, $hex_val) then
$check_array[$i] = $hex_val
IniWrite($colors_ini_path, $new_group & $name_append, $hex_val, $color_name)
$color_well += 1 ; Next!
elseif $color_well = 1 then ; duplicate gimp colors could fool our group counter, so..
$color_well = $no_colorwells+1
$name_count -= 1
endif
endif
next
if $comment_string then
$comment_string = StringStripWS($comment_string, 2)
WriteCommentsToIniSection($colors_ini_path, $new_group, $comment_string)
endif
$tip_append = ""
$info_append = ""
$pause = 3333
if $name_append <> "" then
$tip_append = @CRLF & " note: the palette has been split into " & $name_count & " groups"
$info_append = " (" & $name_count & " groups)"
if $partial then $tip_append &= @CRLF & " note also: some groups already existed and were not overwritten "
$pause = 6000
endif
cpc_GetXYPrefs(1)
cpc_DoInfo("Success: added '" & $new_group & "'" & $info_append)
ToolTip(" The palette is now available as the group '" & $new_group & "'" & $tip_append, $cpc_x, $cpc_y, _
"Import Complete", 1)
AdlibEnable("cpc_SwitchOffInfo", $pause)
cpc_InitColorWells()
if $dont_pop_up_comments = $GUI_UNCHECKED then cpc_PopUpComments($new_group)
ControlCommand($gui_color, "", $combo_custom_groups, "SelectString", $new_group)
endfunc
; export a color group..
;
func cpc_ExportGroup()
cpc_DialogOpen()
$save_to = IniRead($cpc_ini_path, $cpc_my_name, "save_inis", @MyDocumentsDir)
$group_section = IniReadSection($colors_ini_path, $cpc_my_group)
$comment_string = GrabCommentsFromIniSection($colors_ini_path, $cpc_my_group)
$save_file = FileSaveDialog( "Export the Color Group..", $save_to, "ini files (*.ini)" , 16 , $cpc_my_group & ".ini")
cpc_DialogClose()
if $save_file = "" then return
IniWrite($cpc_ini_path, $cpc_my_name, "save_inis", GetParent($save_file))
IniWriteSection ($save_file, $cpc_my_group, $group_section)
if $comment_string then WriteCommentsToIniSection($save_file, $cpc_my_group, $comment_string)
endfunc
; export a JASC-compatible palette..
;
func cpc_ExportJASCPalette()
$save_file = cpc_GetPalleteSaveLocation("JASC Palette files", "save_jasc_palettes", "pal")
if not $save_file then return
$group_section = IniReadSection($colors_ini_path, $cpc_my_group)
$pal_type = "256"
if $group_section[0][0] <= 16 then $pal_type = "16"
$pal_string = "JASC-PAL" & @CRLF & "0100" & @CRLF & $pal_type & @CRLF
if IsArray($group_section) then
if $pal_type = "256" then
$pal_string &= "255 255 255" & @CRLF ; add a white
$pal_type = "255"
endif
for $i = 1 to $group_section[0][0]
$pal_string &= StringReplace(ConvertColorValue($group_section[$i][0], "int"), ",", " ") & @CRLF
next
for $j = $i to $pal_type
$pal_string &= "0 0 0" & @CRLF
next
; the null character at the end isn't necessary.
FileWrite($save_file, $pal_string)
endif
endfunc
; export a Gimp palette..
;
func cpc_ExportGimpPalette()
$save_file = cpc_GetPalleteSaveLocation("Gimp Palette files", "save_gimp_palettes", "gpl")
if not $save_file then return
$group_section = IniReadSection($colors_ini_path, $cpc_my_group)
$comment_string = GrabCommentsFromIniSection($colors_ini_path, $cpc_my_group, "", "exported color pickin chooser")
$pal_string = "GIMP Palette" & @LF & "Name: " & $cpc_my_group & @LF & "# exported color pickin chooser color group" & @LF
if $comment_string then $pal_string &= StringReplace(StringStripWS($comment_string, 1), @CRLF, @LF) & @LF
if IsArray($group_section) then
for $i = 1 to $group_section[0][0]
$tmp_string = StringReplace(ConvertColorValue($group_section[$i][0], "int"), ",", " ")
$rgb = StringSplit($tmp_string, " ")
for $c = 1 to $rgb[0]
; pad the decimal string with spaces to take it up to 3 characters (perhaps StringFormat could do this)
; this is cute, though..
;for $a = StringLen($rgb[$c])+1 to 3
; $rgb[$c] = " " & $rgb[$c]
;next
; yup..
$rgb[$c] = StringFormat("% 3s", $rgb[$c])
next
$pal_string &= $rgb[1] & " " & $rgb[2] & " " & $rgb[3]
; add the name, if any..
if $group_section[$i][1] = "" then $group_section[$i][1] = "Untitled"
$pal_string &= " " & $group_section[$i][1] & @LF
next
$save_file = FileOpen($save_file, 2)
FileWrite($save_file, $pal_string)
FileClose($save_file)
endif
endfunc
func cpc_GetPalleteSaveLocation($type_string, $ini_save, $ext)
cpc_DialogOpen()
$save_to = IniRead($cpc_ini_path, $cpc_my_name, $ini_save, @MyDocumentsDir)
$save_file = FileSaveDialog( "Export the Color Group as a Palette..", $save_to, $type_string & "(*" & "." & $ext & ")" , 16 , $cpc_my_group & "." & $ext)
cpc_DialogClose()
if $save_file = "" then return
IniWrite($cpc_ini_path, $cpc_my_name, $ini_save, GetParent($save_file))
if GetExtension($save_file) <> $ext then $save_file &= "." & $ext
return $save_file
endfunc
; view/edit the comments for this group..
;
func cpc_PopUpComments($group)
cpc_GroupComments($group, 1)
endfunc
func cpc_MenuGroupComments()
cpc_GroupComments($cpc_my_group)
endfunc
func cpc_GroupComments($color_group, $popped=0)
$comment_string = ""
$comment_array = GrabCommentsFromIniSection($colors_ini_path, $color_group, true)
; strip "#" character (and any spaces) from left side of comment lines..
if $comment_array[0] > 0 then
for $i = 1 to $comment_array[0]
$comment_array[$i] = StringTrimLeft($comment_array[$i], 1)
$comment_array[$i] = StringStripWS($comment_array[$i], 1)
$comment_string &= $comment_array[$i] & @CRLF
next
$comment_string = StringStripWS($comment_string, 2)
endif
; no comments here, return..
if $comment_string = "" and $popped then return
$last_mode = AutoItSetOption("GUIOnEventMode", 0)
$last_coord_mode = AutoItSetOption("GUICoordMode", 0)
cpc_DialogOpen()
$dont_pop_up_comments = IniReadCheckBoxValue($cpc_ini_path, $cpc_my_name, "dont_pop_up_comments", $GUI_UNCHECKED)
cpc_GetXYPrefs(1)
$com_x = $cpc_x - 55
$com_y = $cpc_y + 75
if $com_x < 0 then $com_x = 0
if $com_y < 0 then $com_y = 0
global $gui_comments = GUICreate("Notes and Comments for '" & $color_group & "'..", _
450, 172, $com_x, $com_y, -1, $WS_EX_TOOLWINDOW)
WinSetOnTop($gui_comments, "", 1)
global $edit_comments = GUICtrlCreateEdit("", 7, 7, 440, 138)
GUICtrlSetData(-1, $comment_string)
$butt_done= GUICtrlCreateButton("&cancel", 0, 142, 46, 22)
GUICtrlSetTip(-1, " close this dialog " )
$check_no_comments_pop = GUICtrlCreateCheckBox("don't pop-up comments on import", 80, 0, 200)
GUICtrlSetTip(-1, " check this box to prevent comments popping up when you import color groups " )
GUICtrlSetState(-1, $dont_pop_up_comments)
$butt_revert = GUICtrlCreateButton("&revert", 250, 0, 54, 22)
GUICtrlSetTip(-1, " revert the comments back to the last saved version " )
$butt_save = GUICtrlCreateButton("&save", 56, 0, 54, 22)
GUICtrlSetTip(-1, " save the comments for this color group " )
GUISetState()
GUICtrlSetState($edit_comments, $GUI_FOCUS) ; this command, and..
WinActivate($gui_comments) ; this, prevents an <enter> popping the app menu (ALT key remnant?)
; perhaps we send an ALT keypress instead
while 1
sleep(50)
$msg = GUIGetMsg()
switch $msg
case $GUI_EVENT_CLOSE, $butt_done
exitloop
case $edit_comments
case $butt_revert
GUICtrlSetData($edit_comments, $comment_string)
case $check_no_comments_pop
$dont_pop_up_comments = GUICtrlRead($check_no_comments_pop)
if $dont_pop_up_comments = $GUI_CHECKED then
IniWrite($cpc_ini_path, $cpc_my_name, "dont_pop_up_comments", "true")
else
IniWrite($cpc_ini_path, $cpc_my_name, "dont_pop_up_comments", "false")
endif
case $butt_save
if StringStripWS(GUICtrlRead($edit_comments), 3) = "" then exitloop
$comment_string = ""
$new_comments_array = StringSplit(GUICtrlRead($edit_comments), @CRLF)
for $i = 1 to $new_comments_array[0]
if StringStripWS($new_comments_array[$i], 3) <> "" then
$comment_string &= "# " & StringStripWS($new_comments_array[$i], 3) & @CRLF
endif
next
$tmp_colors = IniReadSection($colors_ini_path, $color_group)
if IsArray($tmp_colors) then
; wipe and replace the ini section to remove its comments..
; this is where AutoIt's lack of comment support works in our favour!
IniDelete($colors_ini_path, $color_group)
IniWriteSection($colors_ini_path, $color_group, $tmp_colors)
; add the new comments..
if $comment_string then WriteCommentsToIniSection($colors_ini_path, $color_group, StringStripWS($comment_string, 2))
endif
exitloop
endswitch
if GUICtrlRead($edit_comments) <> $comment_string then
GUICtrlSetData($butt_save, "&save")
else
GUICtrlSetData($butt_save, "&ok")
endif
wend
AutoItSetOption("GUIOnEventMode", $last_mode)
AutoItSetOption("GUICoordMode", $last_coord_mode)
GUIDelete($gui_comments)
cpc_DialogClose()
endfunc
#cs (color sorting!)
sort flags..
1: red sort
2: green sort
3: blue sort
4: hue sort
5: sat sort
6: lum sort
10: name sort
#ce;(critical entropy!)
func cpc_MenuSortColorsName()
if $sort_flags[10] then
cpc_ReverseColors()
$sort_flags[10] = false
else
cpc_SetSortFlag(10)
cpc_GetColorsToSort()
cpc_ColorSortName($sort_colors)
endif
cpc_ShowSortedColors()
endfunc
; r/g/b..
func cpc_MenuSortColorsRed()
if $sort_flags[1] then
cpc_ReverseColors()
$sort_flags[1] = false
else
cpc_SetSortFlag(1)
cpc_GetColorsToSort()
cpc_ColorSortRGB($sort_colors, 1)
endif
cpc_ShowSortedColors()
endfunc
func cpc_MenuSortColorsGreen()
if $sort_flags[2] then
cpc_ReverseColors()
$sort_flags[2] = false
else
cpc_SetSortFlag(2)
cpc_GetColorsToSort()
cpc_ColorSortRGB($sort_colors, 2)
endif
cpc_ShowSortedColors()
endfunc
func cpc_MenuSortColorsBlue()
if $sort_flags[3] then
cpc_ReverseColors()
$sort_flags[3] = false
else
cpc_SetSortFlag(3)
cpc_GetColorsToSort()
cpc_ColorSortRGB($sort_colors, 3)
endif
cpc_ShowSortedColors()
endfunc
; h/s/l..
func cpc_MenuSortColorsHue()
if $sort_flags[4] then
cpc_ReverseColors()
$sort_flags[4] = false
else
cpc_SetSortFlag(4)
cpc_GetColorsToSort()
cpc_ColorSortHSL($sort_colors, 1)
endif
cpc_ShowSortedColors()
endfunc
func cpc_MenuSortColorsSat()
if $sort_flags[5] then
cpc_ReverseColors()
$sort_flags[5] = false
else
cpc_SetSortFlag(5)
cpc_GetColorsToSort()
cpc_ColorSortHSL($sort_colors, 2)
endif
cpc_ShowSortedColors()
endfunc
func cpc_MenuSortColorsLum()
if $sort_flags[6] then
cpc_ReverseColors()
$sort_flags[6] = false
else
cpc_SetSortFlag(6)
cpc_GetColorsToSort()
cpc_ColorSortHSL($sort_colors, 3)
endif
cpc_ShowSortedColors()
endfunc
func cpc_GetColorsToSort()
global $sort_colors = IniReadSection($colors_ini_path, $cpc_my_group)
endfunc
func cpc_ShowSortedColors()
$comment_string = GrabCommentsFromIniSection($colors_ini_path, $cpc_my_group)
IniWriteSection($colors_ini_path, $cpc_my_group , $sort_colors)
if $comment_string then WriteCommentsToIniSection($colors_ini_path, $cpc_my_group, $comment_string)
cpc_InitColorWells()
endfunc
; could be re-used (with a small modification) to reverse other 2D arrays..
func cpc_ReverseColors()
cpc_GetColorsToSort()
$limit = $sort_colors[0][0]
local $tmp_array[$limit+1][2] = [[$limit]]
$a = 1
for $i = $limit to 1 step -1
$tmp_array[$a][0] = $sort_colors[$i][0]
$tmp_array[$a][1] = $sort_colors[$i][1]
$a += 1
next
$sort_colors = $tmp_array
endfunc
; set this sort flag, and clear all other sort flags..
; this ensures you get your chosen sort on the first keypress
func cpc_SetSortFlag($flag)
for $i = 1 to $sort_flags[0]
if $i <> $flag then
$sort_flags[$i] = false
else
$sort_flags[$i] = true
endif
next
endfunc
; The sorting routines..
;
; Basically, insertion sort algos with a colorful twist
; (the color fun happens in corz_colors.au3)
;
; I originally had a QuickSort algo here, but insertion sorting
; a) is just as fast, and b) gives better results for colors.
; ShellSort also proves to be no better in this application.
;
; sort by Hue/Sat/Lum..
;
func cpc_ColorSortHSL(ByRef $array, $idx)
for $i = 1 to $array[0][0]
$store = $array[$i][0]
$store2 = $array[$i][1]
$hsl_idx = RGBToHSL($array[$i][0], $idx)
$j = $i
while $j > 1 and RGBToHSL($array[$j-1][0], $idx) > $hsl_idx
$array[$j][0] = $array[$j-1][0]
$array[$j][1] = $array[$j-1][1]
$j -= 1
wend
$array[$j][0] = $store
$array[$j][1] = $store2
next
endfunc
; sort by RGB values..
; I often wonder why you don't see this more in color utilities.
;
func cpc_ColorSortRGB(ByRef $array, $idx)
for $i = 1 to $array[0][0]
$store = $array[$i][0]
$store2 = $array[$i][1]
$hsl_idx = ConvertColorValue($array[$i][0], "i", 0, $idx)
$j = $i
while $j > 1 and ConvertColorValue($array[$j-1][0], "i", 0, $idx) > $hsl_idx
$array[$j][0] = $array[$j-1][0]
$array[$j][1] = $array[$j-1][1]
$j -= 1
wend
$array[$j][0] = $store
$array[$j][1] = $store2
next
endfunc
; and a bubble sort for the names..
;
func cpc_ColorSortName(ByRef $bs_array)
for $i = uBound($bs_array)-1 to 1 step -1
for $j = 2 to $i
if $bs_array[$j-1][1] > $bs_array[$j][1] then
$temp = $bs_array[$j-1][0]
$temp2 = $bs_array[$j-1][1]
$bs_array[$j-1][0] = $bs_array[$j][0]
$bs_array[$j-1][1] = $bs_array[$j][1]
$bs_array[$j][0] = $temp
$bs_array[$j][1] = $temp2
endif
next
next
endfunc
func cpc_DialogOpen()
cpc_UnSetHotKeys()
GUISetState(@SW_DISABLE, $gui_color)
if $cpc_stand_alone then
AutoItSetOption ("TrayIconHide" , 1)
if $cpc_on_top = $GUI_CHECKED then WinSetOnTop($gui_color, "", 0)
endif
endfunc
func cpc_DialogClose()
if $cpc_stand_alone then
if $cpc_on_top = $GUI_CHECKED then WinSetOnTop($gui_color, "", 1)
AutoItSetOption("TrayIconHide" , 0)
endif
GUISetState(@SW_ENABLE, $gui_color)
WinActivate($gui_color) ; handy for when embedded in other apps
cpc_SetHotKeys()
endfunc
func cpc_SaveColorPrefs()
IniWrite($cpc_ini_path, $cpc_my_name, "my_color", $cpc_my_color)
IniWrite($cpc_ini_path, $cpc_my_name, "my_group", $cpc_my_group)
endfunc
func cpc_LoadMag()
local $tmp_blocks = IniRead($cpc_ini_path, $cpc_my_name, "mag_save", "")
if $tmp_blocks = "" then
cpc_UpdateMag(true) ; (first run)
return
endif
$mag_save_blocks = StringSplit($tmp_blocks, "|")
if $mag_save_blocks[0] = 1 then return
for $i = 1 to 100
GUICtrlSetBkColor($mag_block[$i-1], $mag_save_blocks[$i])
next
endfunc
func cpc_SaveMag()
local $mag_save = ""
for $i = 1 to 100
$mag_save &= $mag_save_blocks[$i] & "|"
next
$mag_save = StringTrimRight($mag_save, 1)
IniWrite($cpc_ini_path, $cpc_my_name, "mag_save", $mag_save)
IniWrite($cpc_ini_path, $cpc_my_name, "last_mag", $cpc_last_mag) ; secondary mag backup system
endfunc
; backup group deletions in case they change their mind..
;
func cpc_StoreBackup($inifile_path)
FileCopy($inifile_path, @TempDir & "\" & Basename($inifile_path) & ".backup.ini", 1)
endfunc
; use a standard ini import, in case they are tardy in recovery; no new colors get lost
;
func cpc_RecoverBackup($inifile_path)
FileCopy($inifile_path, @TempDir & "\" & Basename($inifile_path) & ".backupTMP", 1)
cpc_ImportIniColors(@TempDir & "\" & Basename($inifile_path) & ".backup.ini")
FileMove(@TempDir & "\" & Basename($inifile_path) & ".backupTMP", @TempDir & "\" & Basename($inifile_path) & ".backup.ini", 1)
endfunc
; cpc will not, in fact, call this function.. ;o)
func cpc_RemoveBackup($inifile_path)
FileDelete(@TempDir & "\" & Basename($inifile_path) & ".backup.ini")
endfunc
func cpc_OpenDataFolder()
ShellExecute ("Explorer.exe", $cpc_data_parent)
endfunc
func cpc_DoAbout()
GUISetCursor()
cpc_DialogOpen()
$last_mode = AutoItSetOption("GUIOnEventMode", 0) ; you surely wouln't remove my credit!
$gui_about = GUICreate(" about corz " & $cpc_my_name & "..", 225, 100, -1, -1, _
$WS_CAPTION, BitOr($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUICtrlCreateLabel(" " & $cpc_my_name & " v" & $cpc_my_version & @CRLF & " by cor", 60, 8)
GUICtrlCreateIcon("shell32.dll", 274, 10, 10)
GUICtrlCreateLabel(" do you want to visit the " & @CRLF & " color pickin chooser web page? ", 60, 38)
$gui_about_NO = GUICtrlCreateButton("No, not right now", 10, 73, 85, 22)
$gui_about_OK = GUICtrlCreateButton("Yes, let's do it!", 133, 73, 85, 22)
GUICtrlSetState($gui_about_OK, $GUI_FOCUS)
GUISetState()
while 1
$msg = GUIGetMsg()
switch $msg
case $GUI_EVENT_CLOSE, $gui_about_NO
GUIDelete($gui_about)
exitloop
case $gui_about_OK
VisitURL('http://corz.org/windows/software/color-pickin-chooser/')
GUIDelete($gui_about)
exitloop
endswitch
wend
AutoItSetOption("GUIOnEventMode", $last_mode)
cpc_DialogClose()
endfunc
; left-click system tray action..
;
func cpc_ToggleWindow()
$winstate = WinGetState($gui_color)
if BitAnd($winstate, 2) then ; hide the window..
if $cpc_on_top = $GUI_CHECKED then WinSetOnTop($gui_color, "", 0)
GUISetCursor()
ToolTip ("")
cpc_GetXYPrefs() ; still looking for the "MOVE" event (if primaryup is available, it's handy for that)
cpc_UnSetHotKeys()
corz_GUIAnimateClose($gui_color, $cpc_gui_fx)
else ; show the window..
corz_GUIAnimateOpen($gui_color, $cpc_gui_fx)
cpc_UpdateImageContextMenu()
cpc_SetHotKeys()
if $cpc_on_top = $GUI_CHECKED then WinSetOnTop($gui_color, "", 1)
endif
endfunc
func cpc_SetHotKeys()
HotKeySet("^{F1}", "cpc_ToggleWindow")
HotKeySet("{DEL}", "cpc_HotKeyDeleteColor")
HotKeySet("{ESC}", "cpc_ExitDoQuit")
HotKeySet("{ENTER}", "cpc_HotKeyAddChosenColor")
HotKeySet("{F1}", "cpc_HotKeyShowTips")
HotKeySet("{F2}", "cpc_HotKeyAddChosenColor")
HotKeySet("{F3}", "cpc_HotAutoKeyCopyHex")
HotKeySet("{F4}", "cpc_HotKeyCopyHex")
HotKeySet("{F5}", "cpc_HotKeyToggleLiveLum")
HotKeySet("{F6}", "cpc_HotKeyToggleLiveMag")
HotKeySet("{F7}", "cpc_HotKeyToggleLiveHex")
HotKeySet("{F8}", "cpc_MenuUpdateImageContextMenu")
HotKeySet("{F9}", "cpc_HotKeySystemPicker")
HotKeySet("{F10}", "cpc_OpenDataFolder")
HotKeySet("^{NUMPAD0}", "cpc_MenuSortColorsName")
HotKeySet("^{NUMPAD1}", "cpc_MenuSortColorsRed")
HotKeySet("^{NUMPAD2}", "cpc_MenuSortColorsGreen")
HotKeySet("^{NUMPAD3}", "cpc_MenuSortColorsBlue")
HotKeySet("^{NUMPAD4}", "cpc_MenuSortColorsHue")
HotKeySet("^{NUMPAD5}", "cpc_MenuSortColorsSat")
HotKeySet("^{NUMPAD6}", "cpc_MenuSortColorsLum")
HotKeySet("!c", "cpc_MenuGroupComments")
endfunc
func cpc_UnSetHotKeys()
HotKeySet("{DEL}")
HotKeySet("{ESC}")
HotKeySet("{ENTER}")
HotKeySet("{F1}")
HotKeySet("{F2}")
HotKeySet("{F3}")
HotKeySet("{F4}")
HotKeySet("{F5}")
HotKeySet("{F6}")
HotKeySet("{F7}")
HotKeySet("{F8}")
HotKeySet("{F9}")
HotKeySet("{F10}")
HotKeySet("^{NUMPAD0}")
HotKeySet("^{NUMPAD1}")
HotKeySet("^{NUMPAD2}")
HotKeySet("^{NUMPAD3}")
HotKeySet("^{NUMPAD4}")
HotKeySet("^{NUMPAD5}")
HotKeySet("^{NUMPAD6}")
HotKeySet("!c")
endfunc
func cpc_GetXYPrefs($check_only=false) ; also called during window toggle, and before tips
$size_array = WinGetPos($gui_color)
if IsArray($size_array) then
$cpc_x = $size_array[0]
$cpc_y = $size_array[1]
else
$cpc_x = -1
$cpc_y = -1
endif
if not $check_only then
IniWrite($cpc_ini_path, $cpc_my_name, "x", $cpc_x)
IniWrite($cpc_ini_path, $cpc_my_name, "y", $cpc_y)
endif
endfunc
func cpc_KillWindow()
cpc_UnSetHotKeys() ; I'm trying to track something down *sigh*
GUISetCursor()
ToolTip ("")
if not $cpc_killed then corz_GUIAnimateClose($gui_color, $cpc_gui_fx)
GUIDelete($gui_color)
GUIDelete($dummy_container)
endfunc
func cpc_Done()
if $done_quits = $GUI_CHECKED or not $cpc_stand_alone then
cpc_DoneDoQuit()
return
else
cpc_ToggleWindow()
endif
endfunc
func cpc_DoneDoQuit()
cpc_UnSetHotKeys()
cpc_GetXYPrefs()
cpc_SaveColorPrefs()
cpc_SaveMag()
$do_quit = true
endfunc
; bye!
func cpc_ExitDoQuit()
$cpc_killed = true
cpc_DoneDoQuit()
endfunc
func cpc_HotKeySystemPicker()
cpc_SystemPicker()
endfunc
func cpc_SystemPicker()
cpc_UnSetHotKeys()
$some_color = cpc__ChooseColor(2, "0x" & $cpc_my_color, 2, $gui_color)
if not @error then
$cpc_live_color = StringTrimLeft($some_color, 2)
cpc_SetColor()
endif
cpc_SetHotKeys()
endfunc
; From the UDFs (Misc.au3)..
; Call the System Picker..
;
; Author: Gary Frost (custompcs at charter dot net)
;
Func cpc__ChooseColor($i_ReturnType = 0, $i_colorref = 0, $i_refType = 0, $h_wnd_owner = 0)
Local $custcolors = "int[16]"
Local $struct = "dword;int;int;int;ptr;dword;int;ptr;ptr"
Local $p = DllStructCreate($struct)
If @error Then
SetError(-1)
Return -1
EndIf
Local $cc = DllStructCreate($custcolors)
If @error Then
SetError(-2)
Return -1
EndIf
If ($i_refType == 1) Then
$i_colorref = Int($i_colorref)
ElseIf ($i_refType == 2) Then
$i_colorref = Hex(String($i_colorref), 6)
$i_colorref = '0x' & StringMid($i_colorref, 5, 2) & StringMid($i_colorref, 3, 2) & StringMid($i_colorref, 1, 2)
EndIf
DllStructSetData($p, 1, DllStructGetSize($p))
DllStructSetData($p, 2, $h_wnd_owner)
DllStructSetData($p, 4, $i_colorref)
DllStructSetData($p, 5, DllStructGetPtr($cc))
DllStructSetData($p, 6, BitOR($CC_ANYCOLOR, $CC_FULLOPEN, $CC_RGBINIT))
Local $ret = DllCall("comdlg32.dll", "long", "ChooseColor", "ptr", DllStructGetPtr($p))
If ($ret[0] == 0) Then
SetError(-3)
Return -1
EndIf
Local $color_picked = DllStructGetData($p, 4)
If ($i_ReturnType == 1) Then ; return Hex BGR Color
Return '0x' & Hex(String($color_picked), 6)
ElseIf ($i_ReturnType == 2) Then ; return Hex RGB Color
$color_picked = Hex(String($color_picked), 6)
Return '0x' & StringMid($color_picked, 5, 2) & StringMid($color_picked, 3, 2) & StringMid($color_picked, 1, 2)
ElseIf ($i_ReturnType == 0) Then
Return $color_picked
Else
SetError(-4)
Return -1
EndIf
EndFunc
#cs
changes [since release]
1.8.1
* maintenance release - non-code changes only.
1.8
* fixed picker image install bug, no really.
* last if the include paths is now relative I upgraded to the latest AutoIt
Wrapper, and the extra icons worked! Ensure you are using at least v1.9.3
of AutoIt wrapper. YOu should be able to compile the source pack now with
zero editing.
1.7.9
* bugfix to the cpc_ButtCopyColor()function
* fixed incorrect ini path entry
1.7.8
* made include paths relative
* notes updates
1.7.7
* documentation updates and typo fixes
* cleaned up a couple of sections
1.7.6
* added page URL to about box (and made the page!)
#ce
; compiler directives..
;
#Region
; AutoIt3Wrapper settings..
#AutoIt3Wrapper_Icon = img\chooser.ico
#AutoIt3Wrapper_Res_Icon_Add = img\icons\grad.ico
#AutoIt3Wrapper_Res_Icon_Add = img\icons\mag.ico
#AutoIt3Wrapper_Res_Icon_Add = img\icons\hex.ico
; free-form resource fields (max 15)..
#AutoIt3Wrapper_Res_Field = Author|(or
#AutoIt3Wrapper_Res_Field = Compiled|%date% - %time%
#AutoIt3Wrapper_Res_Field = URL|http://corz.org/windows/software/color-pickin-chooser/
; application's resource info..
#AutoIt3Wrapper_Res_Comment = a color chooser
#AutoIt3Wrapper_Res_Description = corz color pickin chooser
#AutoIt3Wrapper_Res_Fileversion = 1.8.1
#EndRegion