Fórum Como colorir um RichText? #332598

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;