Set color to naum funciona

[carlosgustavo]

Olá, quero saber porque o set color to naum esta funcionando como o esperado.

A cor do texto tá ok, mas o fundo ele só pinta onde esta escrito.

O código:

Código: Selecionar todos

CLEAR
SET WRAP ON
SET COLOR TO "GR+/B"
@ 1,1 TO 23,78 DOUBLE
@ 1,22 SAY "TORA NOBRE COMERCIO DE MADEIRAS LTDA"
@ 3,3 SAY DATE()
@ 4,3 SAY TIME()
DO WHILE .T.
@ 11,15 SAY "    F2   ³    F3   ³    F4    ³    F5    ³   ESC  "
@ 12,15	SAY "CADASTROS³CONSULTAS³MOVIMENTOS³RELATORIOS³ENCERRAR"
SAVE SCREEN TO TELA
INKEY(0)
DO CASE
CASE LASTKEY()=27
RETURN
CASE LASTKEY()=-1
@ 13,15 SAY "            "
@ 14,15 PROMPT "CLIENTES    "
@ 15,15 PROMPT "PRODUTOS    "
@ 16,15 PROMPT "FORNECEDORES"
MENU TO OP
DO CASE
CASE LASTKEY()=27
RESTORE SCREEN FROM TELA
ENDCASE
ENDCASE
ENDDO

O resultado:

[Toledo]

Olá Carlos, faça o seguinte:

Inclua no início do seu código a seguinte linha:

Código: Selecionar todos

#Include "BOX.CH"

Depois troque:

Código: Selecionar todos

@ 1,1 TO 23,78  DOUBLE

Por:

Código: Selecionar todos

@ 1,1,23,78 BOX B_DOUBLE+" "

Abraços,

[carlosgustavo]

Eu fiz de outro jeito.

Simplismente coloquei o comando SET COLOR TO antes do CLEAR.

Pronto.
Problema resolvido.