Set color to naum funciona
Enviado: 09 Jul 2010 11:34
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:
O resultado:
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
