delphi - 如何使用 OpenToolsAPI 在源代码编辑器中突出显示特定行

Question

是否可以像 Delphi IDE 在突出显示编译器错误时那样突出显示活动编辑器窗口中的特定行？

Answer 1

如果可以在最顶层的编辑器中转到某一行，那么试试这个：

procedure GotoLine(LineNumber: Integer);
var
  EditorServices: IOTAEditorServices;
  Buffer: IOTAEditBuffer;
  Position: IOTAEditPosition;
begin
  if not Supports(BorlandIDEServices, IOTAEditorServices, EditorServices) then
    Exit;
  Buffer := EditorServices.TopBuffer;
  if not Assigned(Buffer) then
    Exit;
  Position := Buffer.EditPosition;
  if not Assigned(Position) then
    Exit;
  Position.GotoLine(LineNumber);
  Buffer.TopView.Paint;
end;