Letras Grandes para exibição na Tela

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Responder
Avatar do usuário
janio
Colaborador
Colaborador
Mensagens: 1846
Registrado em: 06 Jul 2004 07:43
Localização: UBAJARA - CE

Letras Grandes para exibição na Tela

Mensagem 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
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Voltar ao topo
Avatar do usuário
marbio
Usuário Nível 3
Usuário Nível 3
Mensagens: 206
Registrado em: 29 Jul 2004 16:26

Mensagem 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

:*
Sempre há uma solucao para os nossos problema clipper.....
Voltar ao topo
Avatar do usuário
janio
Colaborador
Colaborador
Mensagens: 1846
Registrado em: 06 Jul 2004 07:43
Localização: UBAJARA - CE

Mensagem 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
fui...
e-mail:janioaguiar@yahoo.com.br
msn: janio_aguiar@hotmail.com
xHarbour1.2.1/Harbour3.2 + wvg + hwgui + Mediator + MySql
Voltar ao topo
Avatar do usuário
marbio
Usuário Nível 3
Usuário Nível 3
Mensagens: 206
Registrado em: 29 Jul 2004 16:26

Letra grande

Mensagem 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
Sempre há uma solucao para os nossos problema clipper.....
Voltar ao topo
Avatar do usuário
software_facil
Usuário Nível 3
Usuário Nível 3
Mensagens: 211
Registrado em: 23 Fev 2005 12:19
Localização: Curitiba/PR
Contato:
Contato software_facil

Mensagem 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
messenger : software_facil@hotmail.com
Voltar ao topo
Responder

Voltar para “CA-Clipper”