tela cheia em windows 7 64 bits

[porter]

ola pessoal, o sistema ja esta sendo executado em um windows 7 64 bits, agora preciso que ele fique em tela cheia, o que tenho que fazer, nao sei se tenho que pegar outra versao do Harbour ou compilar algum programa junto com o sistema, estive olhando e nao estou entendendo tem que compilar uma funcao FULLSCREEN().

obrigado.

[Jairo Maia]

Olá Porter,

Você precisa usar um drive GT. No exemplo abaixo, usei a WVT, porque conheço melhor.

O exemplo foi montado para você ver o efeito das alternâncias, mas a rigor, para tela cheia você precisa apenas o comando:

Código: Selecionar todos

HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. )

Veja se lhe ajuda:

Código: Selecionar todos

#include "hbgtinfo.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_GT_WVT_DEFAULT

Function Main()
 Local nModo := 0

 HB_LANGSELECT('PT')
 HB_SETCODEPAGE('PT850')  // em portugues

 HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" )  // fonte
 HB_GtInfo( HB_GTI_WINTITLE, "Teste de Modo de Tela" ) // titulo da tela

 Do While LastKey() != 27

  SetColor( "GR+/N" )

  @ 10, 25 Say "0 = Modo Janela WideScreen"
  @ 11, 25 Say "1 = Modo Janela Pequena"
  @ 12, 25 Say "2 = Tela Cheia (Full Screen)"

  @ 14, 25 Say "Escolha o Modo:" GET nModo Pict "9" Valid nModo <= 2
  Read

  SetColor( "G+/N" )

  Do Case

   Case nModo = 0  // Modo Janela WideScreen
    HB_GtInfo( HB_GTI_MAXIMIZED, .F. )
    HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. )
    HB_GtInfo( HB_GTI_MAXIMIZED, .T. )
    @ 16, 25 Say Space( 50 )
    @ 16, 25 Say "0 = Vocˆ est  em Modo Janela WideScreen"

   Case nModo = 1  // Modo Janela Pequena
    HB_GtInfo( HB_GTI_MAXIMIZED, .F. )
    HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. )
    HB_GtInfo( HB_GTI_FONTSIZE, 26 )
    HB_GtInfo( HB_GTI_FONTWIDTH, 12 )
    /*
      Neste caso, e em caso de alternancia, precisa
      duplicar para restaurar a tela
    */
    HB_GtInfo( HB_GTI_FONTSIZE, 26 )
    HB_GtInfo( HB_GTI_FONTWIDTH, 12 )
    @ 16, 25 Say Space( 50 )
    @ 16, 25 Say "1 = Vocˆ est  em Modo Janela Pequena"

   Case nModo = 2  // Tela Cheia (Full Screen)
    HB_GtInfo( HB_GTI_MAXIMIZED, .F. )
    HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. )
    HB_GtInfo( HB_GTI_ISFULLSCREEN, .T. )
    @ 16, 25 Say Space( 50 )
    @ 16, 25 Say "2 = Vocˆ est  em Tela Cheia (Full Screen)"

  End Case

 EndDo

Return Nil

[porter]

bom dia Sr Jairo, obrigado por sua atençäo, estou tentando testar essa rotina e esta dando o erro descrito abaixo, mas nao sei em qual linha esta acontecendo o erro porque nao mostra qual linha, copiei exatamente igual o exemplo passado, obrigado.

Error: Unresolved external '_HB_FUN_HB_GT_WVT_DEFAULT' referenced from C:\TLCHEIA\TLCHEIA.OBJ

Type: C >>>Couldn't build: TLCHEIA.EXE<<<

[Jairo Maia]

Olá Porter,

Compilei o exemplo em 2.1, 3.0 e 3.2 tanto com MinGW como em BCC e não ocorre este erro, tente compilar da seguinte forma:

Código: Selecionar todos

Hbmk2 TLCHEIA.PRG -lxhb -gtwvt -rebuild

NOTA: veja que é -gtwvt sem o "l" (ele) de lib. Veja se voce consegue.

Qual versão do Harbour você usa?

[porter]

hbmk2 näo é reconhecido como comando.

a versao que estou usando:

xHarbour Compilar build 1.2.1 (Simplex) (Rev. 6633)


Se tirar essa linha, compila com Xbuild, mas da erro na execucao do programa.
REQUEST HB_GT_WVT_DEFAULT

[Jairo Maia]

Porter, o problema que este exemplo foi montado para Harbour. Tenho muito pouco conhecimento em xHarbour, e não sei dizer como você linka a lib gtwvt.lib do harbour, e como se faz a chamada a ela. Espero que algum colega que tenha conhecimento com xHarbour possa ajudar.

[porter]

obrigado Jairo, quando eu achar a solucao, posto aqui no forum.

[marcelomteles]

Prezado Jairo boa noite,

Você teria a documentação desta lib GT com descrição dos comandos ?

Obrigado

Marcelo Teles

[aferra]

Bom dia, consegui usar o exemplo do jairo para tela fullscreen, porem me abre uma tela preta antes do programa, o que devo tirar ou acrescentar para tirar essa tela ?

agradeço desde já

[aferra]

e como estou usando a visual lib ( antigo clipper ) tb está com os caracteres errados, alguém sabe como ajustar isso?

agradeço desde já

[Jairo Maia]

Olá aferra,

Se você estiver chamando o aplicativo via .bat, a janela que você vê é a janela do bat. Se for via ícone apontado diretamente para o executável e isso estiver acontecendo (normalmente isso ocorre no XP), acrescente em seu arquivo .Hbp (ou na linha de comando) o parâmetro -gui. exemplo:

Código: Selecionar todos

Hbmk2 TLCHEIA.PRG -lxhb -gtwvt -gui

[Jairo Maia]

Olá Marcelo Teles,

Você teria a documentação desta lib GT com descrição dos comandos ?

Tudo que conheço de documentação dessa GT é o arquivo hbgtinfo.ch. Pelo que tenho lido inclusive no Harbour-Developer, não há documentação.

Nota:

Prezado Jairo boa noite

Somente agora vi sua mensagem, mas vou deixar aqui uma dica:

Evite fazer pedidos de forma direta a algum integrante. Isso inibe a participação dos demais membros.

[aferra]

Obrigado jairo pela resposta, encontrei e coloquei -aa como estou usando o bcc ( pois ainda não entendi como usar outro rsrsrsrsrsrs ), mas agora só falta mesmo os caracteres que a visual lib usava para desenha os botões e os quadros..., não estou conseguindo....