Mudar o tamanho da tela e tipo de fonte

[alaminojunior]

Ih rapais, menu eu não uso, por isso, a única coisa que posso indicar, é que dê uma olhada na pasta contrib do xh, sub-pasta wvtgui, lá tem uns exemplos.
Lembrando que se for mexer com imagens e objetos gráficos, precisa ter um plano de repintura dos objetos, pois eles somem, ao minimizar ou se outra janela se sobrepor.
Boa sorte.

[sygecom]

Só falta fazer um menu suspenson tipo windows.Tem como fazer?

Tem sim, mas seria o ideal vc usar a wvwtools, alem dos Menus serem bem mais facil de usar todo o resto de sua aplicação fica com um visual mais agradavel.
Pode baixar a wvwtolls no link abaixo:
http://www.xharbour.com/xhc/index.asp?p ... show_sub=1

[clodoaldomonteiro]

Leonardo!

Baixei a wvwtools do link que vc me indicou, mas não to conseguindo compilá-lo, criar a lib da versão mais nova, dá o seguinte erro:

Código: Selecionar todos

Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
source\winapi.c:
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
source\gtwvw.c:
Error E2141 source\gtwvw.c 385: Declaration syntax error
Error E2147 source\gtwvw.c 433: 'gt_Init' cannot start a parameter declaration
Error E2293 source\gtwvw.c 433: ) expected
*** 3 errors in Compile ***

Vi o exemplo que ele tem e é exatamente o que eu quero, mas não to conseguindo compilar.

E outra, como nunca criei uma lib, to sem saber para onde ir.

[sygecom]

Olá Clodoaldo,
A versão 1.1.0 (CVS) do xharbour não esta compilando a GTWVW e WVWTOOLS, use a vesão estavel do xharbour a versão 1.0.0

[jdemoura]

Bom dia Galera!

Estou usando a dica que o sysgecom esta usando, porém me esbarrei em uma dúvida eu não consigo maximizar e nem o famoso alt+enter não funciona.
Alguem ai pode me ajudar.

Ps. Aonde eu consigo um manual que eu possa explorar ou seja usar mais os recursos da lib GTWVT.
:xau
Abraços
Jdemoura

[sygecom]

Estou usando a dica que o sysgecom esta usando, porém me esbarrei em uma dúvida eu não consigo maximizar e nem o famoso alt+enter não funciona.

Bem vindo ao Forum,
Usando a GTWVW ou GTWVT ou WVWTOOLS vc não vai conseguir usar o ALT+ENTER para tela cheia, pq essas LIB fazem seu sistema CONSOLE rodar dentro de uma janela WINDOWS.
Abaixo um exemplo que uso em GTWVW, vc pode procurar aqui no forum usando a BUSCA que vc vai encontrar diversos exemplos, e não deixe de compilar os exemplos que acompanha a GTWVW que lá tem exemplos de MAXIMIZAR.

Código: Selecionar todos

#INCLUDE "INKEY.CH"
#INCLUDE "COMMON.CH"

REQUEST HB_LANG_PT

**********
PROC MAIN()
**********
setcolor("n/w,n+/w*,n,n,n/w*")

SETUP() // o setup é chamado aqui

HB_LANGSELECT( 'PT' )

...menus e etc

return

****************
FUNCTION Setup()
****************
   SetDefaultWindowSize()  // e a outra função é chamada aqui.
   WvW_SetMainCoord( .T. )
   WvW_SetPaintRefresh( 100 )
   WvW_SetVertCaret( .T. )
   WvW_SetAltF4Close( .F. )
   WvW_SetMouseMove( .T. )
   WVW_SetDefLineSpacing( 0 )
   WvW_SetMaxBMcache( 20 )
   WVW_SetLineSpacing( 0, 0 )
   WvW_SetPointer( 0, 1 )
   Wvw_SetTitle(, "Empresa - teste de usando a GtWvw" )   
   wvw_maximize(0)
RETURN (.T.)

FUNCTION SetDefaultWindowSize()
 LOCAL Result:= .T.
 Local ScreenWidth
 SetMode(32,98)
  IF Result
     screenWidth := Wvw_GetScreenWidth()
     DO CASE
        CASE  screenWidth >=1024
          Result:= Wvw_SetFont(,'Terminal',20,10)
        CASE  screenWidth >= 800
             Result:= Wvw_SetFont(,'System',16,-8)
        OTHERWISE
           Result:= Wvw_SetFont(,'Terminal',12,6)
     ENDCASE
     IF Result
        Wvw_SetCodePage(,255)
        CLS
     ENDIF
  ENDIF
RETURN(Result)

Ps. Aonde eu consigo um manual que eu possa explorar ou seja usar mais os recursos da lib GTWVT.

Manual da GTWVT não tem, no maximo vc vai encontrar são os exemplos que acompanha a mesma,outra coisa no meu ponto de vista a GTWVW é mais robusta que a GTWVT. Se for usar a GTWVW, ai tem um PDF que já coloquei em ANEXO aqui no forum tmb. que serve como ajuda para implantação das funções disponiveis nele, se não me engano o autor do PDF é o Manoel Angerias, se não achar esse Anexo pode pegar ele tmb. no grupo do link abaixo:
http://br.groups.yahoo.com/group/gtwvw
Ou me diga para qual email que te envio ele.

[jdemoura]

Bom dia sysgecom!

Valeu pela ajuda, estou testando a rotina aqui baixei a lib que vc indicou.

Muito obrigado. Qlq coisa eu te chamo aqui.

Um clipper Abraço
Jdemoura