delphi – 如何用Open Tools API折叠插入区域？

发布时间：2020-12-15 03:50:06 所属栏目：大数据来源：网络整理

导读：我想在编辑视图中插入一个区域,然后折叠该区域. // fEditView: IOTAEditView;var writer: IOTAEditWriter;begin writer := fEditView.Buffer.CreateUndoableWriter; //... writer.Insert('{$REGION ''Documentation''}'#13#10'{$ENDREGION}'); writer := nil

我想在编辑视图中插入一个区域,然后折叠该区域.

// 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;

折叠吗

解决方法

发现由grubby试错:-)

(fEditView as IOTAElideActions).EnableElisions;
(fEditView as IOTAElideActions).EnableElisions;
(fEditView as IOTAElideActions).ElideNearestBlock;

EnableElisions()似乎实际切换了elisions功能.

再次脱口而出,似乎有所期望的效果.有一些不是非常漂亮的屏幕更新.是否可以抑制我不知道.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!