GTWVG - Expandir a tela para Área do Desktop

[asimoes]

Prezados,

Tem como expandir a tela de um sistema compilador com harbour 3.4 para "desktop area" usando GTWVG?

Só estou conseguindo com o GT GTWVT
Ex.:

Com REQUEST HB_GT_WVT_DEFAULT

Exemplo 2

[Jairo Maia]

Olá Alexandre,

Essa também é uma coisa que persigo há algum tempo com a WVG. Uso uma "gambiarra", e ajusto a medida que vai surgindo novas resoluções. Veja se esse exemplo simples ajuda em algo:

Código: Selecionar todos

/*
  Compilar usando hbmk2 exemplo.prg -gtwvg -gui
*/

//#include "wvtwin.ch"   // acho que em 3.4 é "wvtwin.ch"
#include "hbgtinfo.ch"

Function Main()

 Clear Screen
 
 Wvt_SetGui( .t. )
 
 SetMode( 28, 91 )  // ajuste aqui a melhor resolução
 
 SetColor( "GR+/N" )
 DispBox( 0, 0, MaxRow(), MaxCol(), Nil )
 ConfTela()

 Inkey(0)

Return Nil


Func ConfTela()  // ajusta tamanho da tela

 Local nWidth := Hb_GtInfo(HB_GTI_DESKTOPWIDTH)
 Local nHeight := Hb_GtInfo(HB_GTI_DESKTOPHEIGHT)

 If nWidth = 1024 .And. nHeight = 768
  Wvt_SetFont( "Lucida Console", 28, 12, 0 )
 
 ElseIf nWidth = 1152 .And. nHeight = 864
  Wvt_SetFont( "Lucida Console", 31, 13, 0 )

 ElseIf nWidth = 1280 .And. nHeight = 600
  Wvt_SetFont( "Lucida Console", 21, 15, 0 )

 ElseIf nWidth = 1280 .And. nHeight = 720
  Wvt_SetFont( "Lucida Console", 26, 15, 0 )

 ElseIf nWidth = 1280 .And. nHeight = 768
  Wvt_SetFont( "Lucida Console", 28, 15, 0 )

 ElseIf nWidth = 1280 .And. nHeight = 960
  Wvt_SetFont( "Lucida Console", 35, 15, 0 )

 ElseIf nWidth = 1280 .And. nHeight = 1024
  Wvt_SetFont( "Lucida Console", 38, 15, 0 )

 ElseIf nWidth = 1400 .And. nHeight = 1050
  Wvt_SetFont( "Lucida Console", 39, 16, 0 )
 
 Else  // se nenhuma anterior, seta padrao
  Wvt_SetFont( "Lucida Console", 28, 12, 0 )
 EndIf
 
 Wvt_Maximize()

Return Nil

[JoséQuintas]

Eu uso só a função que postei GTSetupFont().
Quem decide depois é o usuário. Acho que assim fica simples e prático.
Do jeito que ele deixar, é do jeito que volta, só vai precisar do mouse pra isso.

Uma coisa da GTWVG é a seguinte:
Se estiver configurado pra alguma coisa que não cabe na tela, ela reseta para a configuração padrão.

Talvez tenha uma gabiarra mais simples:
Fazer um cálculo direto dividindo a resolução pelas linhas/colunas pra chegar no tamanho do fonte.

E tem o detalhe que mencionei em outro post: tem a hora certa pra alterar a configuração, não pode ser em qualquer hora.

[JoséQuintas]

Ou um jeito relativamente simples:

Código: Selecionar todos

   hb_gtInfo( HB_GTI_MAXIMIZED, .T. )

Com isso o usuário pode clicar no maximizar.

[JoséQuintas]

Sobre o tópico:

Não sei se é boa idéia cobrir o iniciar do Windows.
Se for o caso, talvez configurar o Windows pra "ocultar a barra de ferramentas automaticamente".

[Jairo Maia]

Ou um jeito relativamente simples: hb_gtInfo( HB_GTI_MAXIMIZED, .T. ) Com isso o usuário pode clicar no maximizar.

Sim José, mas a questão é como iniciar o sistema em tela cheia com WVG sem interferência do usuário.

[Jairo Maia]

Não sei se é boa idéia cobrir o iniciar do Windows.

Mas a idéia não é essa. É obter um efeito idêntico ao da GTWVT usando o comando que você colocou acima. Com GTWVT funciona, mas com GTWVG não funciona. A idéia é fazer a tela tomar a área do DeskTop, ficando a barra do Windows disponível (como com GTWVT).

[JoséQuintas]

Tentei por API, altera a janela mas não altera o conteúdo.

Código: Selecionar todos

   wapi_ShowWindow( wvgSetAppWindow():hWnd, SW_SHOWMAXIMIZED )

Talvez se conseguir enviar a "mensagem" pelo Windows, pra maximizar.
Vou testar mais algumas coisas.

[JoséQuintas]

aqui foi:

Código: Selecionar todos

PROCEDURE Main
   SetMode(30,100)
   SetColor("W/B")
   CLS
   wvgSetAppWindow():sendMessage( WIN_WM_SYSCOMMAND, WIN_SC_MAXIMIZE, 0 )
   @ 12, 30 SAY "OLA"
   Inkey(0)
   RETURN

[JoséQuintas]

Só como anotação de como cheguei nisso:
Primeiro pesquisei API do WIndows no google... rs
Depois pesquisei MAXIMIZE nos fontes da gtwvg e apareceu isso.
Como sendmessage está com indicação de função interna ::SendMessage, testei direto na janela da GTWVG wvgSetAppWindow():SendMessage() e deu certo.
Tem horas que é no chute... baseado em alguma coisa... rs

[JoséQuintas]

Só um detalhe, que consta em hbgtinfo.ch

Código: Selecionar todos

#define HB_GTI_ALTENTER         62  /* Toggles Alt+Enter as full screen switch (supported by: GTWVT) */
#define HB_GTI_ISFULLSCREEN     63  /* Is the GT windows using the full physical display? (supported by: GTWIN, GTWVT) */

[JoséQuintas]

Quanto à gtwvg usar toda tela, o ajuste automático dela não deixa, porque sempre que vai ultrapassar um limite ela retorna ao default.
Mesmo ocultando a barra do iniciar.

Só resta tentar encontrar aonde desativar o ajuste automático, e deixar totalmente manual.

No meu caso deixo como falei, porque os usuários sempre tem mais aplicativos em uso.

[JoséQuintas]

Acho que a solução disso estaria por aqui:

Código: Selecionar todos

static HB_BOOL hb_gt_wvt_FitSize( PHB_GTWVT pWVT )

nesta parte

Código: Selecionar todos

   if( pWVT->bMaximized )
   {
      if( ! SystemParametersInfo( SPI_GETWORKAREA, 0, &wi, 0 ) )
         return HB_FALSE;

      maxHeight = wi.bottom - wi.top - borderHeight;
      maxWidth  = wi.right - wi.left - borderWidth;

      left = 0;
      top  = 0;
   }

Isso fica em gtwvgd.c

Um primeiro teste seria retirar essa subtração de borda.
Não sei se essa borda é a borda da janela, ou se é justamente a borda do desktop.

[JoséQuintas]

O que eu tentei mexer foi no espacejamento vertical do texto.
Até consegui o espacejamento, mas....

[JoséQuintas]

Sobre o espacejamento, tentei há dois anos atrás, mas para manter compatibilidade com outras GTs... NÃO
Não sei exatamente que compatibilidade é essa.

It is possible only if we want to compromise the compatibility with other GTs
and also rewrite the whole engine. So my answer is NO.

https://groups.google.com/forum/#!topic ... RhvPGGJqts

Talvez ocupar toda a tela não seja algo que cause compatibilidade, e o Pritpal possa fazer.

Fiz testes aqui mas não foi.

Essa é a parte chata.
Todos os fontes na mão, mas alterar aonde?