Já tentaram usar alguma cor e não conseguiram?
Pois é... compatibilidade com Clipper... usando letras é mais limitado, pode reduzir pra somente 8 cores.

Moderador: Moderadores
#define COLOR_BLACK "N"
#define COLOR_BLUE "B"
#define COLOR_GREEN "G"
#define COLOR_CYAN "BG"
#define COLOR_RED "R"
#define COLOR_MAGENTA "RB"
#define COLOR_BROWN "GR"
#define COLOR_WHITE "W"
#define COLOR_GRAY "N+"
#define COLOR_HIBLUE "B+"
#define COLOR_HIGREEN "G+"
#define COLOR_HICYAN "BG+"
#define COLOR_HIRED "R+"
#define COLOR_HIMAGENTA "RB+"
#define COLOR_YELLOW "GR+"
#define COLOR_HIWHITE "W+"
FUNCTION pUtilCor()
LOCAL nCont, nCont2, aList := { COLOR_BLACK, COLOR_BLUE, COLOR_GREEN, COLOR_CYAN, ;
COLOR_RED, COLOR_MAGENTA, COLOR_BROWN, COLOR_WHITE, COLOR_GRAY, COLOR_HIBLUE, ;
COLOR_HIGREEN, COLOR_HICYAN, COLOR_HIRED, COLOR_HIMAGENTA, COLOR_YELLOW, COLOR_HIWHITE }
FOR nCont = 1 TO 16
FOR nCont2 = 1 TO 16
@ 2 + nCont, ( nCont2 -1 ) * 7 SAY Pad( aList[ nCont ] + "/" + StrTran( aList[ nCont2 ], "+", "*" ), 7 ) ;
COLOR ( aList[ nCont ] + "/" + StrTran( aList[ nCont2 ], "+", "*" ) )
NEXT
NEXT
Mensagem( "Tecle ESC", " 27" )
RETURN NIL
LOCAL aList := { COLOR_BLACK, COLOR_BLUE, COLOR_GREEN, COLOR_CYAN, ;
COLOR_RED, COLOR_MAGENTA, COLOR_BROWN, COLOR_WHITE, COLOR_GRAY, COLOR_HIBLUE, ;
COLOR_HIGREEN, COLOR_HICYAN, COLOR_HIRED, COLOR_HIMAGENTA, COLOR_YELLOW, COLOR_HIWHITE }
LOCAL nCont, nCont2
FOR nCont = 1 TO 16
FOR nCont2 = 1 TO 16
@ 2 + nCont, ( nCont2 -1 ) * 7 SAY Pad( aList[ nCont ] + "/" + StrTran( aList[ nCont2 ], "+", "*" ), 7 ) ;
COLOR ( aList[ nCont ] + "/" + StrTran( aList[ nCont2 ], "+", "*" ) )
NEXT
NEXT
LOCAL aList := { COLOR_BLACK, COLOR_BLUE, COLOR_GREEN, COLOR_CYAN, ;
COLOR_RED, COLOR_MAGENTA, COLOR_BROWN, COLOR_WHITE, COLOR_GRAY, COLOR_HIBLUE, ;
COLOR_HIGREEN, COLOR_HICYAN, COLOR_HIRED, COLOR_HIMAGENTA, COLOR_YELLOW, COLOR_HIWHITE }
LOCAL cCorFrente, cCorFundo
FOR EACH cCorFrente IN aList
FOR EACH cCorFundo IN aList
@ 2 + cCorFrente:__EnumIndex, ( cCorFundo:__EnumIndex - 1 ) * 7 SAY Pad( cCorFrente + "/" + Transform( cCorFundo, "+", "*" ), 7 ) ;
COLOR ( cCorFrente + "/" + StrTran( cCorFundo, "+", "*" ) )
NEXT
NEXT
JoséQuintas escreveu:uma tela 25 x 80 são 2.000 caracteres + 1.000 pra cores = 3.000
alxsts escreveu: Tela 25x80 é armazenada em 4000 bytes (1 para cada carácter e 1 para a cor de cada carácter). Se for UTF8 vai para 8000.
hb_gtInfo( HB_GTI_COMPATBUFFER, .F. )
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 12 visitantes