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.