telas com tamanho de fontes diferentes

[tonyx]

realizo em WVW
tenho 3 telas
-- menu principal vem em fonte "console" - tamanho 14
tela 01 vem tamanho 14 - ok
tela 02 vem tela 12

-->> na tela 03 para apresentar planilha de calculo de varios meses e trimestres
tenho por tamanho 09 -

a questao e quando saio desta tela volta para tela2 - desconfigura a tela 2

ja tentei por trabalhar com a tela 3 - abrindo e fechando mas creio WVW meio limitado nisto

--- pensei usar HGUI - mas e so para uma tela3 so

pensei usar browse mas cai mesma pendencia interfere ao sair

--objetivo=
-telas com o mesmo fonte "console" e cada tela "tamnaho de letras diferentes
sem uma intevirir na outra

o uso de windows.ch nao sei se serve neste caso...?

:%

[tonyx]

ai pesssoal eu mesmo consequi

// inicio programa principal tenho wvw_setfonte("lucida",14,08)
// passa dimenssao = 41 por 126
// na tela 3 usar fonte 10 eis a solucao
inicio colocar tela_fonte10()

la final a tela_normal()

DEMOROU POUCO MAS TA AI...


:f

Código: Selecionar todos

//------------------------------------------------------------//
function tela_fonte10
 t3_lin1:= wvw_maxmaxrow()
 t3_col1:= wvw_maxmaxcol()
	//--------------
	Bfonte="Lucida Console"
 Btam_fte:= 10
 Blarg_fte:= 0
 ok_fonte:= wvw_setfont( ,Bfonte,Btam_fte,Blarg_fte)
 //-----------
 if ! ok_fonte 
  ALERTA(" Erro no Fonte: "+bfonte+"; Tam:"+str(btam_fte,2)+"; larg:"+str(blarg_fte,2)  , 0)
  QUIT
 endif
 //------------- max tela = col 130 so depois do fonte - 
 t3_lin2:= wvw_maxmaxrow()
 t3_col2:= wvw_maxmaxcol()
	OK_MODE:= setmode(t3_LIN2,t3_COL2)
 if ! ok_mode 
  ALERTA(" Erro no Mode: ", 0)
  QUIT
 endif
 SETCOLOR(COR0)
 @ 0,0 clear to t3_lin2,t3_col2
return(nil)
//---------------------

function tela_normal
 //--------------------  // padrao = 41 por 126
 setcolor(cor0)
	CLEAR
	OK_MODE:= setmode(42,127)
 if ! ok_mode 
  ALERTA(" Erro no Mode 2: ", 0)
  QUIT
 endif
	clear
	tst:= wvw_setfont(,mfonte,tam_fonte,larg_fonte)
	if ! tst 
  ALERTA(" Erro no Fonte 2: "+mfonte+"; Tam:"+str(btam_fte,2)+"; larg:"+str(blarg_fte,2)  , 0)
  QUIT
 endif
return(nil)
//-----------------

[Abel]

olhei o post acima, mas nao entendi.

minha programacao é modo console e estou usando a gtwvt e opcao -gui na compilacao.

meu setmode esta como 30,92 e gostaria de escrever um texto com uma fonte menor em uma area na tela, tipo uma mensagem De informacao ao cliente.

nao sei se isso é possivel usando a gtwvt ou gtwvw ou alguma outra biblioteca.

se algum souber e puder me ajudar, agradeco desde ja.

[lugab]

Tonyx,

Explique a afirmação abaixo, pq eu não a entendi

Código: Selecionar todos

// passa dimenssao = 41 por 126

[Abel]

tonyx,
pode ser um exemplo de fonte zipado sim, ai eu compilo e vejo se aprendo a usar
o recurso.
Estava agora a pouco tentando usar a hb_gtinfo hb_gti_fontsize hb_gti_fontwidth mas descobri que ela muda a tela inteira e nao apenas me permite escrever em uma regiao da tela com fonte menor.

Desde ja agradeco,
Abel

[Abel]

lugab,

41 x 126 significa q a janela tera 41 linhas por 126 colunas.

é isso.
ABEL

[paiva_dbdc]

O que etsou fazendo de errado ?



PROGRAMA

Código: Selecionar todos

tela_fonte10()

* realmente fica pequenina a letra(fonte)
   clear gets
   @ 06,02 say  "CODIGO .:"
   msgstop("10")

 tela_normal()   && da erro e sai pelo QUIT    Erro no Fonte 2:
   clear gets
   @ 06,02 say  "CODIGO .:"
   msgstop("normal")




function tela_fonte10
 t3_lin1:= wvw_maxmaxrow()
 t3_col1:= wvw_maxmaxcol()
   //--------------
 bfonte="Lucida Console"
 Btam_fte:= 10
 Blarg_fte:= 0
 ok_fonte:= wvw_setfont( ,Bfonte,Btam_fte,Blarg_fte)
 //-----------
 if ! ok_fonte
  ALERTA(" Erro no Fonte: "+bfonte+"; Tam:"+str(btam_fte,2)+"; larg:"+str(blarg_fte,2)  , 0)
  QUIT
 endif
 //------------- max tela = col 130 so depois do fonte -
 t3_lin2:= wvw_maxmaxrow()
 t3_col2:= wvw_maxmaxcol()
   OK_MODE:= setmode(t3_LIN2,t3_COL2)
 if ! ok_mode
  ALERTA(" Erro no Mode: ", 0)
  QUIT
 endif
return(nil)
//---------------------



function tela_normal
 //--------------------  // padrao = 41 por 126
   mfonte="Lucida Console"

   CLEAR

   msgstop(strzero(nLinTela,6)+[*]+strzero(nColTela,6)+[*]+strzero(pfonte1,6)+[*]+strzero(pfonte2,6)+[*]+wfont)
   * 25 80   30   15  Lucinda console

  *OK_MODE:= setmode(42,127)
  *                    25       80
   OK_MODE:= setmode(nLinTela,nColTela)
   if ! ok_mode
      ALERTA(" Erro no Mode 2: ", 0)
      QUIT
   endif
   clear
   *               lucinda console, 30,  15
   tst:= wvw_setfont(,wfont,pfonte1,pfonte2)
   if ! tst
       msgstop(" Erro no Fonte 2: ")
      *ALERTA(" Erro no Fonte 2: "+mfonte+"; Tam:"+str(btam_fte,2)+"; larg:"+str(blarg_fte,2)  , 0)
       QUIT   && Ta saindo por aqui
   endif

return(nil)

[tonyx]

nao fique quebrando cabeça... ja temos soluçoes ja postas forum
so pedir - aproveite copiar funcoes - avançar seus sistemas

TA LEGALLL

:%

[jsnascimento]

nao fique quebrando cabeça... ja temos soluçoes ja postas forum
so pedir - aproveite copiar funcoes - avançar seus sistemas

TA LEGALLL

:%

Prezado Tonyx,
Boa Tarde!

Peço-lhe que poste o seu exemplo de (Telas com tamanho de fontes diferentes)

Abraços!

Jamil S. Nascimento