Janela do prompt levemente moderna

[JoséQuintas]

Pra quem tá cansado da janela de prompt de sempre, o recurso de transparência do Windows 10 ajuda.

Aí passa a ver o papel de parede de sempre.... rs

[asimoes]

Como faz ? mostra o milagre mas não diz qual é o santo, kkkk

[JoséQuintas]

Realmente.... esqueci disso...rs
Só ajustei nível de transparência.
E o fundo preto se encarrega de escurecer mais ainda a imagem, pra não atrapalhar a leitura do texto.

[JoséQuintas]

Não tinha pensado antes.....
Esse prompt é o que o Clipper usa, e é em preto e branco...
Pode deixar o aplicativo console interessante, sem precisar de LIB nenhuma.... rs

[JoséQuintas]

Uia...
Dá pra deixar quem usa LIB gráfica com inveja.... rs

Código: Selecionar todos

FUNCTION Main()

   LOCAL nValor, nValor1, nValor2, nQtCalc := 0

   SetMode( 40, 80 )
   CLS
   @ 1, 0 SAY "Valor 1:"  GET nValor1
   @ 3, 0 SAY "Valor 2:" GET nValor2
   @ 5, 0 SAY "Outro..:" GET nValor
   @ 7, 0 SAY "Mais um:" GET nQtCalc
   READ

   RETURN NIL

[JoséQuintas]

Acabei achando um bug em console.. essa linha toda em branco não deveria acontecer...
Acontece ao redimensionar a janela.

[JoséQuintas]

Atenção pra quem usa console:

Código: Selecionar todos

#include "inkey.ch"

FUNCTION Main()

   LOCAL nKey := 0

   SetMode( 15, 80 )
   CLS
   DO WHILE nKey != K_ESC
      ? MaxRow(), MaxCol()
      nKey := Inkey(5)
   ENDDO

   RETURN NIL

Janela fixada no fonte em 15x80

14 79
14 79
26 111
26 111
d:\temp>

Pode dar trabalho pra console, até alguma solução.
É alterar a quantidade de linhas/colunas fora do aplicativo, sem o aplicativo saber.

[JoséQuintas]

Alguém que tenha Windows 10, seria interessante fazer esse teste.
Pode ser recurso da Creators Update, que instalei adiantado.

Estou me referindo ao problema que acaba acontecendo com Harbour, e não à transparência... rs