Function ColorSelect() Foundation
Activate a color value from the current color settings.
Syntax
ColorSelect( <nColorIndex> ) --> NIL
Parameters
<nColorIndex>
<nColorIndex> is an integer numeric value which refers to a position in the list of color values set with SetColor(). The list of color values is zero-based, so the position of the first color value in the list is zero.
Return
The return value of ColorSelect() is always NIL.
Description
The function ColorSelect() activates the indicated color pair from the list of colors set with SetColor(). In the file COLOR.CH symbolic constants for <nColorIndex> are defined:
Constants in COLOR.CH
Constant | Description |
---|---|
CLR_STANDARD | All screen output commands and functions |
CLR_ENHANCED | Get fields and highlighted items" |
CLR_BORDER | Screen border (only with EGA and VGA monitors) |
CLR_BACKGROUND | Not supported |
CLR_UNSELECTED | Unselected Get fields |
ColorSelect() does not change the color settings defined with SetColor().
Examples
// The example shows ColorSelect() with the symbolic
// constants from COLOR.CH and non-symbolic values
#include "Color.ch"
PROCEDURE Main
LOCAL cColor := "N/BG,BG/N,BG+/R,BG+/G,BG+/B,W+/R,W+/G,W+/B"
CLS
cColor := SetColor( cColor )
? "Colors:", SetColor()
?
? "ColorSelect( CLR_STANDARD )"
ColorSelect( CLR_ENHANCED )
? "ColorSelect( CLR_ENHANCED )"
ColorSelect( CLR_BORDER )
? "ColorSelect( CLR_BORDER )"
ColorSelect( CLR_BACKGROUND )
? "ColorSelect( CLR_BACKGROUND )"
ColorSelect( CLR_UNSELECTED )
? "ColorSelect( CLR_UNSELECTED )"
ColorSelect( 5 )
? "ColorSelect( 5 )"
ColorSelect( 6 )
? "ColorSelect( 6 )"
ColorSelect( 7 )
? "ColorSelect( 7 )"
ColorSelect( 0 ) // set default color value
SetColor( cColor ) // set old color setting
RETURN
Feedback
If you see anything in the documentation that is not correct, does not match your experience with the particular feature or requires further clarification, please use this form to report a documentation issue.