Página 1 de 1
telas com tamanho de fontes diferentes
Enviado: 28 Nov 2012 10:56
por 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...?
:%
telas com tamanho de fontes diferentes
Enviado: 04 Dez 2012 08:27
por 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)
//-----------------
telas com tamanho de fontes diferentes
Enviado: 08 Jan 2013 12:34
por 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.
telas com tamanho de fontes diferentes
Enviado: 08 Jan 2013 13:41
por lugab
Tonyx,
Explique a afirmação abaixo, pq eu não a entendi
telas com tamanho de fontes diferentes
Enviado: 08 Jan 2013 14:59
por 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
telas com tamanho de fontes diferentes
Enviado: 08 Jan 2013 15:01
por Abel
lugab,
41 x 126 significa q a janela tera 41 linhas por 126 colunas.
é isso.
ABEL
telas com tamanho de fontes diferentes
Enviado: 17 Jan 2013 14:33
por 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)
telas com tamanho de fontes diferentes
Enviado: 25 Jan 2013 15:30
por tonyx
nao fique quebrando cabeça... ja temos soluçoes ja postas forum
so pedir - aproveite copiar funcoes - avançar seus sistemas
TA LEGALLL
:%
telas com tamanho de fontes diferentes
Enviado: 25 Jan 2013 15:39
por jsnascimento
tonyx escreveu: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