delphi - SynEdit:如何在给定开始和停止位置的情况下对多个文本区域进行背景突出显示？

Question

使用:Delphi XE2，Windows VCL 表单应用程序，32 位

我正在使用 SynEdit 控件来显示文本。我已经在使用 TSynHTMLSyn 语法荧光笔和控件来正确突出显示 HTML 和 JS 代码。

我还对该文本(使用 Angus Johnson 的 TDiff)与另一个版本的文本进行了比较，以查找:删除、添加和更改。我需要用不同的颜色突出显示每种类型的更改，即红色表示删除，蓝色表示添加，绿色表示更改。

我的问题:

1. 可以实现吗？
2. 如果是，那么如何？

TIA。

Answer 1

尝试使用 TSynEdit.onSpecialLineColors 事件，例如

procedure TfmRunScript.EditorSpecialLineColors(Sender: TObject;
  Line: Integer; var Special: Boolean; var FG, BG: TColor);
begin
 if Line = ErrorLine then
  begin
   Special := True;
   BG := clMaroon;
   FG := clWhite;
  end;
end;