Click above to get retro games delivered to your door ever month!

C4W_Colors()
Return the RGB values for the Clipper colour setting
------------------------------------------------------------------------------

Syntax
C4W_Colors( @ <nTextColor>, @ <nBkColor> )   -->   nil

Arguments
<nTextColor> is the variable to be set to the text
(foreground) colour.  It must be passed by reference (using
Clipper's "@" operator).

<nBkColor> is the variable to be set to the background colour.
It must be passed by reference (using Clipper's "@" operator).

Returns
NIL.

Description
This function lets you access Clipper colours as Windows RGB
values.

Example
cSave := SetColor( cNewColour )
C4W_Colors( @nTextRGB, @nBkRGB )
SetColor( cSave )
? "Text Red value", GetRValue( nTextRGB )