Caracteres especiais GTWVW

[JoséQuintas]

Comecei a fazer testes com a gtwvw, a que vém junto no harbour 3.0.
Compilou normalmente em msvc, os exemplos rodaram, e até já compilei meu sistema com ela.
Pelos testes básicos funciona.

Duas dúvidas básicas pra testar na prática:
- Como corrigir os caracteres do @ box
- Como pegar resolução da tela

[JoséQuintas]

Resolvido.

Código: Selecionar todos

Function GTSetupFonte()
   Local nFontHeight, nFontWidth
   nFontHeight := Int( WVW_GetScreenHeight() - 76 ) / MaxRow()
   nFontWidth  := Int( WVW_GetScreenWidth() - 1 ) / MaxCol()
   WVW_SetFont(,"Lucida Console", nFontHeight, nFontWidth )
   WVW_setcodepage(, 255)
   Return NIL

[JoséQuintas]

Ainda não resolvido completamente.
O problema agora está em uso remoto, porque pega a resolução da tela e não da janela remota.
Até tentei olhar fontes da wvt, porque ela pega se ajusta corretamente mesmo remoto, mas foge do meu conhecimento.
Alguma idéia?

[Pablo César]

Sei lá... uma sugestão apenas. Guarde a configuração local em arquivo e carregue-las mesmo sendo em forma remota.

[JoséQuintas]

Não dá. O arquivo local seria.... remoto... e estaria configurado para o servidor, e não para o acesso remoto.

[Pablo César]

Não dá. O arquivo local seria.... remoto...

Mesmo que você grave previamente e direcione o arquivo como C:<nome_arquivo> ?

[JoséQuintas]

Veja... no acesso remoto podemos escolher a resolução que será usada na conexão.
E não vou ser o único a acessar remoto.
Acho que seria mais fácil ter uma função pra identificar resolução da área de trabalho, do que identificar máquina ou configuração do acesso remoto.
Se salvar em C:, vai ser o C: do servidor, e isso não identifica a máquina remota, ou a resolução remota.
O mais curioso é que não uso monitor no meu servidor. E olhando a configuração de tela mostra como 1024x768.
Não faço idéia de onde a wvw pega a resolução.

[Pablo César]

Suponhamos que cada máquina que irá acessar, possa ser identificada. Daí então você poderá gravar as configurações no C: em determinada pasta e em sub=pasta formada pelo nome de identificação da máquina remota. Daí será fácil saber em qual pasta pegar o arquivo de configuração, diferenciando-a pela identificação/nome_pasta.

[JoséQuintas]

Quando postei a última resposta acabei me perguntando: como o programa de uma máquina pega a resolução da outra máquina?
Após alguns testes, cheguei nesta, com o SetMode() no final e não no início.
Agora deu certo.

nFontHeight := Int( ( WVW_GetScreenHeight() - 76 ) / 40 )
nFontWidth := Int( ( WVW_GetScreenWidth() - 1 ) / 120 )
WVW_SetFont(,"Lucida Console", nFontHeight, nFontWidth )
WVW_SetCodePage(, 255)
SetMode(40,120)

[JoséQuintas]

Não entendi. Mudando pra gtwvw o RUN deixou de funcionar.
Como já estava usando gtwvt, parte gráfica não deveria fazer diferença nisso.