topic-36518

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

HEX color to INT value
Posted: Tue Dec 25, 2018 07:16 PM

Hello,
is there a function to change the color HEX value to an INT value.
Thank you in advance
Otto

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: HEX color to INT value
Posted: Tue Dec 25, 2018 07:50 PM

https://toolset.mrwebmaster.it/colori/hex-to-rgb.html
http://www.javascripter.net/faq/rgbtohex.htm

From manuel calero solis

Code (fw): Select all Collapse

FUNCTION RgbToRgbHex( nColorRgb )

   local cRgbHex  := ""

   cRgbHex        += "#"
   cRgbHex        += NumToHex( nRgbRed( nColorRgb ), 2 )
   cRgbHex        += NumToHex( nRgbGreen( nColorRgb ), 2 )
   cRgbHex        += NumToHex( nRgbBlue( nColorRgb ), 2 )

RETURN cRgbHex

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: HEX color to INT value
Posted: Tue Dec 25, 2018 08:00 PM

If you have the color in the hex-format "#rrggbb"

then

nRGB( cHexClr ) --> nColor

Regards

G. N. Rao.

Hyderabad, India

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: HEX color to INT value
Posted: Tue Dec 25, 2018 08:05 PM

There is also:

function nHex( cHex ) --> nValue

regards, saludos

Antonio Linares
www.fivetechsoft.com

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: HEX color to INT value
Posted: Tue Dec 25, 2018 08:14 PM

The difference is this:

Windows COLORREF constants, when expressed in hex are 0xBBGGRR
If we have such a color string "BBGGRR"
then nHex( cHex ) or HEXTONUM( cHex ) would convert the hex string to numeric value.

Mostly in web and other platforms colors are expressed as "#RRGGBB"
In such cases nHex( cHex ) or HEXTONUM( cHex ) do not give the correct color constant.

nRGB( cHexClr ) gives the correct color constant.

What is important is the source of cHex Mr Otto is referring to.

Regards

G. N. Rao.

Hyderabad, India

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: HEX color to INT value
Posted: Tue Dec 25, 2018 10:44 PM

Dear Mr. Rao, dear Antonio,

I am sorry I asked the wrong way.

I have the INT value, for example: 16711680 and I need the HEX value: #0000ff
NumToHex(16711680 ) gives #ff0000.

Do I only have to convert "BBGGRR" to "#RRGGBB".
Best regards
Otto

Giovany Vecchi

Posts: 244

Joined: Mon Jun 05, 2006 09:39 PM

Re: HEX color to INT value
Posted: Wed Dec 26, 2018 12:35 AM

OI Otto, I do not know if that's what you're looking for.

Code (fw): Select all Collapse

FUNCTION RGB_TO_HTML(f_nColor)
    Local cColorReturn := "#", aTmpRGB := {}
    
    aadd(aTmpRGB,decToHex(nRGBRed(f_nColor)))
    aadd(aTmpRGB,decToHex(nRGBgreen(f_nColor)))
    aadd(aTmpRGB,decToHex(nRGBBlue(f_nColor)))
    
    If Len(aTmpRGB[1]) == 1
        aTmpRGB[1] := "0"+aTmpRGB[1]
    EndIf
    
    If Len(aTmpRGB[2]) == 1 
        aTmpRGB[2] := "0"+aTmpRGB[2]
    EndIf

    If Len(aTmpRGB[3]) == 1
        aTmpRGB[3] := "0"+aTmpRGB[3]
    EndIf

    cColorReturn += (aTmpRGB[1]+aTmpRGB[2]+aTmpRGB[3]) 

Return cColorReturn

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: HEX color to INT value
Posted: Wed Dec 26, 2018 03:54 AM

Mr. Otto

Do I only have to convert "BBGGRR" to "#RRGGBB"

Yes, exactly.

For your purpose, you can use the function RGB_TO_HTML() posted by Mr. Giovanny Vecchi or the function RgbToRgbHex() posted by Mr. Silvio.

You can also use this function:

Code (fw): Select all Collapse

function CLRTOHTML( nClr )

   local cHex  := LOWER( NUMTOHEX( nClr, 6 ) )

return "#" + RIGHT( cHex, 2 ) + SUBSTR( cHex, 3, 2 ) + LEFT( cHex, 2 )

? CLRTOHTML( CLR_HRED ) // --> #ff0000

Regards

G. N. Rao.

Hyderabad, India

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: HEX color to INT value
Posted: Wed Dec 26, 2018 10:52 AM

Dear Mr. Rao,
thank you for the function.
Now I have more or less my offline colors also in the PHP scheduler.
Best regards
Otto

Otto

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Re: HEX color to INT value
Posted: Wed Dec 26, 2018 11:10 AM

Best regards
Otto

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: HEX color to INT value
Posted: Wed Dec 26, 2018 11:36 AM

Look Great

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion