How to Convert a RGBCOMP() Value into Component Values

MORE INFORMATION

• nRGBColor is a composite RGB color value ranging from 0 to 16777215.
• nRedVal, upon return, is the intensity of the red color component of nRGBColor.
• nGreenVal, upon return, is the intensity of the green color component of nRGBColor.
• nBlueVal, upon return, is the intensity of the blue color component of nRGBColor.

Sample Code

*-- Set up to use FoxTools.FLL
     CLEAR
     SET LIBRARY TO SYS(2004) + '\FOXTOOLS'

*-- Declare some variables to be used in the function calls
     nRedVal = 0
     nBlueVal = 0
     nGreenVal = 0

*-- Display as we go.
     ? RGBCOMP(65537, @nRedVal, @nGreenVal, @nBlueVal)
     ? nRedVal, nGreenVal, nBlueVal

     = RGBCOMP(65537 + 44 + 256 * 4, @nRedVal, @nGreenVal, @nBlueVal)
     ? nRedVal, nGreenVal, nBlueVal

     = RGBCOMP(65537 + 86 + 256 * 4, @nRedVal, @nGreenVal, @nBlueVal)
     ? nRedVal, nGreenVal, nBlueVal

*-- Reset the current active library.
     SET LIBRARY TO