In SynEdit alle Vorkommen eines Wortes hervorheben

[NormanNG]

Hi,

wie kann man in SynEdit alle Vorkommen des Wortes, auf dem das Caret seht, farblich hervorheben lassen?
Die Lösung sollte unabhängig von anderen, gleichzeitig aktiven Highlightern sein.

Irgendwo habe ich gelesen, das in Synedit so etwas bereits enthalten ist, ich finde aber weder Beispiele noch eine Dokumentation dazu.
Ich versuche es schon einige Zeit, komme aber nicht weiter und brauche eine Schubs in die richtige Richtung :)

[nahpets]

Schau mal bitte hier, ob was für dich brauchbares dabei ist: http://www.delphipraxis.net/139460-s...-tsynmemo.html

[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.
:zwinker:

[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

Delphi-Quellcode:

SearchEngine.Pattern := InputBox('Eingabe','Suchbegriff','');

statt des Ergebnisses aus der InputBox das Wort von der aktuellen Cursorposition.

Also ungefähr sowas:

Delphi-Quellcode:

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.

[NormanNG]

Zitat:

Zitat von nahpets (Beitrag 1364932)

Schau mal bitte hier, ob was für dich brauchbares dabei ist: http://www.delphipraxis.net/139460-s...-tsynmemo.html

das war der richtige Schubs :-D

Ich hab' das jetzt mit einem SynEditPlugin mit einer (zusätzlichen) eigenen SearchEngine drin umgesetzt.
Damit suche ich nach WordAtCursor und zeichne die sichtbaren Fundstellen wie im Beispiel von nahpets.

Danke an alle.