RichEdit:Bestimmte Wörter färben

[Matze]

Hallo

Zitat von glkgereon:

Ich würde dir ein SynEdit mit dem UniSynHighlighter vorschlagen

Dafür ist das aber leicht übertrieben.

Frag bitte nicht, was der folgende Code nun genau bedeutet. Es hat eine Weile gebraucht, bis ich diesen zusammen hatte, aber bei mir funktioniert es so. Diese seltsamen Strings enthalten die Farbeigenschaften und ähnliches im rtf-Format:

Delphi-Quellcode:

procedure TForm1.HighlightMyText;
begin
  // replace line breaks with rtf ones
  RichEdit1.Text := StringReplace(RichEdit1.Text, #13#10, '\par', [rfReplaceAll]);

  // replace '!SETZE_HAUS' with a highlighted rtf version
  RichEdit1.Text := StringReplace(RichEdit1.Text, '!SETZE_HAUS', '\cf1 !SETZE_HAUS\cf0 ', [rfReplaceAll]);

  // here you can highlight other strings, too

  // add rtf specifications
  RichEdit1.Text := '{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\colortbl ;\red255\green0\blue0;}' + RichEdit1.Text + '}';
end;