Como colorir um RichText?

Delphi

03/11/2006

Olá pessoal,

tenho um RichText, eu quero colocar em [b:0f27599396]Vermelho[/b:0f27599396] os caracteres que são Letras e em Preto o que são Números como faço isso?

obrigado


Yallebr

Yallebr

Curtidas 0

Respostas

Aloizio Castro

Aloizio Castro

03/11/2006

Mastigado!

procedure DestacaLetra(RchEdt: TRichEdit; Color : TColor);
var
  i, SelPos : Byte;
begin
  //-- Destaca letras do alfabeto
  //-- entre os numeros
  SelPos := RchEdt.SelStart;
  for i := 1 to Length(RchEdt.Text) do
    begin
      RchEdt.SelStart := i;
      RchEdt.SelLength := -1;
      if RchEdt.Text[i] in [´A´..´Z´,´a´..´z´] then
        RchEdt.SelAttributes.Color := Color
      else
        RchEdt.SelAttributes.Color := RchEdt.Font.Color;
    end;
  RchEdt.SelStart := SelPos;
end;


Basta passar como parametro o richedit e a cor a ser utilizada para destaque!


GOSTEI 0
POSTAR