Mudar o tamanho da tela e tipo de fonte

[alaminojunior]

:?
Que é isso meu caro ?
Tem que botar o dedinho no cocô também !
Tá com medo de sujar o teclado é ?
Afinal, não basta ser pai, ...
Parabéns à familia, Deus abençoe a todos.

[Dércio_Luiz_Zanatta]

Alguém tentou usar SetMode(25,40) ??
Para mim isso não funciona no Xharbour. Se compilar no Clipper 5.2e funciona, mas no xharbour (hbmake) não..

[sygecom]

Alguém tentou usar SetMode(25,40) ??
Para mim isso não funciona no Xharbour. Se compilar no Clipper 5.2e funciona, mas no xharbour (hbmake) não..

Testei e Realmente dah o problema !

[clodoaldomonteiro]

Alamino!
Depois de muito tempo...

Tentei compilar a WVTGUI e deu os seguintes erros:

Código: Selecionar todos

MAKE Version 5.2  Copyright (c) 1987, 1998 Inprise Corp.
	bcc32   -c -O2 -DWIN32 -I..\..\include -o..\..\obj\b32\wvtcore.obj wvtcore.c
CodeGear C++ 5.90 for Win32 Copyright (c) 1993, 2007 CodeGear
wvtcore.c:
	tlib ..\..\lib\b32\wvtgui.lib -+..\..\obj\b32\wvtcore.obj,,
TLIB 5.0 Copyright (c) 1987-2007 CodeGear

Warning: 'wvtcore' not found in library
	bcc32   -c -O2 -DWIN32 -I..\..\include -o..\..\obj\b32\wvtutils.obj wvtutils.c
CodeGear C++ 5.90 for Win32 Copyright (c) 1993, 2007 CodeGear
wvtutils.c:
	tlib ..\..\lib\b32\wvtgui.lib -+..\..\obj\b32\wvtutils.obj,,
TLIB 5.0 Copyright (c) 1987-2007 CodeGear

Warning: 'wvtutils' not found in library
	..\..\bin\b32\harbour.exe wvtpaint.prg -q0 -w -es2 -gc0 -n -i..\..\include -o..\..\obj\b32\wvtpaint.c
	bcc32   -c -O2 -DWIN32 -I..\..\include -o..\..\obj\b32\wvtpaint.obj ..\..\obj\b32\wvtpaint.c
CodeGear C++ 5.90 for Win32 Copyright (c) 1993, 2007 CodeGear
..\..\obj\b32\wvtpaint.c:
Error E2451 ..\..\obj\b32\wvtpaint.c 120: Undefined symbol 'ModuleFakeDyn'
Error E2141 ..\..\obj\b32\wvtpaint.c 120: Declaration syntax error
Error E2190 ..\..\obj\b32\wvtpaint.c 120: Unexpected }
Error E2190 ..\..\obj\b32\wvtpaint.c 121: Unexpected }
Error E2109 ..\..\obj\b32\wvtpaint.c 121: Not an allowed type in function hb_vm_SymbolInit_WVTPAINT
Error E2193 ..\..\obj\b32\wvtpaint.c 179: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_WVTPAINTOBJECTS
Error E2193 ..\..\obj\b32\wvtpaint.c 192: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_WVTSETPAINT
Error E2193 ..\..\obj\b32\wvtpaint.c 219: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_SETPAINT
Error E2193 ..\..\obj\b32\wvtpaint.c 234: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_GETPAINT
Error E2193 ..\..\obj\b32\wvtpaint.c 254: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_DELPAINT
Error E2193 ..\..\obj\b32\wvtpaint.c 273: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_PURGEPAINT
Error E2193 ..\..\obj\b32\wvtpaint.c 290: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_INSERTPAINT
Error E2193 ..\..\obj\b32\wvtpaint.c 349: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_WVT_MAKEDLGTEMPLATE
Error E2193 ..\..\obj\b32\wvtpaint.c 400: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_WVT_ADDDLGITEM
Error E2193 ..\..\obj\b32\wvtpaint.c 429: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_WVT_CREATEDIALOG
Error E2193 ..\..\obj\b32\wvtpaint.c 452: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_WVT_DIALOGBOX
Error E2193 ..\..\obj\b32\wvtpaint.c 494: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_WVT_GETOPENFILENAME
Error E2193 ..\..\obj\b32\wvtpaint.c 512: Too few parameters in call to 'hb_vmExecute' in function HB_FUN_WVT_GETSAVEFILENAME
Error E2193 ..\..\obj\b32\wvtpaint.c 525: Too few parameters in call to 'hb_vmExecute' in function hb_INITSTATICS
*** 19 errors in Compile ***

** error 2 ** deleting ..\..\obj\b32\wvtpaint.obj

O que fazer?
Desde já agradeço a dica.

[clodoaldomonteiro]

... continuando,

Achei ela na pasta lib\b32.

desconsidere a última mensagem.

[clodoaldomonteiro]

Após tentar compilar mostra o seguinte erro:
a variável GTI_DESKTOPWIDTH é inexistente.

Não sei como carregar as variáveis GTI_...

[sygecom]

Coloque no inicio do .PRG a seguinte linha abaixo:

#include "GTINFO.ch"

[clodoaldomonteiro]

Caros amigos!

O negócio tá funcionando, falta pouco, eu acho.

De acordo com as orientações de vocês a tela que está sendo mostrada é gráfica, só que, tem uma tela de DOS por tráz e não consigo mudar a quantidade linhas e colunas, fica sempre em 25x80, mesmo usando a função setmode().

Segue anexo link com projeto zipado:
http://suportegas.com.br/portal/downloa ... 8Sfp30.zip

[sygecom]

Tens que linkar a GTGUI.LIB no script(.BC)

[clodoaldomonteiro]

Fiz o teste colocando a mais a lib GTGUI e tá na mesma.

O Alamino tinha me orientado a colocar a WVTGUI.LIB, pois já tô usando a GTWVT, WVTGUI e GTINFO.CH.

Na verdade, quais dessas devo usar?

Na verdade o que quero faser é o seguinte:
Vejo por aqui em Teresina, alguns aplicativos comerciais que tem um menu e uma barra de ferramentas tipo win32 com tela gráfica e quando o usuário vai getar alguma coisa os gets são tipo DOS ou só caracteres, assim eu aproveitaria de uma maneira mais rápida minhas telas DOS (texto).

Não sei se é possível, ou se teria que usar as libs miniGUI ou outra lib.

Desde já agradeço a ajuda.

[alaminojunior]

Poste para nós, o trecho que você usa para alternar a resolução.

Código: Selecionar todos

INIT FUNCTION AppSetup()
REQUEST WVT_SETCODEPAGE
Request DBFCDX
RddSetDefault("DBFCDX")
WVT_SetIcon("Fenix.ico")
Abrir()
WVT_Core()
WVT_Utils()
WVT_SetCodePage(255)
Set Date format to "DD/MM/YYYY"
SetCursor(0)                                                        
Set Epoch to 1960
Set ScoreBoard Off
Set Deleted On
SET COLOR TO G/W, W+/R,,,N/GR
WVT_ObjList := {}
WVT_Stack   := {}
usuario:= cdtef000->fant
Wvt_SetTitle("AlaminoJunioR Sistemas - Caixa v2.0            " + padc(usuario,70) + dtoc(date()) )

nWidth := Wvt_GetScreenWidth()
do case
   case gtinfo(GTI_DESKTOPWIDTH) >= 1024
        gtinfo(GTI_FONTWIDTH, 12)
        gtinfo(GTI_FONTSIZE, 20)
        Wvt_SetFont("Lucida Console",20,12,2)
   case gtinfo(GTI_DESKTOPWIDTH) >= 800
        gtinfo(GTI_FONTWIDTH, 10 )
        gtinfo(GTI_FONTSIZE, 16 ) 
        Wvt_SetFont("Lucida Console",16,10,2)
   otherwise
        gtinfo(GTI_FONTWIDTH, 8)
        gtinfo(GTI_FONTSIZE, 17)
        Wvt_SetFont("Lucida Console",17,8,2)
endcase
SetMode(34,80)

Eu uso desse jeito aí.

[sygecom]

Clodoaldo o que vc esta usando para compilar ? se tiver usando Hbmake é só marcar para usar GTWVT que vai linkar as LIB nescessarias sozinho.

[clodoaldomonteiro]

Leonardo!
Eu to compilando com o auxílio do xDev + xHarbour 0.99 Simplex. Eu de postei um link com o meu projeto, tem como vc testar para ver se dá certo?

Alamino!
To usando comforme vc indicou, fiz alguma alterações no tamanho de letras e muda perfeitamente, só não dá para mudar o tamanho da tela.

Queria se possível que algum de voces me mandasse um exemplo de como compilar/linkar com outro linkador.

Desde já agradeço

Email: clodoaldosm@yahoo.com.br

[alaminojunior]

Para gerar o projeto com o hbmake:

HBMAKE PRGPRINCIPAL.BC /EX

Vc põe o nome do prg principal, mas na linha de comando, muda a extensão para .bc
Não é para renomear o arquivo.

Feito isso vai abrir uma janela com várias flags e opções, inclusive na variável LIB GRÁFICA, vc escolhe GTWVT. Seguindo adiante, vc deve escolher (barra de espaços) os .prg´s que fazem parte do projeto, depois as lib´s. Nas lib´s, para usar a GTWVT, precisa selecionar WVTGUI.LIB, só isso.
Seguindo adiante, vai gerar o seu executável.

[clodoaldomonteiro]

)
Descobri Alamino, o setmode() tem que vir antes do DO CASE.

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