How to create a Slider for color values

[AndyS01]

I want to create a slider that has values representing colors, like the slider on the _ChooseColor() GUI in the Misc.au3 UDF, but the max value for a slider is 32767.  
Here is my test code:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <Misc.au3>

$hGUI = GUICreate("Test", 100, 560)

$BtnID = GUICtrlCreateButton("Choose", 10, 10, 50, 25)
;~ GUICtrlSetOnEvent($BtnID, "handle_choose_btn")

$flags = BitOR($TBS_AUTOTICKS, $TBS_VERT)
$iSliderID = GUICtrlCreateSlider(10, 50, 40, 420, $flags)
$hSlider_hWnd = GUICtrlGetHandle($iSliderID)

$iMaxVal = 32767
GUICtrlSetLimit($iSliderID, $iMaxVal, 0) ; change min/max value

GUISetState()
GUIRegisterMsg($WM_VSCROLL, "WM_V_Slider")

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_PRIMARYUP
            ToolTip("")
        case $BtnID
            handle_choose_btn()
    EndSwitch
WEnd

; React to a slider movement
Func WM_V_Slider($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam

    If $lParam = $hSlider_hWnd Then
        $iValue = GUICtrlRead($iSliderID)
        ConsoleWrite("+++: $iValue = " & $iValue & @CRLF)

        ToolTip(getRGB($iValue))
    EndIf

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_V_Slider

; Extract the RGB components from the color value
Func getRGB($iColorVal)
    Local $hexstr, $b, $g, $r, $rgb

    $hexstr = StringFormat("%06X", $iColorVal)
    $r = StringMid($hexstr, 1, 2)
    $g = StringMid($hexstr, 3, 2)
    $b = StringMid($hexstr, 5, 2)

    $rgb = StringFormat("" & $iColorVal & " - rgb: %02s %02s %02s", $r, $g, $b)
    Return ($rgb)
EndFunc   ;==>getRGB

Func handle_choose_btn()
    $color = _ChooseColor(2, 255, 0, $hGUI)
    ConsoleWrite("+++: $color = " & Hex($color, 8) & @CRLF)
EndFunc   ;==>handle_choose_btn

 

[careca]

this?

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <Misc.au3>

$hGUI = GUICreate("Test", 100, 560)

$BtnID = GUICtrlCreateButton("Choose", 10, 10, 50, 25)
;~ GUICtrlSetOnEvent($BtnID, "handle_choose_btn")

$flags = BitOR($TBS_AUTOTICKS, $TBS_VERT)
$iSliderID = GUICtrlCreateSlider(10, 50, 40, 420, $flags)
$hSlider_hWnd = GUICtrlGetHandle($iSliderID)

$iMaxVal = 100
GUICtrlSetLimit($iSliderID, $iMaxVal, 0) ; change min/max value

GUISetState()
GUIRegisterMsg($WM_VSCROLL, "WM_V_Slider")

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_PRIMARYUP
            ToolTip("")
        case $BtnID
            handle_choose_btn()
    EndSwitch
WEnd

; React to a slider movement
Func WM_V_Slider($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam

    If $lParam = $hSlider_hWnd Then
        $iValue = GUICtrlRead($iSliderID)
        $iValue = $iValue / 100
        ConsoleWrite("+++: $iValue = " & $iValue & @CRLF)
        $iValue = 16777215*$iValue
        ToolTip(getRGB($iValue))
    EndIf

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_V_Slider

; Extract the RGB components from the color value
Func getRGB($iColorVal)
    Local $hexstr, $b, $g, $r, $rgb

    $hexstr = StringFormat("%06X", $iColorVal)
    $r = StringMid($hexstr, 1, 2)
    $g = StringMid($hexstr, 3, 2)
    $b = StringMid($hexstr, 5, 2)

    $rgb = StringFormat("" & $iColorVal & " - rgb: %02s %02s %02s", $r, $g, $b)
    Return ($rgb)
EndFunc   ;==>getRGB

Func handle_choose_btn()
    $color = _ChooseColor(2, 255, 0, $hGUI)
    ConsoleWrite("+++: $color = " & Hex($color, 8) & @CRLF)
EndFunc   ;==>handle_choose_btn

 

[AndyS01]

Making your changes presented better values, but the values always ended in FFFF.  Not what I needed.  Converting slider values from 0 to max should produce hex values from 000000 to FFFFFF, something like this:

000000 - 0000FF
000100 - 0001FF
000200 - 0002FF
...
FFFF00 - FFFFFF

Try my code and look at the tooltips and Console output.  Then click on the 'choose' button and note the action of the slider to the left side of the popup.  This is exactly how I want my slider to operate.  I don't think it's a direct conversion.
Adjusted test code:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <Misc.au3>

$hGUI = GUICreate("Test", 100, 560)

$BtnID = GUICtrlCreateButton("Choose", 10, 10, 50, 25)

$flags = BitOR($TBS_AUTOTICKS, $TBS_VERT)
$iSliderID = GUICtrlCreateSlider(10, 50, 40, 420, $flags)
$hSlider_hWnd = GUICtrlGetHandle($iSliderID)

$iMaxVal = 100
GUICtrlSetLimit($iSliderID, $iMaxVal, 0) ; change min/max value

GUISetState()
GUIRegisterMsg($WM_VSCROLL, "WM_V_Slider")

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_PRIMARYUP
            ToolTip("")
        Case $BtnID
            handle_choose_btn()
    EndSwitch
WEnd

; React to a slider movement
Func WM_V_Slider($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam

    If $lParam = $hSlider_hWnd Then
        $iValue = GUICtrlRead($iSliderID)
        ConsoleWrite("+++: $iValue = " & $iValue & @CRLF)
        $iValue = 16777215 * $iValue
        ConsoleWrite("+++: $iValue = " & $iValue & @CRLF)
        ToolTip(getRGB($iValue))
    EndIf

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_V_Slider

; Extract the RGB components from the color value
Func getRGB($iColorVal)
    Local $hexstr, $b, $g, $r, $rgb

    $hexstr = StringFormat("%06X", $iColorVal)
    ConsoleWrite("+++: $hexstr = " & $hexstr & @CRLF)
    $r = StringMid($hexstr, 1, 2)
    $g = StringMid($hexstr, 3, 2)
    $b = StringMid($hexstr, 5, 2)

    $rgb = StringFormat("" & hex($iColorVal) & " - rgb: %02s %02s %02s", $r, $g, $b)
    ConsoleWrite("+++: $rgb = " & $rgb & @CRLF)
    Return ($rgb)
EndFunc   ;==>getRGB

Func handle_choose_btn()
    $color = _ChooseColor(2, 255, 0, $hGUI)
    ConsoleWrite("+++: $color = " & Hex($color, 8) & @CRLF)
EndFunc   ;==>handle_choose_btn

 

[careca]

32 minutes ago, AndyS01 said:

...but the values always ended in FFFF.  Not what I needed.  Converting slider values from 0 to max should produce hex values from 000000 to FFFFFF

That's exactly the result i got. The bottom of the slider represents max value, and the max value in rgb is FFFFFF, the top of the slider is zero, not what you want? maybe i got it wrong.

Im just confused at this point,

"click on the 'choose' button and note the action of the slider to the left side of the popup"

i got no slider to the left, only on the right, it makes any particular color darker or brighter.

Can you clarify a bit?

Edited August 13, 2018 by careca

[BrewManNH]

Why reinvent the wheel? What doesn't the color chooser not do that you want to do differently in your code?

[AndyS01]

You're right, it's on the right.  I see that I misunderstood what that slider did. 

To answer BrewManNH, this is test code to show the problem.  In my real program, I have an edit box that shows the results of FG and BG rgb color values and in fact, changes those colors 'on the fly'.  I have buttons that cycle the colors through the color values defined in the ColorConstants.au3 file.  I have a slider for the FG as well as the BG so I could see the results of in-between color combinations.

Getting back to my slider, note that the first value after 0 is 1 and that it converted to 16777215 (hex FFFFFF), and at the bottom of the slider, a value of 100 converted to 1677721500 (hex 5AFFFFA5).  This is not what I want.  I probably want to scale the actual slider values up to values from 0 to FFFFFF.

[careca]

1 hour ago, AndyS01 said:

I probably want to scale the actual slider values up to values from 0 to FFFFFF.

I mean, you might have gotten a different result, but that's what i got in the code i posted before, that's why i posted it, now you're saying it's not what the code is doing. What is different in the result, to what you need? Can you test my code again? It goes from 0 - 000000 to 100 - FFFFFF.

Not what you want? Im still confused.

[AndyS01]

Using the last posted test code:

the first value is: 1 -> 16777215 (hex 00FFFFFF)
and the last value is: 100 -> 1677721500 (hex 63FFFF9C)

[careca]

My posted code?

[AndyS01]

Just to be sure we're on the same page:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <SliderConstants.au3>
#include <Misc.au3>

$hGUI = GUICreate("Test", 100, 560)

$BtnID = GUICtrlCreateButton("Choose", 10, 10, 50, 25)

$flags = BitOR($TBS_AUTOTICKS, $TBS_VERT)
$iSliderID = GUICtrlCreateSlider(10, 50, 40, 420, $flags)
$hSlider_hWnd = GUICtrlGetHandle($iSliderID)

$iMaxVal = 100
GUICtrlSetLimit($iSliderID, $iMaxVal, 0) ; change min/max value

GUISetState()
GUIRegisterMsg($WM_VSCROLL, "WM_V_Slider")

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_PRIMARYUP
            ToolTip("")
        Case $BtnID
            handle_choose_btn()
    EndSwitch
WEnd

; React to a slider movement
Func WM_V_Slider($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam

    If $lParam = $hSlider_hWnd Then
        $iValue = GUICtrlRead($iSliderID)
        ConsoleWrite("+++: $iValue = " & $iValue & @CRLF)
        $iValue = 16777215 * $iValue
        ConsoleWrite("+++: $iValue = " & $iValue & @CRLF)
        ToolTip(getRGB($iValue))
    EndIf

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_V_Slider

; Extract the RGB components from the color value
Func getRGB($iColorVal)
    Local $hexstr, $b, $g, $r, $rgb

    $hexstr = StringFormat("%06X", $iColorVal)
    ConsoleWrite("+++: $hexstr = " & $hexstr & @CRLF)
    $r = StringMid($hexstr, 1, 2)
    $g = StringMid($hexstr, 3, 2)
    $b = StringMid($hexstr, 5, 2)

    $rgb = StringFormat("" & hex($iColorVal) & " - rgb: %02s %02s %02s", $r, $g, $b)
    ConsoleWrite("+++: $rgb = " & $rgb & @CRLF)
    Return ($rgb)
EndFunc   ;==>getRGB

Func handle_choose_btn()
    $color = _ChooseColor(2, 255, 0, $hGUI)
    ConsoleWrite("+++: $color = " & Hex($color, 8) & @CRLF)
EndFunc   ;==>handle_choose_btn

with this code, the end of the slider looks like this:

[careca]

Is that the code i posted? no.

[AndyS01]

The last code I posted

[careca]

Im getting tired of this conversation, i know it wasnt my code... Read all posts again, there are questions unanswered.

Edited August 14, 2018 by careca

[AndyS01]

Right you are.  Somehow, I reverted my code back to as it was in my previous code.  I copied your code, then I changed $iMaxVal from 100 to  32767 to give it more granularity and rewrote the WM_V_Slider() function like this:

Func WM_V_Slider($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam

    If $lParam = $hSlider_hWnd Then
        $iValue1 = GUICtrlRead($iSliderID)
        $iValue2 = $iValue1 / $iMaxVal
        $iValue3 = floor(16777215*$iValue2) ; Divide by 0xFFFFFF
        ConsoleWrite("+++: $iValue1 = " & $iValue1 & ", $iValue2 = " & $iValue2 & ", $iValue3 = " & $iValue3 & ", RGB: "& getRGB($iValue3)& @CRLF)
        ToolTip(getRGB($iValue3))
    EndIf

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_V_Slider

Everything works correctly.  Thank you

[careca]

Glad it's solved.