Aumentar tamanho do texto

[carlosgustavo]

Quero saber como faço para aumentar o tamanho da letra de um texto.

Igual ao que acontece nesse programa:



A letra do texto TOTAL: 8,20 é maior.



Obrigado

[alaminojunior]

Carlos, na verdade não foi aumentado o tamanho da fonte, mas sim utilizada uma função que pega o dado e transforma no conjunto de caracteres exibidos.
Segue um exemplo para variáveis numéricas.

Código: Selecionar todos

Function lupa10
* inteiros=lupa3; centavos=lupa4
para entra,lin,col
priv cont,a1,a2,a3,a4,b1,b2,b3,b4
entra=alltrim(tran(entra,"@E 999,999.99"))
a1="___ __  ___ ___ _ _ ___ _   ___ ___ ___ "
a2="¦ ¦  ¦    ¦   ¦ ¦ ¦ ¦   ¦     ¦ ¦ ¦ ¦ ¦ "
a3="¦ ¦  ¦  ¦¯¯ ¯¯¦ ¯¯¦ ¯¯¦ ¦¯¦   ¦ ¦¯¦ ¯¯¦ "
a4="¦_¦ _¦_ ¦__ __¦   ¦ __¦ ¦_¦   ¦ ¦_¦   ¦ "
*   xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx
b1 := b2 := b3 := b4 :=""
for cont=1 to len(entra)
  if substr(entra,cont,1)$"."
    b1=b1+"  "
    b2=b2+"  "
    b3=b3+"  "
    b4=b4+"_ "
  elseif substr(entra,cont,1)$","
    b1=b1+"  "
    b2=b2+"  "
    b3=b3+"_ "
    b4=b4+"  "
    * chegou no centavo? muda pra 3...
    a1="___ __  ___ ___ _ _ ___ _   ___ ___ ___ "
    a2="¦ ¦  ¦  __¦ __¦ ¦_¦ ¦__ ¦__   ¦ ¦_¦ ¦_¦ "
    a3="¦_¦ _¦_ ¦__ __¦   ¦ __¦ ¦_¦   ¦ ¦_¦   ¦ "
    a4="                                        " 
  else
    b1=b1+substr(a1,(val(substr(entra,cont,1))*4)+1,4)
    b2=b2+substr(a2,(val(substr(entra,cont,1))*4)+1,4)
    b3=b3+substr(a3,(val(substr(entra,cont,1))*4)+1,4)
    b4=b4+substr(a4,(val(substr(entra,cont,1))*4)+1,4)
  endi
next
@lin+0,col say b1 colo "b/w"
@lin+1,col say b2 colo "b/w"
@lin+2,col say b3 colo "b/w"
@lin+3,col say b4 colo "b/w"

[Toledo]

Só completando o exemplo do alaminojunior, veja também a função do link abaixo:

Expandir textos

Abraços,