Alterar tamanho de letras no monitor.

[Renato Maia]

Olá, amigos.
omo poderia fazer para alterar o tamanho das letras que aparecem na tela (monitor), quando a programação é feita em Clipper?
Agradecido
Renato Maia

[vailton]

Explique exatametne oq vc pretende fazer, por favor.

[acelconsultoria]

Bem... se for o que eu estou pensando, você tem basicamente 3 alternativas.

1. Usar/criar uma função para desenhar os caracteres pra vc. Assim que vc aciona a função, ela transforma os caracteres desejados, em caracteres desenhados de forma ampliada. Eis aqui um exemplo tirado do ToyaNet.

Código: Selecionar todos

// Display caracteres grandes
//
// Compilar:
//              Clipper visor /n/m
//              Rtlink fi visor
//            ou
//              Blinker fi visor
//      toyasis@yahoo.com.br
//      http://www.toyanet.com.br
//

function main()

local nValor:=0
public win_visor, m_visor := {}

setblink( .f. )
clear
do while .t.
        @ 05,05 say 'Valor: ' get nValor picture '99999.99'
        read
        if lastkey() == 27
                exit
        endif
        visor_22( visor_monta( transf( nValor, '@E ##,###.##' ) ), 04, 39 )
enddo
return nil

* -----------------------------------------------------------------------------
function visor_22(arg1,arg2,arg3,arg4,arg5,arg6)
* -----------------------------------------------------------------------------
local m,j,e1,e2,d1,d2
win_visor:=savescreen( 22, 26, 24, 79 )
* arg1 : linha a ser impressa (matriz 3x1)
* arg2 : linha
* arg3 : coluna
 arg4 := 'b*/gr+'
 arg5 := 'gr+/b*'
@ 22,26 Say Space(55)        color 'b*/gr+'
@ 23,26 Say Space(55)        color 'b*/gr+'
@ 24,26 Say Space(55)        color 'b*/gr+'
arg2 := 21
arg3 := arg3 - 3
for m=1 to len(arg1)
   for j=1 to len(arg1[m])
      if subs(arg1[m],j,1)=chr(219)
         @ arg2+m,j+arg3 say ' ' color arg5
      elseif subs(arg1[m],j,1)=chr(220)
         @ arg2+m,j+arg3 say chr(223) color arg5
      else
         @ arg2+m,j+arg3 say subs(arg1[m],j,1) color arg4
      endi
   next
next
return NIL

* -----------------------------------------------------------------------------
func visor_monta(arg1)  // Û 219 / 235
* -----------------------------------------------------------------------------
* parametros passados :
*     arg1 = valor no formato a ser impresso
*
m_visor := {}
declare g1[3],g2[3],g3[3],g4[3],g5[3],g6[3],g7[3],g8[3],g9[3],g0[3],ga[3],gb[3]
g1[1] = 'ÜÛ   '
g1[2] = ' Û   '
g1[3] = 'ßßß  '
g2[1] = 'ßßßÛ '
g2[2] = 'Ûßßß '
g2[3] = 'ßßßß '
g3[1] = 'ßßßÛ '
g3[2] = ' ßßÛ '
g3[3] = 'ßßßß '
g4[1] = 'Û  Û '
g4[2] = 'ßßßÛ '
g4[3] = '   ß '
g5[1] = 'Ûßßß '
g5[2] = 'ßßßÛ '
g5[3] = 'ßßßß '
g6[1] = 'Ûßßß '
g6[2] = 'ÛßßÛ '
g6[3] = 'ßßßß '
g7[1] = 'ßßßÛ '
g7[2] = ' Üß  '
g7[3] = ' ß   '
g8[1] = 'ÛßßÛ '
g8[2] = 'ÛßßÛ '
g8[3] = 'ßßßß '
g9[1] = 'ÛßßÛ '
g9[2] = 'ßßßÛ '
g9[3] = 'ßßßß '
g0[1] = 'ÛßßÛ '
g0[2] = 'Û  Û '
g0[3] = 'ßßßß '
stor '' to l1,l2,l3
for _y = 1 to len(arg1)
   _yi = subs(arg1,_y,1)
   for _z = 1 to 3
      _ya = str(_z,1)
      l0=''
      do case
      case _yi = ' '
         l0 = l0 + '     '
      case _yi = ','
         l0 = iif(_z=3,l0+' Ï ','   ')
      case _yi = '.'
         l0 = iif(_z=3,l0+' Ï ','   ')
      case _yi = '}'
         l0 = iif(_z=3,l0+' Ï ','   ')
      case _yi = '/'
         l0 = iif(_z=3,l0+' Ï ','   ')
      case _yi = '1'
         l0 = l0+g1[_z]
      case _yi = '2'
         l0 = l0+g2[_z]
      case _yi = '3'
         l0 = l0+g3[_z]
      case _yi = '4'
         l0 = l0+g4[_z]
      case _yi = '5'
         l0 = l0+g5[_z]
      case _yi = '6'
         l0 = l0+g6[_z]
      case _yi = '7'
         l0 = l0+g7[_z]
      case _yi = '8'
         l0 = l0+g8[_z]
      case _yi = '9'
         l0 = l0+g9[_z]
      case _yi = '0'
         l0 = l0+g0[_z]
      endcase
      l&_ya = l&_ya + l0
   next
next
aadd(m_visor,l1)
aadd(m_visor,l2)
aadd(m_visor,l3)
return( m_visor)

2. Vc pode utilizar alguma lib gráfica, como a LLibG por exemplo. Aí vc escolhe a fonte que vc quer utilizar e define o tamanho que vc deseja.


3. Usar a lib CT junto com o objeto CTUS, do próprio clipper. Na pasta Samples do clipper vc tem o exemplo do arquivo WINDEMO, que te ensina exatamente como usar os recursos.


Espero ter ajudado.