Tela cheia ou maximizada com GTWVT

[wagner aragao]

Olá,

Estou migrando meus programas de console para janela e to usando a GTWVT e posteriormente vou usar a HWGui, mais preciso ir rodando caracter até migrar as telas. To usando o XH 1.0.0 simplex Coloquei as libs GTWVT.LIB e WVTGUI.LIB e compilei com xDEV. Quando roda o programa não roda em tela cheia e nem deixa eu alterar a fonte para aumentar o tamanho. Alguem tem alguma dica para maximar a tela ou mesmo deixar aumentar a fonte Roda tudo certinho mais com tela pequena. Com xharbour sem as libs conseguia aumentar a fonte e pronto ficava legal, agora nem isso.
t+

Olhem o fonte da funcao que to usando (passada pelo amigo Alamino) para rodar em janela que chamo no inicio do meu programa

Código: Selecionar todos

Function LoadTelaGrafica()
****************************************************************
* Configura o Desktop para uso de funcoes graficas GTWVT e HWGUI
* Inicio : 03/02/2012
****************************************************************
INIT Function AppSetup()
WVT_Core()
WVT_Utils()
Request WVT_SETCODEPAGE
Request HB_LANG_PT
Request HB_CODEPAGE_PT850
Request DESCEND

HB_LANGSELECT("PT")
HB_SETCODEPAGE( "PT255" )
WVT_SetCodePage(255)
setcancel(.t.)
setblink(.f.)
set date form to "dd/mm/yyyy"
*** set color to G/W, W+/R,,,N/GR
WVT_ObjList := {}
WVT_Stack   := {}
nWidth      := Wvt_GetScreenWidth()
do case
   case nwidth > 1024
        Wvt_SetFont("Lucida Console",20,14,400)
   case nwidth > 800 .and. nwidth < 1025
        Wvt_SetFont("Lucida Console",20,12,400)
   case nwidth > 640 .and. nwidth < 801
        Wvt_SetFont("Lucida Console",15,10,400)
   otherwise
        Wvt_SetFont("Lucida Console",18,10,400)
endcase
SetMode(35,80) // esta aqui configura a sua tela para trabalhar com até 35 linhas.
Wvt_SetTitle( "MicroLine Software - Sistemas e Solucoes para Automacao Comercial")
return(.t.)

[lugab]

Tentou o setmode(25,80) na aplicação main ?

[wagner aragao]

Olá,

Sim, até o 35,80... Ja mexi no tamanho das fontes ela diminui ou aumenta a fonte mais sempre usando meia tela nunca maximiza...
Tentei mandar uma imagem em JPEG e BMP mais o site não aceita.... que tipo de imagem posso mandar ?
t+
t+

[alxsts]

Olá!

Veja este tópico: Como inserir uma imagem na mensagem.

[wagner aragao]

Olha a imagem da tela, vejam que ela fica no meio do monitor mais nao maximiza... O windows aqui é 7. Mais acontece o mesmo com XP.

[Toledo]

Dê uma olhada neste tópico:
https://pctoledo.org/forum/viewto ... f=4&t=9321

Abraços,

[asimoes]

Olá Wagner,
Veja se este código te ajuda:

Código: Selecionar todos

   INIT FUNCTION AppSetup()
        REQUEST HB_LANG_PT
        REQUEST HB_CODEPAGE_PT850
        REQUEST HB_GT_GUI_DEFAULT
        REQUEST HB_GT_WVG
        REQUEST HB_GT_WVT
        REQUEST HB_GT_WGU
        HB_LANGSELECT("PT")
        HB_CDPSELECT( "PT850" )
        SET(_SET_DBFLOCKSCHEME,DB_DBFLOCK_DEFAULT)
        SETMODE(25,80)         
        IniciaJanela() 
   RETURN Nil

   FUNCTION IniciaJanela(nLi,nCi,nLf,nCf)
   LOCAL oCrt
   DEFAULT nLi TO 0,;
           nCi TO 0,;
           nLf TO MaxRow(),;
           nCf TO MaxCol()  
       
        oCrt := WvgCrt():New( , , { nLi,nCi }, { nLf,nCf}, , .T. )
        oCrt:lModal := .F.
        oCrt:icon := ""
        oCrt:create()
        oCrt:resizable :=.F.
        WVT_SetFont("Lucida Console")
        cTituloJanela:="Seu Sistema"
        WVT_SetTitle(cTituloJanela)
        WVT_SetAltF4Close(.F. )
        HB_gtInfo( HB_GTI_SPEC, HB_GTS_WNDSTATE, HB_GTS_WS_MAXIMIZED )
   RETURN Nil 

[wagner aragao]

Olá Amigo Asimoes,
Obrigado pela ajuda, coloquei esse trecho no fonte mais nem compilou, lembrando que to usando xharbour 1.0.0 simplex e so inclui as libs GTWVT, PROCMIS, HWGUI, WVTGUI. Vi que tinha algo sobre WVG ?.
t+

[wagner aragao]

Olá,

Pessoal resolvido o problema de mostrar a janela pequena, após passas a manhã toda testando, após a compilação de um PRG enviado pelo Luis Basso, a coisa funcionou e ficou legal , estou disponibilizando abaixo a funcão que permite abrir um sistema em xHarbour já em janela sem nenhuma alteração no fonte (a não ser esta) para poder migrar para HWGUI e continuar com o programa rodando em modo caracter. Obrigado pela ajuda de todos, em especial ao Alamino Júnior, asimoes e até o Toledo que mandou uma rotina. Agora vou estudar a ferrramenta DESIGNER do grande Luis Basso pra começar a criar as telas gráficas e migrar meu sistema pouco a pouco.
DICAS :
Essa rotina eu chamo do meu programa main()logo no inicio, pois tenho varios projetos no xDev que usam o mesmo arquivo de funções..
Para rodar estou usando o XHarbour 1.0.0 simplex, xDev 0.70 e só inclui nos projetos as libs HWGUI.LIB, PROCMISC.LIB, GTWVT.LIB e WVTGUI.LIB.
t+

Código: Selecionar todos

Function LoadTelaGrafica()
****************************************************************
* Configura o Desktop para uso de funcoes graficas GTWVT e HWGUI
* Inicio : 03/02/2012
****************************************************************
INIT Function AppSetup()
WVT_Core()
WVT_Utils()
Request WVT_SETCODEPAGE
Request HB_LANG_PT
Request HB_CODEPAGE_PT850
Request DESCEND

HB_LANGSELECT("PT")
HB_SETCODEPAGE( "PT255" )

setmode(25,80)

WVT_SetCodePage(255)

setcancel(.t.)
setblink(.f.)
set date form to "dd/mm/yyyy"

WVT_SETICON("D:\PROJETOS\SIGEFPG\SIGE.ICO")

WVT_ObjList := {}
WVT_Stack   := {}
nWidth      := Wvt_GetScreenWidth()

AtivaVideoBasso()

Wvt_SetTitle( "MicroLine Software - Sistemas e Solu‡äes para Automacao Comercial")

return(.t.)


Function AtivaVideoBasso()
***************************************
* Ativa modo de janela maximizada
* Fornecida pelo Luis Basso
* 07/02/2012
***************************************
*- A FONTE PADRAO É COURIER NEW

_cFONT := "COURIER NEW"
npeso  := 300 //IIF( PFN_BOLD = "S",600,300)
nsize  := 0   //IIF( PFN_BOLD = "S",1,0)

do case
    case GTINFO(GTI_DESKTOPWIDTH) > 1430 .AND.;
         GTINFO(GTI_DESKTOPHEIGHT) >800
         Wvt_SETFONT(_cFont,31,-18,npeso,2)

   case GTINFO(GTI_DESKTOPWIDTH) >= 1360 .AND.;
	     GTINFO(GTI_DESKTOPHEIGHT) >720
        if _cFONT = "COURIER NEW"
           WVT_SETFONT(_cFont,28,-17,npeso,2)
        else
           WVT_SETFONT(_cFont,28,-15,npeso,2)
        endif

   case GTINFO(GTI_DESKTOPWIDTH) > 1270 .AND.;
        GTINFO(GTI_DESKTOPHEIGHT) >720

        IF _cFONT = "COURIER NEW"
           WVT_SETFONT(_cFont,29,-16,npeso,2)
        else
           WVT_SETFONT(_cFont,28,-15,npeso,2)
        ENDIF

   case GTINFO(GTI_DESKTOPWIDTH) > 1270
        IF _cFONT="COURIER NEW"
                   *28*16 CORRETO
           WVT_SETFONT(_cFont,27,-16,npeso,nsize*4)
	     ELSE
           WVT_SETFONT(_cFont,27,-16-nsize,npeso,nsize*4)
        ENDIF

   case GTINFO(GTI_DESKTOPWIDTH) > 1023

        IF _cFONT="COURIER NEW"
           WVT_SETFONT(_cFont,28,-13,npeso,2)
        else
           WVT_SETFONT(_cFont,28,-13-nsize,npeso,nsize*4)
        ENDIF

   case GTINFO(GTI_DESKTOPWIDTH) > 799
        IF "XP"$os()
           WVT_SETFONT(_cFont,22,10-nsize,npeso,nsize*4)
        ELSE
           IF _cFONT="COURIER NEW"
                         * ALTURA ,LARGURA
        	     WVT_SETFONT(_cFont,20,-10,npeso,nsize*4) //IIF(PFN_BOLD="S",4,0))
           ELSE
        	     WVT_SETFONT(_cFont,22,-10,npeso,nsize*4) //IIF(PFN_BOLD="S",4,0))
           ENDIF
        endif
  otherwise
      WVT_SETFONT(_cFont,17,8-nsize,npeso,IIF(PFN_BOLD="S",4,0))     // negrito
endcase
return(nill)

Olha como ficou a tela agora :

[Abel]

ola,

to tentando usar o comando wvt_setfont mas esta dando erro de compilacao.
undefined reference,

na compilacao coloquei -lgtwvt , os comandos hb_gtinfo estao funcionando, mas este nao..., o que mais tenho q fazer para poder usar o wvt_setfont ?

agradeço desde ja
ABEL

[andersoncamilo]

Boa tarde

A GTWVT funciona no xharbour 1.2.1, pois peguei os fontes dela no xhabour 1.00 e compilei no xharbour 1.2.1, mas quando compilo esse exemplo acima junto com um programa teste aparece varias funções como não encontradas, e o mesmo teste compilado no xharbour 1.00 funciona certinho.

Se não funciona nessa 1.2.1 tem alguma opção (GUI) para eu poder usar o exemplo acima de tela maximizada.

Obrigado

Anderson Camilo