Cor do fundo de tela
Enviado: 17 Jan 2016 14:22
Amigos, gostaria de que todas as do meu sistema fossem cinza-claro, como a cor que consigo atraves do seguinte programa:
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...
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
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.