Cor do fundo de tela

[rmlazzari]

Amigos, gostaria de que todas as do meu sistema fossem cinza-claro, como a cor que consigo atraves do seguinte programa:

Código: Selecionar todos

function main()
loca i := 1
loca abc := savescreen(0,0,24,79)
loca on := .t.
loca cde := ''
setmode(25,80)
for i = 1 to len(abc)
   if on
      cde = cde + subs(abc,i,1)
   else
      cde = cde + 'x'
   endi
   on = !on
next
restscreen(0,0,24,79,cde)
inkey(0)
return nil

Nesse programa, depois de guardar a tela em memvar->abc, copio um a um seus bytes em memvar->cde, substituindo, porém, os bytes pares por 'x'. E quando restauro usando o que há em 'cde' a tela fica numa cor cinza-claro.

Como faço para que todas as telas do meu programa tenham esse fundo? E que cor é essa? '+n''?

Interessante é que como o Harbour abre uma nova tela, e por isso ela está vazia, ela fica apenas cinza.

Já o Clipper, como salva, no savescreen(), o que está nela, os caracteres todos ficam num cinza só que mais escuro...