hex color

[Silvio.Falconi]

Can I use a hex color sample 0xFFFF00
How I can converte it into rgb color ?

[karinha]

http://wiki.fivetechsoft.com/doku.php?id=fivewin_functions_by_category

[mastintin]

Code: Select all  Expand view

function cHex2aRgb( cHexColor )
local nR,nG,nB
local aRgb

   if  left(cHexColor,1) == "#"
      cHexColor := substr(cHexColor,2,len(cHexColor) )
   endif

     if len(cHexColor) == 3
      nR = ft_Hex2Dec( substr(cHexColor,1,1))
      nG = ft_Hex2Dec( substr(cHexColor,2,1))
      nB = ft_Hex2Dec( substr(cHexColor,3,1))
   else
      nR = ft_Hex2Dec( substr(cHexColor,1,2))
      nG = ft_Hex2Dec( substr(cHexColor,3,2))
      nB = ft_Hex2Dec( substr(cHexColor,5,2))
   endif
   aRgb := {nR, nG, nB }

  return aRgb; // returns an array with the rgb values

 

[Carlos Mora]

Ciao Silvio,

Can I use a hex color sample 0xFFFF00
How I can converte it into rgb color ?

Colors are longs with 3 components. Written in Hexadecimal the look like 0x<BB><GG><RR>, because longs are stores with less significan bytes first.
Have you tried to use it 'as is', changing the order? I mean

Code: Select all  Expand view

    DEFINE WINDOW oWnd FROM 0, 0 TO 100, 100 PIXEL TITLE "My color test" COLORS 0, 0x00FFFF

 

[karinha]

http://www.nthelp.com/colorcodes.htm

http://www.cs.utah.edu/~germain/PPS/Topics/color.html

https://gist.github.com/tommyettinger/6877456