MAximinzar com a GTWVW

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Renato Xavier Corradi
Usuário Nível 1
Usuário Nível 1
Mensagens: 23
Registrado em: 25 Jan 2005 11:55

MAximinzar com a GTWVW

Mensagem por Renato Xavier Corradi »

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
angeiras
Usuário Nível 3
Usuário Nível 3
Mensagens: 134
Registrado em: 21 Nov 2005 20:53
Localização: Olinda/PE

Mensagem por angeiras »

Ola,

Voce esta usando WVW_MAXIMIZE(0) para maximizar ?

[]s
Manoel Angeiras
Clipper 5.2e + sixcdx + catools + nanfor
xHarbour 1.0.0 + gtwvw / xHarbour 1.2.1 + Fivewin
Luiz
Usuário Nível 2
Usuário Nível 2
Mensagens: 61
Registrado em: 05 Set 2006 07:30
Localização: Vila Velha - ES

Mensagem por Luiz »

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)

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
leandrolinauer
Usuário Nível 3
Usuário Nível 3
Mensagens: 413
Registrado em: 16 Out 2006 10:59
Localização: Paranaíba-MS

WvW_SETFONT

Mensagem por leandrolinauer »

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
Harbour 3.2 + GtWVW + QT + SQLite3 + DBF + SQL (Firebird)
leandrolinauer
Usuário Nível 3
Usuário Nível 3
Mensagens: 413
Registrado em: 16 Out 2006 10:59
Localização: Paranaíba-MS

GtWvw

Mensagem por leandrolinauer »

Resolvido.
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.
Espero poder ter ajudado.
:|<
Harbour 3.2 + GtWVW + QT + SQLite3 + DBF + SQL (Firebird)
ronnimadeira
Usuário Nível 1
Usuário Nível 1
Mensagens: 17
Registrado em: 16 Jan 2008 23:37
Localização: ITAOCARA

Mensagem por ronnimadeira »

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
Avatar do usuário
sygecom
Administrador
Administrador
Mensagens: 7131
Registrado em: 21 Jul 2006 10:12
Localização: Alvorada-RS
Contato:

Mensagem por sygecom »

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
Compile junto com sua app a seguinte função:

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 ENDDUMP
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
Responder