deixar a primeira letra em detaque

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

clebermano
Usuário Nível 3
Usuário Nível 3
Mensagens: 187
Registrado em: 03 Out 2004 12:39
Contato:

deixar a primeira letra em detaque

Mensagem por clebermano »

amigos, sei que nao eh dificil, mas como faco de uma maneira logica, para deixar a primeira letra da frase em destaque com outra cor por exemplo?::
Vastec - Automacao Comercial Ltda - Ribeirao Preto - SP. (16)3968-2299-(16)8154-7828 (16)8121-4139
msn: suporte@clebermano.com.br - email: clebermanorp@yahoo.com.br
Quem nao vive pra servir nao serve pra viver !
evolver
Membro Master
Membro Master
Mensagens: 189
Registrado em: 28 Ago 2004 01:02
Localização: Cruz Alta - RS
Contato:

Mensagem por evolver »

Aonde você pretende aplicar isso?

Se for no prompt/menut to eu já postei uma modificação neles que permite destacar a primeira letra.
https://pctoledo.org/forum/viewtopic.php?t=1733
Sergio "Evolver" Fagundes

CURVE-SE DIANTE DE MIM SER INSIGNIFICANTE, POIS EU SOU ROOT
Só respondo em PVT perguntas relativas ao que eu faço. Qualquer outra dúvida favor postar no fórum.
Peço aos veteranos que antes de responder a uma pergunta repetida dêem uma pesquisada e instruam a quem perguntou a fazer o mesmo.
clebermano
Usuário Nível 3
Usuário Nível 3
Mensagens: 187
Registrado em: 03 Out 2004 12:39
Contato:

Mensagem por clebermano »

seria assim evolver, o cara vai digitar Pesado/Unitario, o primeito P em destaque e o primeito U tb.
entendeu???
Vou dar uma olhada no seu post.
obrigado.
Vastec - Automacao Comercial Ltda - Ribeirao Preto - SP. (16)3968-2299-(16)8154-7828 (16)8121-4139
msn: suporte@clebermano.com.br - email: clebermanorp@yahoo.com.br
Quem nao vive pra servir nao serve pra viver !
Avatar do usuário
Poka
Usuário Nível 4
Usuário Nível 4
Mensagens: 563
Registrado em: 25 Out 2004 21:26
Localização: Leme/SP

Mensagem por Poka »

Prezado Colega

Será que isso serviria?.


set color to n/w
cls
v1:="Pesado/"
v2:="Unitario: "
varpeso:=0

@ 10,10 say substr(v1,1,1) color("02/15")
@ row(),col() say substr(v1,2,len(v1)-1)

@ row(),col() say substr(v2,1,1) color(02/15")
@ row(),col() say substr(v2,2,len(v2)-1)

@ row(),col()+2 get varpeso pict"@e 999.99"

read


Um Abraço



Poka
clebermano
Usuário Nível 3
Usuário Nível 3
Mensagens: 187
Registrado em: 03 Out 2004 12:39
Contato:

Mensagem por clebermano »

iiiiiiiiiiiisssssssssooooooooooooooooo mesmo valeu funfou direitinho de maneira logica valeu....

:xau :xau :xau :xau :xau :xau :xau :xau :xau :xau :xau :xau
Vastec - Automacao Comercial Ltda - Ribeirao Preto - SP. (16)3968-2299-(16)8154-7828 (16)8121-4139
msn: suporte@clebermano.com.br - email: clebermanorp@yahoo.com.br
Quem nao vive pra servir nao serve pra viver !
Responder