By
argumentum
..I'm coding the High Contrast theme editor and using the _ChooseColor() I wandered why it does not keep the the custom colors I've added.
Found that adding a static declaration would do it. But why stop there. Why not keep going, So I put this together that is non code braking ( backwards compatible ), to replace the one in <Misc.au3>
_ChooseColor_mod_Example()
Func _ChooseColor_mod_Example()
Local $aCustColors[17]
$aCustColors[1] = 0xFF0000
$aCustColors[16] = 0x0000FF
$aCustColors = _ChooseColor_mod(2, "0x00ff00", 2, 0, $aCustColors)
ConsoleWrite(@CRLF & $aCustColors[0] & @CRLF & @CRLF)
ConsoleWrite(@CRLF & _ChooseColor_mod(2, $aCustColors[0], 2, 0, $aCustColors)[0] & @CRLF & @CRLF)
ConsoleWrite(@CRLF & _ChooseColor_mod(2, "0x00ff00", 2) & @CRLF & @CRLF) ; just as default behaviour
ConsoleWrite(@CRLF & _ChooseColor_mod(2, "0x00ff00", 2, 0, 'reset as is neither "Default" nor "Array[17]"') & @CRLF & @CRLF) ; just as default behaviour
EndFunc ;==>_ChooseColor_mod_Example
; #FUNCTION# ====================================================================================================================
; Name ..........: _ChooseColor_mod
; Description ...:
; Syntax ........: _ChooseColor_mod([$iReturnType = 0[, $iColorRef = 0[, $iRefType = 0[, $hWndOwnder = 0[, $vCustColors = Default]]]]])
; Parameters ....: $iReturnType - [optional] an integer value. Default is 0. See remarks for values.
; $iColorRef - [optional] an integer value. Default is 0.
; $iRefType - [optional] an integer value. Default is 0. See remarks for values.
; $hWndOwnder - [optional] a handle to the parent window. Default is 0.
; $vCustColors - [optional] an array of colors to show as custom values. See remarks for values.
; Return values .: Success - Hex value of the selected color
; Failure - $vCustomColors is returned if set, otherwise, -1 is returned. Also sets @error:
; | -2 - User initialized $tagCustcolors via $vCustColors.
; | -3 - User canceled or invalid dll struct.
; | -4 - Invalid $iReturnType value.
; | Other - Error returned from Dll call.
; Author ........: Gary Frost (gafrost)
; Modified ......: argumentum
; Remarks .......: $iReturnType can be 0 (RGB COLORREF), 1 (Hex BGR), or 2 (Hex RGB).
; $iRefType can be 0 (ColorRef), 1 (BGR Hex), or 2 (RGB Hex).
; $vCustColors is a zero based array[17] where:
; index 0 hold the color returned by the function.
; index 1 to 16 are the colors to use in Custom colors in RGB.
; One can pass the array with array[0] = -2 to initialize the custom colors without loading the interface.
; When $vCustColors is used, it returns the modified array. ( not the color as integer ).
; Anything other than Default or a proper array, will clear $tagCustcolors ( holder of the custom colors ).
; When $vCustColors is omited or Default, $tagCustcolors is kept ( hence, no need for the array to keep custom colors ).
; Related .......: Same Func from <Misc.au3>
; Link ..........: https://www.autoitscript.com/forum/topic/200985-_choosecolor-but-better/
; Example .......: YES
; ===============================================================================================================================
Func _ChooseColor_mod($iReturnType = 0, $iColorRef = 0, $iRefType = 0, $hWndOwnder = 0, $vCustColors = Default) ; basic code from Misc.au3 ; https://www.autoitscript.com/forum/topic/200985-_choosecolor-but-better/
; added here for independance of #include <Misc.au3>
Local Static $tagCHOOSECOLOR = "dword Size;hwnd hWndOwnder;handle hInstance;dword rgbResult;ptr CustColors;dword Flags;lparam lCustData;" & _
"ptr lpfnHook;ptr lpTemplateName"
Local Static $__MISCCONSTANT_CC_ANYCOLOR = 0x0100
Local Static $__MISCCONSTANT_CC_FULLOPEN = 0x0002
Local Static $__MISCCONSTANT_CC_RGBINIT = 0x0001
; added here for independance of #include <Misc.au3>
Local $vReturn, $bCustColors = False, $tagCustcolors = "dword[16]"
Local $tChoose = DllStructCreate($tagCHOOSECOLOR)
Local Static $tCc = DllStructCreate($tagCustcolors) ; added Static (mod.), to keep $tagCustcolors changes by user when called again.
If $vCustColors == Default Then
; nothing
ElseIf UBound($vCustColors) = 17 Then
$bCustColors = True
For $n = 1 To 16
DllStructSetData($tCc, 1, $vCustColors[$n], $n)
Next
Else
$tCc = DllStructCreate($tagCustcolors) ; reset, just in case you'd want to have it default again
EndIf
If $iRefType = 1 Then ; BGR hex color to colorref
$iColorRef = Int($iColorRef)
ElseIf $iRefType = 2 Then ; RGB hex color to colorref
$iColorRef = Hex(String($iColorRef), 6)
$iColorRef = '0x' & StringMid($iColorRef, 5, 2) & StringMid($iColorRef, 3, 2) & StringMid($iColorRef, 1, 2)
EndIf
DllStructSetData($tChoose, "Size", DllStructGetSize($tChoose))
DllStructSetData($tChoose, "hWndOwnder", $hWndOwnder)
DllStructSetData($tChoose, "rgbResult", $iColorRef)
DllStructSetData($tChoose, "CustColors", DllStructGetPtr($tCc))
DllStructSetData($tChoose, "Flags", BitOR($__MISCCONSTANT_CC_ANYCOLOR, $__MISCCONSTANT_CC_FULLOPEN, $__MISCCONSTANT_CC_RGBINIT))
Local $aResult = DllCall("comdlg32.dll", "bool", "ChooseColor", "struct*", $tChoose)
If @error Then
If Not $bCustColors Then
Return SetError(@error, @extended, -1)
Else
$vCustColors[0] = -1
Return SetError(@error, @extended, $vCustColors)
EndIf
EndIf
If $bCustColors Then ; this here is better than at the end,
For $n = 1 To 16 ; that way you'll get the custom colors anyway.
$vCustColors[$n] = DllStructGetData($tCc, 1, $n)
Next
If $vCustColors[0] = -2 Then Return $vCustColors
EndIf
If $aResult[0] = 0 Then ; Return SetError(-3, -3, -1) ; user selected cancel or struct settings incorrect
If Not $bCustColors Then
Return SetError(-3, -3, -1)
Else
$vCustColors[0] = -1
Return SetError(-3, -3, $vCustColors)
EndIf
EndIf
Local $sColor_picked = DllStructGetData($tChoose, "rgbResult")
If $iReturnType = 1 Then ; return Hex BGR Color
$vReturn = '0x' & Hex(String($sColor_picked), 6)
ElseIf $iReturnType = 2 Then ; return Hex RGB Color
$sColor_picked = Hex(String($sColor_picked), 6)
$vReturn = '0x' & StringMid($sColor_picked, 5, 2) & StringMid($sColor_picked, 3, 2) & StringMid($sColor_picked, 1, 2)
ElseIf $iReturnType = 0 Then ; return RGB COLORREF
$vReturn = $sColor_picked
Else
$vReturn = -1
SetError(-4, -4)
EndIf
If Not $bCustColors Then Return $vReturn
$vCustColors[0] = $vReturn
Return $vCustColors
EndFunc ;==>_ChooseColor_mod
Hopefully will replace the default one in the next release
By Rskm
By argumentum
By Taxyo
