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;