10 replies to this topic

[Yashied]

LAST VERSION - 1.1
07-Dec-10

This library provides a dialog box to select a color in three color models - RGB (Red, Green, Blue), HSL (Hue, Saturation, Lightness), and HSB (Hue, Saturation, Brightness). This is not a program, this is a function that you can use in your scripts. This function is similar to the _ChooseColor() from Misc.au3 library that is included in the AutoIt package. UDF is fully compatible with the ColorPicker.au3 (v1.5) and can be used as a custom function for a "Color Chooser" dialog box (see examples). Also there is a tool (pipette) to get the color from the screen. I recommend to first read description inside the library. Please play with this UDF and post any comments and suggestions. Enjoy.

ColorChooser UDF Library v1.1
(Previous downloads: 316)

 ColorChooser.au3   46.87KB   776 downloads


Example1

AutoIt        expandcollapse  popup

#Include <ColorChooser.au3>

Opt('MustDeclareVars', 1)

Global $hForm, $Msg, $Label, $Button, $Data, $Color = 0x50CA1B

$hForm = GUICreate('MyGUI', 170, 200)
$Label = GUICtrlCreateLabel('', 15, 15, 140, 140, $SS_SUNKEN)
GUICtrlSetBkColor(-1, $Color)
$Button = GUICtrlCreateButton('Select color...', 35, 166, 100, 23)
GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $Button
            $Data = _ColorChooserDialog($Color, $hForm)
            If $Data > -1 Then
                GUICtrlSetBkColor($Label, $Data)
                $Color = $Data
            EndIf
    EndSwitch
WEnd

Example2 (required ColorPicker.au3)

AutoIt        expandcollapse  popup

#Include <ColorChooser.au3>
#Include <ColorPicker.au3>

Opt('MustDeclareVars', 1)

Global $hForm, $Msg, $Label, $Picker

$hForm = GUICreate('MyGUI', 170, 200)
$Label = GUICtrlCreateLabel('', 15, 15, 140, 140, $SS_SUNKEN)
GUICtrlSetBkColor(-1, 0x50CA1B)
$Picker = _GUIColorPicker_Create('', 55, 166, 60, 23, 0x50CA1B, BitOR($CP_FLAG_CHOOSERBUTTON, $CP_FLAG_MAGNIFICATION, $CP_FLAG_ARROWSTYLE), 0, -1, -1, 0, 'Simple Text', 'Custom...', '_ColorChooserDialog')
GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $Picker
            GUICtrlSetBkColor($Label, _GUIColorPicker_GetColor($Picker))
    EndSwitch
WEnd

Edited by Yashied, 07 December 2010 - 08:31 AM.

[Yashied]

The library has been updated.

[Shafayat]

This is quite nice. And useful.

Thanks

[Yashied]

The library has been updated.

v1.1

Changes

Spoiler

• Added the following flags for more appearance changes and functionality of the dialog box.
  
  $CC_FLAG_SOLIDCOLOR
  $CC_FLAG_CAPTURECOLOR
  $CC_FLAG_USERCOLOR
  $CC_FLAG_DEFAULT
  
• Added ability to save up to 20 color values, and use them in other programs that using this library (see $CC_FLAG_USERCOLOR).
• Fixed several minor bugs.

[Beege]

Yashid, I get the following errors when running example 1:

F:\AutoIt\Other People Projects and Examples\Yasheid\Color Choser UDF\ColorChooser.au3(1295,47) : ERROR: CP_WM_COMMAND(): undefined function.
        CP_WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
F:\AutoIt\Other People Projects and Examples\Yasheid\Color Choser UDF\ColorChooser.au3(1469,59) : ERROR: CP_WM_SETCURSOR(): undefined function.
        $Result = CP_WM_SETCURSOR($hWnd, $iMsg, $wParam, $lParam)

[Yashied]

Yashid, I get the following errors when running example 1...

With this code you also get an error, but the code is absolutely correct. Do not pay any attention to it.

If (IsDeclared('A')) And ($A = 1) Then
    MyFunc()
EndIf

[Yashied]

Small update.

[tip]

This requires really hard work. Thanks Yashied. I appreciate it...


Regards
Tip

[Yashied]

The library has been updated. Now Au3Check shows no errors.

[happytc]

when R = 250, G = 250, B = 250, return value of ColorChooser function is H = 160, S = 0, L = 240

why here H = 160, instead of　Ｈ = 0 ?

[PAEz]

when R = 250, G = 250, B = 250, return value of ColorChooser function is H = 160, S = 0, L = 240

why here H = 160, instead of　Ｈ = 0 ?

When Saturation is 0 it really doesnt matter what the Hue is because its still going to be grey/black/white and its very common in this instance for the hue to be set to the center of the colour wheel which is 160 in this case.

EDIT: Freakn great UDF....the color picker tool is just gravy!

Edited by PAEz, 23 August 2011 - 09:27 AM.