[pavelost]

Здравствуйте! Поискав неплохой Highlighter в интернете, наткнулся на разработку человека под ником "Альт". В принципе, не заметил недоработок, но хотелось бы сделать в нем подсветку комментариев, как в Delphi, но зеленым цветом. Если не сложно, переделайте код из стандартного Highlighter'a в этот.

P.S. подсветка слов здесь осуществляется очень просто:

Код:

uses
  SynHighlighterAny, SynHighlighterAnyAttr;

procedure TForm1.FormCreate(Sender: TObject);
var SynAnySyn : TSynAnySyn;
begin
  SynAnySyn := TSynAnySyn.Create( Self );
  with SynAnySyn.Texts.Add do
  begin
    Keywords := 'TEST;проверка';
    Attr.Style := [ fsBold ];
  end;
  with SynAnySyn.Texts.Add do
  begin
    Keywords := 'DEMO;демонстрация';
    Attr.Foreground := clRed;
  end;
  SynEdit.Highlighter := SynAnySyn;
end;