11 replies to this topic

[MrCreatoR]

Hi there,

This function was initialy created as a helper function in my other recent UDF (_GUICtrlCreateTFLabel), but after searching on the forum for such function and not finding anything like this (i was surprised actualy, i thought this kind of function could be posted long time ago), i think that i should post it here.

The colors table i got from here.
In the archive with _ColorConvertValue there is also a parser script that i used to generate the table for UDF usage.

Function Header:

; #FUNCTION# ========================================================================================
; Name...........:  _ColorConvertValue
; Description....:  Converts string color value to hex and back.
; Syntax.........:  _ColorConvertValue($sColor, $iConvertMode=-1, $aColors_Table=0)
; Parameters.....:  $sColor       - Color name or color hex value, depending on $iConvertMode.
;                    $iConvertMode  - [Optional] If this parameter <> -1, then the function will convert hex color to string value
;                                       (default is -1 - convert from string to hex).
;                    $aDefColorsTable - [Optional] If this parameter will contain an array with colors table (default is 0),
;                                       then this colors table will be used to convert the color.
;                   
; Return values..:  Success - Returns converted color value.
;                    Failure - Returns original $sColor value (if the color can not be converted).
; Author.........:  G.Sandler (MrCreatoR)
; Modified.......:  21.06.2009
; Remarks........:  
; Related........:  
; Link...........:  Colors table used in this function: http://ilan.belhost.by/screens/colorx.shtml
; Example........:  Yes.
; ===================================================================================================

For example:

Blue converted to 0x0000FF
Red converted to 0xFF0000

and back...

0x0000FF to Blue
0xFF0000 to Red

Attachments:
v1.1  _ColorConvertValue.zip   2.9K   144 downloads
v1.0  _ColorConvertValue.zip   2.69K   89 downloads

Edited by MrCreatoR, 20 June 2009 - 11:34 PM.

[AlmarM]

Oh, thats pretty sweet. It doens't support ALL colors. Dont think thats necessary though.
This could be very useful!

[James]

As I saw the topic, I was wondering how this would be done. Pretty nifty!

[GreenCan]

Nicely done, and useful too.

Thanks for sharing

GreenCan

[Yashied]

It's a good idea and well done, MrCreatoR, but it would be nice to be able to pass their own (arbitrary) color palette. Or make that something like _SetDefaultPalette(ByRef $aPalatte).

[MrCreatoR]

Thanks to all for the feedbacks.

It's a good idea and well done, MrCreatoR, but it would be nice to be able to pass their own (arbitrary) color palette. Or make that something like _SetDefaultPalette(ByRef $aPalatte).

I am not sure that i follow you. What it should do exactly? (example could help).

[Yashied]

I am not sure that i follow you. What it should do exactly? (example could help).

Dim $aDefColorsTable[140][2] = [[0xFFFFFF, 'White'],[0xFFFFF0, 'Ivory'], ...]

Func _SetColorsTable(ByRef $aColorsTable)

    ; Checks for $aColorsTable array
    
    ...

    $aDefColorsTable = $aColorsTable
    Return 1
EndFunc   ;==>_SetColorsTable

In this case _ColorConvertValue() should work with a $aDefColorsTable array.

[MrCreatoR]

; Checks for $aColorsTable array

What it should do inside the array? Switch the values?
Or you mean pass the array to use instead of the strings inside the UDF?

Edited by MrCreatoR, 20 June 2009 - 08:28 PM.

[Yashied]

Your _ColorConvertValue() function works with local variables $aStrColors_Table and $aHexColors_Table. I think that would be more useful when the user can assign its value for these variables. For example, with an additional function _SetColorsTable(). In my example I used an array for simplicity. I think it is more convenient when the names of colors and their values are stored in the array. That's all.

[Ashalshaikh]

Nice ..
Thank You ...

[MrCreatoR]

@Yashied
Ok, done.

[Yashied]

Excellent.