SET COLOR*
Define screen colors
Syntax
SET COLOR | COLOUR TO [[<standard>]
[,<enhanced>] [,<border>] [,<background>]
[,<unselected>]] | (<cColorString>)
* Seleciona cores para uso: N = Caracteres a Serem Exibido W = Fundo de Tela
Set colot to 'N/W'
* Limpa a tela e fica tudo W
CLS
* Exibe texto na cor: n e Fundo de Tela na cor W
? 'QQuer coisa na tela'
? ''
* Exibe texto na cor: B e Fundo de Tela na cor W
Set colot to 'B/W'
? 'QQuer coisa na tela'
*** Observe que o segundo parametro de cada grupo de cores sera o fundo de tela ( N/W : nesse caso W)
Código: Selecionar todos
List of Colors
------------------------------------------------------------------------
Color Letter Monochrome
------------------------------------------------------------------------
Black N, Space Black
Blue B Underline
Green G White
Cyan BG White
Red R White
Magenta RB White
Brown GR White
White W White
Gray N+ Black
Bright Blue B+ Bright Underline
Bright Green G+ Bright White
Bright Cyan BG+ Bright White
Bright Red R+ Bright White
Bright Magenta RB+ Bright White
Yellow GR+ Bright White
Bright White W+ Bright White
Black U Underline
Inverse Video I Inverse Video
Blank X Blank
------------------------------------------------------------------------
. These two examples specify SETCOLOR() with missing settings:
// Settings left off the end
SETCOLOR("W/N, BG+/B")
//
// Settings skipped within the list
SETCOLOR("W/N, BG+/B,,,W/N")
. This example uses SETCOLOR() with ISCOLOR() to set the colors,
depending on the screen type:
FUNCTION DefaultColors
IF ISCOLOR()
cForm := "W+/N, BG+/B,,,W/N"
cDialog := "N/N+, BG+/B,,,N/N+"
cAlert := "W+/R, BG+/B,,,W+/R"
ELSE
cForm := "W+/N, N/W,,,W/N"
cDialog := "W+/N, N/W,,,W/N"
cAlert := "W+/N, N/W,,,W/N"
ENDIF
RETURN NIL