How to Convert a RGBCOMP() Value into Component Values (149184)


The information in this article applies to:

  • Microsoft Visual FoxPro for Windows 3.0
  • Microsoft Visual FoxPro for Windows 3.0b
This article was previously published under Q149184

SUMMARY

The RGBCOMP() function is new to Foxtools.fll. It accepts an RGB composite value as an argument and converts it to the three component values for you. In effect, it is the counterpart to FoxPro's RGB() function.

MORE INFORMATION

RGBComp() returns the Red, Green, and Blue components of a composite RGB color value. The syntax is:

RGBComp( nRGBColor, @nRedVal, @nGreenVal, @nBlueVal )

Parameters:

  • 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

The following code gives an example implementation: 
*-- 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
Modification Type:MajorLast Reviewed:9/30/2003
Keywords:kbcode KB149184
©2003 Microsoft Corporation. All rights reserved.