Página 1 de 1

Letras Grandes para exibição na Tela

Enviado: 17 Abr 2005 07:57
por janio
Olá a todos,

Estou precisando exibir LETRAS GRANDES em um Frente de Caixa que estou criando e gostaria de saber se alguém pode me dizer como faço pra usar a lib XSETMODE (tem no site do Toledo) ou uma função que faça a mesma coisa.

Na função EXPAND() que também tem no site do Toledo, as letras ficam grandes demais e queria um pouco menor.

Um abraço,

Janio

Enviado: 17 Abr 2005 12:17
por marbio
Bom dia!!!

Ola meu amigo, de uma olha nesta rotina se serve ok


:xau


Código: Selecionar todos


********************************
procedure LETRAGRAND

   parameters ll, co, titulo, carac
   private wcoletra, wnuletra
   if (Type("LL") = "U")
      ll:= 0
   endif
   if (Type("CO") = "U")
      co:= 0
   endif
   if (Type("TITULO") = "U")
      titulo:= " "
   endif
   if (Type("CARAC") = "U")
      carac:= 0
   endif
   wcoletra:= 1
   wnuletra:= Len(titulo)
   do while (wcoletra <= wnuletra)
      wnmletra:= SubStr(titulo, wcoletra, 1)
      LETRA_&WNMLETRA()
      wcoletra:= wcoletra + 1
   enddo
   return

********************************
procedure LETRA_A

   @ ll, co + 3 say Replicate(Chr(carac), 2)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 4)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 6)
   @ ll + 5, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   co:= co + 8
   return

********************************
procedure LETRA_B

   @ ll, co + 1 say Replicate(Chr(carac), 6)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 2 say Replicate(Chr(carac), 5)
   @ ll + 4, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 6)
   co:= co + 9
   return

********************************
procedure LETRA_C

   @ ll, co + 3 say Replicate(Chr(carac), 5)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2)
   @ ll + 3, co + 1 say Replicate(Chr(carac), 2)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 2)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 3 say Replicate(Chr(carac), 4)
   co:= co + 9
   return

********************************
procedure LETRA_D

   @ ll, co + 1 say Replicate(Chr(carac), 5)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 4, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 5)
   co:= co + 9
   return

********************************
procedure LETRA_E

   @ ll, co + 1 say Replicate(Chr(carac), 7)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 1)
   @ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 1)
   @ ll + 3, co + 2 say Replicate(Chr(carac), 4)
   @ ll + 4, co + 2 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 1)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 1)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 7)
   co:= co + 9
   return

********************************
procedure LETRA_F

   @ ll, co + 1 say Replicate(Chr(carac), 7)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 1)
   @ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 1)
   @ ll + 3, co + 2 say Replicate(Chr(carac), 4)
   @ ll + 4, co + 2 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 1)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 4)
   co:= co + 9
   return

********************************
procedure LETRA_G

   @ ll, co + 3 say Replicate(Chr(carac), 5)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2)
   @ ll + 3, co + 1 say Replicate(Chr(carac), 2)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 3)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 3 say Replicate(Chr(carac), 5)
   co:= co + 9
   return

********************************
procedure LETRA_H

   @ ll, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 1 say Replicate(Chr(carac), 6)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 5, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   co:= co + 9
   return

********************************
procedure LETRA_I

   @ ll, co + 1 say Replicate(Chr(carac), 4)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 2)
   @ ll + 2, co + 2 say Replicate(Chr(carac), 2)
   @ ll + 3, co + 2 say Replicate(Chr(carac), 2)
   @ ll + 4, co + 2 say Replicate(Chr(carac), 2)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 4)
   co:= co + 7
   return

********************************
procedure LETRA_J

   @ ll, co + 4 say Replicate(Chr(carac), 4)
   @ ll + 1, co + 5 say Replicate(Chr(carac), 2)
   @ ll + 2, co + 5 say Replicate(Chr(carac), 2)
   @ ll + 3, co + 5 say Replicate(Chr(carac), 2)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 5, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 2 say Replicate(Chr(carac), 4)
   co:= co + 9
   return

********************************
procedure LETRA_K

   @ ll, co + 1 say Replicate(Chr(carac), 4) + " " + ;
      Replicate(Chr(carac), 2)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 2 say Replicate(Chr(carac), 4)
   @ ll + 4, co + 2 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 2)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 4) + " " + ;
      Replicate(Chr(carac), 2)
   co:= co + 9
   return

********************************
procedure LETRA_L

   @ ll, co + 1 say Replicate(Chr(carac), 4)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 2)
   @ ll + 2, co + 2 say Replicate(Chr(carac), 2)
   @ ll + 3, co + 2 say Replicate(Chr(carac), 2)
   @ ll + 4, co + 2 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 1)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 7)
   co:= co + 9
   return

********************************
procedure LETRA_M

   @ ll, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 3) + " " + ;
      Replicate(Chr(carac), 3)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 7)
   @ ll + 3, co + 1 say Replicate(Chr(carac), 7)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 2) + " " + Chr(carac) ;
      + " " + Replicate(Chr(carac), 2)
   @ ll + 5, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   co:= co + 9
   return

********************************
procedure LETRA_N

   @ ll, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 3) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 4) + " " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 1 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 4)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 3)
   @ ll + 5, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   co:= co + 9
   return

********************************
procedure LETRA_O

   @ ll, co + 2 say Replicate(Chr(carac), 5)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 5, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 2 say Replicate(Chr(carac), 5)
   co:= co + 9
   return

********************************
procedure LETRA_P

   @ ll, co + 1 say Replicate(Chr(carac), 6)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 2 say Replicate(Chr(carac), 5)
   @ ll + 4, co + 2 say Replicate(Chr(carac), 2)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 4)
   co:= co + 9
   return

********************************
procedure LETRA_Q

   @ ll, co + 2 say Replicate(Chr(carac), 4)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 4)
   @ ll + 6, co + 4 say Replicate(Chr(carac), 4)
   co:= co + 9
   return

********************************
procedure LETRA_R

   @ ll, co + 1 say Replicate(Chr(carac), 6)
   @ ll + 1, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 2 say Replicate(Chr(carac), 5)
   @ ll + 4, co + 2 say Replicate(Chr(carac), 4)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 3) + "  " + ;
      Replicate(Chr(carac), 2)
   co:= co + 9
   return

********************************
procedure LETRA_S

   @ ll, co + 2 say Replicate(Chr(carac), 4)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2)
   @ ll + 3, co + 2 say Replicate(Chr(carac), 4)
   @ ll + 4, co + 5 say Replicate(Chr(carac), 2)
   @ ll + 5, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 2 say Replicate(Chr(carac), 4)
   co:= co + 8
   return

********************************
procedure LETRA_T

   @ ll, co + 1 say Replicate(Chr(carac), 6)
   @ ll + 1, co + 1 say Chr(carac) + " " + Replicate(Chr(carac), 2) ;
      + " " + Chr(carac)
   @ ll + 2, co + 3 say Replicate(Chr(carac), 2)
   @ ll + 3, co + 3 say Replicate(Chr(carac), 2)
   @ ll + 4, co + 3 say Replicate(Chr(carac), 2)
   @ ll + 5, co + 3 say Replicate(Chr(carac), 2)
   @ ll + 6, co + 2 say Replicate(Chr(carac), 4)
   co:= co + 8
   return

********************************
procedure LETRA_U

   @ ll, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 5, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 2 say Replicate(Chr(carac), 4)
   co:= co + 9
   return

********************************
procedure LETRA_V

   @ ll, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 4)
   @ ll + 6, co + 3 say Replicate(Chr(carac), 2)
   co:= co + 9
   return

********************************
procedure LETRA_W

   @ ll, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 1 say Replicate(Chr(carac), 2) + " " + Chr(carac) ;
      + " " + Replicate(Chr(carac), 2)
   @ ll + 4, co + 1 say Replicate(Chr(carac), 7)
   @ ll + 5, co + 1 say Replicate(Chr(carac), 3) + " " + ;
      Replicate(Chr(carac), 3)
   @ ll + 6, co + 2 say Chr(carac) + "   " + Chr(carac)
   co:= co + 9
   return

********************************
procedure LETRA_X

   @ ll, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 2 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 3 say Replicate(Chr(carac), 3)
   @ ll + 4, co + 2 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 2)
   @ ll + 5, co + 1 say Replicate(Chr(carac), 3) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   co:= co + 9
   return

********************************
procedure LETRA_Y

   @ ll, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 2 say Replicate(Chr(carac), 4)
   @ ll + 4, co + 3 say Replicate(Chr(carac), 2)
   @ ll + 5, co + 3 say Replicate(Chr(carac), 2)
   @ ll + 6, co + 2 say Replicate(Chr(carac), 4)
   co:= co + 9
   return

********************************
function LETRA_Z

   @ ll, co + 1 say Replicate(Chr(carac), 7)
   @ ll + 1, co + 1 say Replicate(Chr(carac), 2) + "   " + ;
      Replicate(Chr(carac), 2)
   @ ll + 2, co + 1 say Replicate(Chr(carac), 2) + " " + ;
      Replicate(Chr(carac), 2)
   @ ll + 3, co + 4 say Replicate(Chr(carac), 2)
   @ ll + 4, co + 3 say Replicate(Chr(carac), 2) + "  " + Chr(carac)
   @ ll + 5, co + 2 say Replicate(Chr(carac), 2) + "  " + ;
      Replicate(Chr(carac), 2)
   @ ll + 6, co + 1 say Replicate(Chr(carac), 7)
   co:= co + 9
   return Nil

* EOF


Qual quer duvida e so falar

:*

Enviado: 17 Abr 2005 12:42
por janio
Bom dia, Marbio!

Estou precisando de umas letras grandes, mas não tão grandes como as da funções que vc postou. Tem que ser pelo menos a metade do tamanho se comparadas as da tua função.

Obrigado, :xau

Janio

Letra grande

Enviado: 17 Abr 2005 16:31
por marbio
Ola!!!!

Vc esta venda uma parte do programa que eu mudei, as que estao em asterisco. Eu desenhei a letra A, na procedure LETRA_A, vc pode fazer cam as demais

Eu use o codigo CHR(219) e chr(224) para preecher. De uma olhada




:xau

Código: Selecionar todos

********************************
procedure LETRA_A

*   @ ll,     co + 3 say Replicate(Chr(carac), 2)
*   @ ll + 1, co + 2 say Replicate(Chr(carac), 4)
*   @ ll + 2, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
*      Replicate(Chr(carac), 2)
*   @ ll + 3, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
*      Replicate(Chr(carac), 2)
*   @ ll + 4, co + 1 say Replicate(Chr(carac), 6)
*   @ ll + 5, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
*      Replicate(Chr(carac), 2)
*   @ ll + 6, co + 1 say Replicate(Chr(carac), 2) + "  " + ;
*      Replicate(Chr(carac), 2)
*   co:= co + 8
*  return


 [color=rede]* Mudanca da rotina[/color]

    @ ll    , co+1 say   'ÛßßÛ'
    @ ll + 1, co+1 say 'Û  Û'
    @ ll + 2, co+1 say 'ÛßßÛ'
    @ ll + 3, co+1 say 'Û  Û'
*   @ ll + 4, co+1 say '
*   @ ll + 5, co+1 say '
*   @ ll + 6, co+1 say '
    co:= co + 5
    return
Espero que te ajude agora.

t+

:* -:] :xau

Enviado: 18 Abr 2005 09:01
por software_facil
Bom dia,

A melhor forma de construir um Frente de Caixa, e usando letras de vários tamanhos e tipos com o Clipper, é usar a lib LLIBG. Se vc quiser um código fonte explicando como fazer, é só me contatar pelo messenger, aliás, quem mais desejar também, o meu e-mail para contato via messenger é software_facil@hotmail.com, espero ter ajudado.

Abraços