Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: RichEdit:Bestimmte Wörter färben

  Alt 14. Mär 2007, 22:06
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;
  Mit Zitat antworten Zitat