[РЕШЕНО] SynEdit подсветка текщего слова

[mirk]

В Lazarus есть очень удобная возможность - подсветка текущего слова по всему документу.
Как такое сделать в SynEdit?

[mirk]

Нет решения?

[alexs]

Надо смотреть - как сделано в самом лазаре.
Если разберётесь - поделитесь решением.

[eastorwest]

Для ленивых копирую код поста http://www.lazarus.freepascal.org/index.php/topic,17128.msg94093.html#msg94093.
Создать приложение Lazarus, разместить компонент SynEdit1: TSynEdit на форме, добавить модуль SynEditMarkupHighAll в секцию uses. Код обработки события OnCreate:

Код: Выделить всё

procedure TForm1.FormCreate(Sender: TObject);
var
  SynMarkup: TSynEditMarkupHighlightAllCaret;
begin
  SynMarkup := TSynEditMarkupHighlightAllCaret(SynEdit1.MarkupByClass[TSynEditMarkupHighlightAllCaret]);

  SynMarkup.MarkupInfo.FrameColor := clSilver;
  SynMarkup.MarkupInfo.Background := clGray;

  SynMarkup.WaitTime := 100; // millisec
  SynMarkup.Trim := True;     // no spaces, if using selection
  SynMarkup.FullWord := True; // only full words If "Foo" is under caret, do not mark it in "FooBar"
  SynMarkup.IgnoreKeywords := False;
end;
 

[mirk]

Огромное спасибо.
Не дошел еще до поиска на английском форуме, искал в исходниках (добрался только до объявления опции в TAdditionalHilightAttribute).

[alexs]

eastorwest
Спасибо!

[GPcH]

.