Será que alguém conhece um utilitário que me permitisse criar janelas e movê-las prá lá e prá cá, ajeitando até que, quando estivesse legal, algum comando transformasse essa imagem naquele monte de @...says? Quem sabe escolher até um fundo hachureado para a tela, uma cor que fosse...
Alguém conhece ferramenta assim?
Em tempo e a propósito de cores de telas, xeretando aqui no fórum uma dica de um forista (de quem, se não se importar, agradeço e declino o Maligno nome que usa, rs...), fiz o seguinte:
func esmaece(msg,opc)
loca val_ret := 0
loca abc := savescreen(00,00,24,79)
loca def := ''
loca ligado := .t.
loca i := 0
for i = 1 to len(abc)
if ligado
def = def + subs(abc,i,1)
else
def = def+'x'
endi
ligado = !ligado
next
restscreen(00,00,24,79,def)
if opc = NIL
alert(msg)
val_ret = 0
else
val_ret = alert(msg,opc)
endi
restscreen(00,00,24,79,abc)
retu val_ret
Exemplo de uso:
if esmaece("Confirma saida do sistema?",{"Sim","Nao"}) = 1
quit
endi
Escolhi substituir os bytes pares na string que o savescreen guardou por esse 'x' porque fica uma tela esmecida, um cinza claro com todas as outras cores em cinza escuro (não preto). E escolhi esse caracter depois de testar um monte de outros fazendo um loop de substituição...
Não sei se essa é uma dica importante para a seção de Dicas, se alguém achar que é pode colocar por lá.
Grato.