Formatando caracteres com no Dephi

kamikaze14 · 24 de outubro de 2008

Pessoal,

Tenho um trabalho da escola pra fazer e uma das questões consiste em pegar um texto digitado e aplicar uma formatação ( negrito, sublinhado e itálico ) conforme eu clicar no botão correspondente ao estilo.

Alguém sabe se existe uma função para isso ?

Grato desde já.

thiago_rn · 26 de outubro de 2008

Rapaz, era bom você explicar melhor.

Como vai vir esse texto? O cara vai digitar no programa? Vai vir em .txt? .doc? Se ele for digitar no programa vai ser dentro de um Memo? Ou em um Edit?

kamikaze14 · 26 de outubro de 2008

Desculpa.

Tipo, eu crio uma Label que virá com um texto qualquer e crio quatro caixas de marcação, uma pra por a label em negrito, outra em itálico, outra em sublinhado e outra em tachado.

Ex: Quando eu marcar o quadradinho do negrito, minha Label ( não é um TEdit, é um TLabel), vai ficar em negrito.

É isso

thiago_rn · 26 de outubro de 2008

Ah, é bem simples. Outro dia um amigo meu veio me peguntando um negócio desse. você estuda no Cefet-RN, por acaso? Eu vi agora que você é de Natal...

Isso ae é bem simples. Tem uma propriedade no label justamente pra isso. A linha de comando que você vai usar é essa:

Label1.Font.Style := [x];

onde x vai depender do que você quer:

Negrito: fsBold

Itálico: fsItalic

Sublinhado: fsUnderline

Tachado: fsStrikeOut

Se você quiser deixar o label em negrito, por exemplo, ficaria:

Label1.Font.Style := [fsBold]; //lembrando dos colchetes

E se você quiser que o label fique duas coisas ao mesmo tempo, negrito e itálico por exemplo, é só separar entre vírgulas dentro dos colchetes:

Label1.Font.Style := [fsBold, fsItalic];

Qualquer dúvida posta ae.

Edit:

Cabei de ver no seu perfil que você estuda no CEFET mesmo!

aehauehaue, eu faço 3º ano de informática lá (:

kamikaze14 · 26 de outubro de 2008

Hum...

Valeu aí brother. Eu sou uma negação em programação, esse não é o meu forte...

Sou da 2.401M

Valeu ae, vou fechar o tópico.

gandalfnho · 27 de outubro de 2008

Conforme solicitado, estamos reabrindo este tópico!

kamikaze14 · 28 de outubro de 2008

Minha dúvida agora é...

Porque tenho que fazer

Label1.font.style:=Label1.font.style + fsbold

pra poder aparecer duas formatações ao mesmo tempo quando eu selecionar duas formatações diferentes. Por que antes de colocar esse Label1.font.style + fsbold, não ficava duas formatações de uma vez, tipo Negrito com Itálico, entende?

Enfim a dúvida é por que tenho que colocar esses itens agora.

thiago_rn · 29 de outubro de 2008

Não ficou muito claro essa sua última dúvida, mas pelo que eu imagino, você quer que as formatações que forem selecionadas nos checkbox apareçam no Label. Se tá marcado o checkbox do negrito e do itálico, o label vai estar em negrito e em itálico; se estiver só o do sublinhado, o label vai estar somente sublinhado; se estiver marcado os checkbox do itálico e do tachado, ele vai estar só tachado e itálico, e assim por diante, certo?

É o que pelo menos faz mais sentido.

Vai no evento OnClick do checkbox (clicando 2x nele você vai lá) e digita o seguinte código:

if NegritoBox.Checked then
Label1.Font.Style := Label1.Font.Style + [fsBold]

else

Label1.Font.Style := Label1.Font.Style - [fsBold];

Esse aí ficaria no OnClick do checkbox do negrito. Coloca o mesmo código, trocando o nome do checkbox e o nome do style, e vai dar tudo certinho. O próximo seria para o OnClick do checkbox do itálico: