delphi - Open Tools API を使用して挿入された領域を折りたたむ方法は?

Question

編集ビューにリージョンを挿入してから、このリージョンを折り畳みたいと思います。

// fEditView: IOTAEditView;

var
  writer: IOTAEditWriter;
begin
  writer := fEditView.Buffer.CreateUndoableWriter;
  //...
  writer.Insert('{$REGION ''Documentation''}'#13#10'{$ENDREGION}');
  writer := nil;  // Flush the buffer
  fEditView.Position.GotoLine(lineNo); // go to the line number of the region
  fEditView.Paint;
end;

このコード スニペットは、コード エディターに領域を挿入します。ただし、IDE では、コード エディターでそのような領域を生成するためのアクションが必要です。

IDEにこのアクションを強制する方法はありますか?それから私は使用できます

(fEditView as IOTAElideActions).ElideNearestBlock;

折りたたむには？