Подсветка синтаксиса в редакторе/вьювере/QuickView?

[dmitrybeloshistov]

Хотелось бы для большего количества языков. Для затравки - SynEdit (куча готовых парсеров) + есть версия под Lazarus. Если есть интерес - могу дать ссылку на универсальный парсер для SynEdit (синтаксис, который парсим - в простом .ini хранится).

Выглядит вот так.

[Laex]

Там не все так просто. Весь SynEdit не затащишь...
Да и рендеринг сейчас идет строкой, а не по отдельному символу
Пока в планах...

[dmitrybeloshistov]

Посмотрю код, может чего и подскажу. То, что на скринах - мое поделие ) Как в принципе и кусочек NDN )

[dmitrybeloshistov]

type
  TEditorPainter = class
  public
    class procedure DrawTextLine(var ARow: TTerminalRow; AStartCol, AWidth: Integer;
      const ALineText: string; AStartCharIndex: Integer; AFg, ABg: TAlphaColor);
    class procedure DrawHexLine(var ARow: TTerminalRow; AWidth: Integer;
      const ALineText: string; AFg, ABg: TAlphaColor);
  end;

implementation

class procedure TEditorPainter.DrawTextLine(var ARow: TTerminalRow; AStartCol, AWidth: Integer;
  const ALineText: string; AStartCharIndex: Integer; AFg, ABg: TAlphaColor);
var
  ColIdx, CharIdx: Integer;
begin
  ColIdx := AStartCol;
  CharIdx := AStartCharIndex;
  while (ColIdx < AStartCol + AWidth) and (ColIdx <= High(ARow)) do
  begin
    if (CharIdx >= 1) and (CharIdx <= Length(ALineText)) then
      ARow[ColIdx].CharValue := ALineText[CharIdx]
    else
      ARow[ColIdx].CharValue := ' ';
    ARow[ColIdx].FgColor := AFg;
    ARow[ColIdx].BgColor := ABg;
    Inc(ColIdx);
    Inc(CharIdx);
  end;
end;

Судя вот по этому коду - нормально все должно прикручиваться. Сам TSynEdit (собственно редактор) - не нужен, нужен только парсер синтаксиса, который вполне себе отдельно от редактора работает. А у парсера есть OnTokenEvent(), который зовется:

OnTokenEvent(Self, tk, Block.BlockID,fLineNumber,GetToken,FTokenPos)

tk- тип токена (комментарий, строка, ключевое слово и т.п.)
BlockID - int (ну это не надо, можно и выбросить - это я делал для включаемых языковых блоков (PAS + ASM например)
LineNumber - номер строки в редакторе (zero based, index в наборе строк)
GetToken - функция парсера, вернет строку символов (токен)
TokenPos - позиция начала токена в строке (текущей)

Весь парсинг умещается в несколько строк:

for LineIdx := 0 to Editor.Lines.Count - 1 do        // перебираем все строки
       begin
         // Передаем строку в хайлайтер
         SynH.SetLine(Lines[LineIdx], LineIdx);
         // Перебираем токены внутри текущей строки
         while not SynH.GetEol do
            begin
              ParsedLineIdx:=LineIdx;
              Attr:=SynH.GetTokenAttribute;            // тут получаем текущий аттрибут (FG/BG) для токена, а позиции ловим в OnTokenEvent
              SynH.Next;                                          // Переходим к следующему токену в строке
            end;
       end;

Ну и собственно в OnTokenEvent() зовем себе отрисовку текста (добавить проверку видимости строки еще надо, но не думаю, что сложно):

if  IsVisibleLine(ParsedLineIdx) then
   DrawTextLine(  var ARow: TTerminalRow;   
                         AStartCol,                          // <--- тут очевидно надо пропихнуть TokenPos 
                         AWidth: Integer;                // <--- или вычислить через GetTextWidth() или тупо Length(Token)  
                         const ALineText: string;     // <--- Token
                         AStartCharIndex: Integer;  // <--- хз, в чем разница между AStartCol и AStartCharIndex, внимательно не вчитывался
                         AFg, ABg: TAlphaColor);    // <--- сюда собственно данные из Attr

[dmitrybeloshistov]

А, пардон. ParsedLineIdx не нужен, есть же LineNumber.