In SynEdit alle Vorkommen eines Wortes hervorheben

[himitsu]

@nahpets:
Er hat einen schon Highlighter drin und will "zusätzlich" noch etwas gefärbt haben, aber ohne dass der andere Highlighter das ständig wieder übermalt.

[nahpets]

Ja, und das, was in dem anderen Thread steht, ist genau das Gewünschte. Man gebe einen Suchbegriff ein und alle Vorkommen dieses Suchbegriffes werden farbig hervorgehoben.

Statt diesem aus dem anderen Thread:

Delphi-Quellcode:

// Der über die InputBox eingegebene Text wird im SynEdit hervorgehoben.
procedure TfmMain.acFindAndMarkExecute(Sender: TObject);
begin
  with ActiveFrameEditor.SynEdit Do begin
    If Not Assigned(SearchEngine) then begin
      SearchEngine := TSynEditSearch.Create(ActiveFrameEditor.SynEdit);
      SearchEngine.Options := [ssoReplace, ssoReplaceAll];
    end;
    SearchEngine.Pattern := '';
    Repaint; // Damit alte Markierungen entfernt werden.
    SearchEngine.Pattern := InputBox('Eingabe','Suchbegriff','');
    Repaint; // Damit neue Markierungen gesetzt werden, einmal neu zeichnen.
  end;
end;

Nehme man bei der Zeile SearchEngine.Pattern := InputBox('Eingabe','Suchbegriff',''); statt des Ergebnisses aus der InputBox das Wort von der aktuellen Cursorposition.

Also ungefähr sowas:SearchEngine.Pattern := GetWordAtRowCol(CaretXY);

Die Routine aus dem anderen Thread nutze ich seit Jahren in meinem Editor.

Egal welchen HighLighter ich da gerades nutze, die Suchbegriffe werden farblich hervorgehoben, ohne dass sich diese Hervorhebung und irgendeiner der HighLighter in die Quere kommen.