Como fazer letras grandes

[helio]

Pessoal estou querendo colocar um resultado em letras grandes tem como fazer isso.

Helio Beltrao Jr.
helio@hrbinfo.com.br

[angeiras]

Ola,

Usando alguma lib em particular ? ou em modo texto ?

[]s
Manoel Angeiras

[helio]

Utilizo Xharbour + GTWVW modo texto

[Eolo]

Hélio, olha um exemplo de "números grandes" na tela (em modo texto)...

Código: Selecionar todos

function lupa3
para entra,lin,col
priv cont,a1,a2,a3,a4,b1,b2,b3,b4,corant
corant=setcolor()
set color to
entra=alltrim(tran(entra,"@E 99,999,999.99"))
a1="ÜÜÜ ÜÜ  ÜÜÜ ÜÜÜ Ü Ü ÜÜÜ Ü   ÜÜÜ ÜÜÜ ÜÜÜ "
a2="Û Û  Û  ÜÜÛ ÜÜÛ ÛÜÛ ÛÜÜ ÛÜÜ   Û ÛÜÛ ÛÜÛ "
a3="ÛÜÛ ÜÛÜ ÛÜÜ ÜÜÛ   Û ÜÜÛ ÛÜÛ   Û ÛÜÛ   Û "
*   xxx xxx xxx xxx xxx xxx xxx xxx xxx xxx
b1:=b2:=b3:=""
for cont=1 to len(entra)
  if substr(entra,cont,1)$".,"
    b1=b1+"   "
    b2=b2+"   "
    b3=b3+" "+iif(substr(entra,cont,1)=".",chr(220),chr(220))+" "
  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)
  endi
next
@lin+0,col say b1
@lin+1,col say b2
@lin+2,col say b3
setcolor(corant)

[prodasys]

Acabei de enviar para o seu e-mail uma funcao para mostrar numeros grandes no seu sistema.

[prodasys]

voce tb pode tirar como exemplo para construcao de uma funcao para exebir letras grandes tb.