Como saber a cor de um caracter dentro de um RichEdit?
Caros amigos,
Alguem sabe como posso obter esta informação. Por exemplo: dentro do RichEdit terei um texto nas cores preto a azul e quero saber quantos caracteres azuis existem no texto.
Alguem sabe como posso obter esta informação. Por exemplo: dentro do RichEdit terei um texto nas cores preto a azul e quero saber quantos caracteres azuis existem no texto.
Alex Maia
Curtidas 0
Respostas
Nildo
24/08/2004
deve se fazer algo assim:
Espero que isto ajude!
var Total: Integer; nAux: Integer; begin Total := 0; for nAux := 0 to Length( richedit1.text ) do begin Richedit1.selStart := nAux; RichEdit1.SelLength := 1; if RichEdit1.SelAttributes.Color = clBlue then Inc( Total ); end; ShowMessage( ´Qtdade de caracteres azuis: ´ + IntToStr( Total ) ); end;
Espero que isto ajude!
GOSTEI 0