MAximinzar com a GTWVW
Moderador: Moderadores
-
Renato Xavier Corradi
- Usuário Nível 1

- Mensagens: 23
- Registrado em: 25 Jan 2005 11:55
MAximinzar com a GTWVW
Pessoal, não consigo maximizar a tela dos meus sistemas. Estou usando a GTWVW e gostaria de usar tela inteira, independente da configuração de resolução em que estiver o monitor.
O que acontece hoje é que, se está em alto resolução, a tela do sistema fica pequena... Se está em baixa resolução, a tela do sistema ultrapassa os limites do monitor e não consigo ver partes da tela do sistema....
Se alguém puder dar uma dica, agradeço
Renato
O que acontece hoje é que, se está em alto resolução, a tela do sistema fica pequena... Se está em baixa resolução, a tela do sistema ultrapassa os limites do monitor e não consigo ver partes da tela do sistema....
Se alguém puder dar uma dica, agradeço
Renato
Alem do wvw_maximize(0) você pode tambem pré-definir tamanhos de fonte diferentes para cada resolução, evitando assim que as letras fiquem peguenas ou que a tela não caiba no video, exemplo:
Eu utilizo essa procedure em meus programas para ajustar a fonte.
*(caso eu chame ela sem os parametros, a fonte é definida de acordo com a resolução)
Eu utilizo essa procedure em meus programas para ajustar a fonte.
*(caso eu chame ela sem os parametros, a fonte é definida de acordo com a resolução)
Código: Selecionar todos
PROCEDURE APP_FONT(cFace,nSize,nWidth)
IF cFace<>nil .or. nSize<>nil .or. nWidth<>NIL
DEFAULT(@cFACE,'Courier New')
DEFAULT(@nSize,14)
DEFAULT(@nWidth,0)
aFONT[1]:=cFACE
aFONT[2]:=nSIZE
aFONT[3]:=nWIDTH
aFONT[4]:=400
aFONT[5]:=1
ELSE
IF WVW_GETSCREENWIDTH()=640
aFONT[1]:='Courier New'
aFONT[2]:=14
aFONT[3]:=0
aFONT[4]:=400
aFONT[5]:=1
ELSEIF WVW_GETSCREENWIDTH()=800
aFONT[1]:='Courier New'
aFONT[2]:=20
aFONT[3]:=0
aFONT[4]:=400
aFONT[5]:=1
ELSEIF WVW_GETSCREENWIDTH()>=1024
aFONT[1]:='Lucida Console'
aFONT[2]:=22
aFONT[3]:=0
aFONT[4]:=400
aFONT[5]:=1
ENDIF
ENDIF
WVW_SetFont(0,aFONT[1],aFONT[2],aFONT[3],aFONT[4],aFONT[5])
RETURN"Ninguém se engane a si mesmo; se alguém dentre vós se tem por sábio neste mundo, faça-se louco para se tornar sábio." (I Coríntios 3:18)
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
xHarbour | Gtwvw | HwGui | DBF+CDX | mySQL | Genesis IDE
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
xHarbour | Gtwvw | HwGui | DBF+CDX | mySQL | Genesis IDE
-
leandrolinauer
- Usuário Nível 3

- Mensagens: 413
- Registrado em: 16 Out 2006 10:59
- Localização: Paranaíba-MS
WvW_SETFONT
Bom dia, aproveitando os textos eu estou usando com configuração para qualquer tamanho de tela até 1024, só não consegui fazer se tiver usando acima de 1024 , tipo 1280x1024, fica a tela pequena.
Alguem teve problemas deste tipo, tenho dois clientes que tem um monitor LCD 17 polegadas e utiliza esta configuração e a tela fica pequena e o todo o programa do lado esquerdo não ficando centralizado tudo, a única que ficou centralizado foi o comando SetTitle, que deixa toda a tela com o programa preenchida, mas as demais telas wvw_nOpenwindow() ficam do lado esquerdo da tela, não consegui centralizar elas.
Se alguem souber qual configuração da certo com SETFONT acima de 1024 eu ja fiz varias com até LUCIDA CONSOLE,72 não faz nem diferença, será alguma limitação do SETFONT.
Estou usando GTwVw, harbour 0.99.60 simplex.
Grato. :xau
Alguem teve problemas deste tipo, tenho dois clientes que tem um monitor LCD 17 polegadas e utiliza esta configuração e a tela fica pequena e o todo o programa do lado esquerdo não ficando centralizado tudo, a única que ficou centralizado foi o comando SetTitle, que deixa toda a tela com o programa preenchida, mas as demais telas wvw_nOpenwindow() ficam do lado esquerdo da tela, não consegui centralizar elas.
Se alguem souber qual configuração da certo com SETFONT acima de 1024 eu ja fiz varias com até LUCIDA CONSOLE,72 não faz nem diferença, será alguma limitação do SETFONT.
Estou usando GTwVw, harbour 0.99.60 simplex.
Grato. :xau
Harbour 3.2 + GtWVW + QT + SQLite3 + DBF + SQL (Firebird)
-
leandrolinauer
- Usuário Nível 3

- Mensagens: 413
- Registrado em: 16 Out 2006 10:59
- Localização: Paranaíba-MS
GtWvw
Resolvido.
Era apenas eu achar um tamanho que não desse errado.
Consegui assim:
Espero poder ter ajudado.
:|<
Era apenas eu achar um tamanho que não desse errado.
Consegui assim:
Código: Selecionar todos
Function GtWindows()
IF GTINFO(GTI_DESKTOPWIDTH) > 1024
WVW_SETFONT(,"LUCIDA CONSOLE",29,15,400) // pra acima de 1024
SETCOLOR('G+/N')
@ WVW_MAXMAXROW(), 0 TO 25,WVW_MAXMAXCOL()
WVW_SBCREATE()
ElseIF GTINFO(GTI_DESKTOPWIDTH) >= 1024
WVW_SETFONT(,"LUCIDA CONSOLE",28,12,400)
SETCOLOR('G+/N')
@ WVW_MAXMAXROW(), 0 TO 25,WVW_MAXMAXCOL()
WVW_SBCREATE()
ELSEIF GTINFO(GTI_DESKTOPWIDTH) >= 800
WVW_SETFONT(,"LUCIDA CONSOLE",20,09,400)
SETCOLOR('G+/N')
@ 25, 0 TO 25,WVW_MAXMAXCOL()+1
WVW_SBCREATE()
ELSEIF GTINFO(GTI_DESKTOPWIDTH) >= 640
WVW_SETFONT(,"LUCIDA CONSOLE",17,7,400) //win98
SETCOLOR('G+/N')
@ 25, 0 TO 25,WVW_MAXMAXCOL()+1
WVW_SBCREATE()
END IF
WVW_SETCODEPAGE(,255)
SETMODE(WVW_MAXMAXROW()+1,WVW_MAXMAXCOL()+1)
Public w_MxR:=WVW_MAXMAXROW()
Public w_MxC:=WVW_MAXMAXCOL()+2
WVW_SIZE_READY(.T.)
WVW_SETMAINCOORD(.T.)
wVw_enablemaximize(,.F.)
wVw_maximize(0)
wVw_CenterWindow(,.F.,.F.)
Return .T.
:|<
Harbour 3.2 + GtWVW + QT + SQLite3 + DBF + SQL (Firebird)
-
ronnimadeira
- Usuário Nível 1

- Mensagens: 17
- Registrado em: 16 Jan 2008 23:37
- Localização: ITAOCARA
- sygecom
- Administrador

- Mensagens: 7131
- Registrado em: 21 Jul 2006 10:12
- Localização: Alvorada-RS
- Contato:
Compile junto com sua app a seguinte função:ronnimadeira escreveu:Está dando o seguinte erro.
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_WVW_SIZE_READY' referenced from C:\XHARBOUR\
PRG\FERREIRA\OBJ\TELA_CHEIA.OBJ
Código: Selecionar todos
#pragma BEGINDUMP
#include "hbapi.h"
HB_FUNC( WVW_SIZE_READY )
{
BOOL bIsReady;
static BOOL s_bIsReady = FALSE;
bIsReady = s_bIsReady;
if (ISLOG(1))
{
s_bIsReady = hb_parl(1);
}
hb_retl(bIsReady);
}
#pragma ENDDUMPLeonardo Machado
xHarbour.org + Hwgui + PostgreSql
xHarbour.org + Hwgui + PostgreSql
