delphi – 删除和插入行时如何更新SynMemo撤消/重做列表

发布时间：2020-12-15 09:45:19 所属栏目：大数据来源：网络整理

导读：如果删除一行然后在TSynMemo中插入一个新行,如何更新UndoList和RedoList以便可以使用SynMemo.Undo撤消更改？ SynMemo1.BeginUpdate;iLineIndex := SynMemo1.Lines.IndexOf( SynMemo1.LineText );SynMemo1.Lines.Delete( iLineIndex );iStartTag := SourceSty

如果删除一行然后在TSynMemo中插入一个新行,如何更新UndoList和RedoList以便可以使用SynMemo.Undo撤消更改？

SynMemo1.BeginUpdate;
iLineIndex := SynMemo1.Lines.IndexOf( SynMemo1.LineText );
SynMemo1.Lines.Delete( iLineIndex );
iStartTag := SourceStyleComboBox1.CurText;
iEndTag := SourceStyleComboBox1.CurText;
System.Insert( '/',iEndTag,2 );
iHTML := iStartTag + iElement + iEndTag;  
SynMemo1.Lines.Insert( iLineIndex,iHTML );
SynMemo1.EndUpdate;

编辑
我尝试了这个但是undo和redo无法正常工作……我的意思是在撤消之后线路没有恢复到动作之前的状态.

StartOfBlock.Line := SynMemo1.CaretY;
StartOfBlock.Char := 0;
EndOfBlock.Line := SynMemo1.CaretY;
EndOfBlock.Char := Length( iHTML );
SynMemo1.UndoList.BeginBlock;
SynMemo1.UndoList.AddChange(crInsert,StartOfBlock,EndOfBlock,iHTML,smNormal);
SynMemo1.UndoList.EndBlock;
SynMemo1.RedoList.BeginBlock;
SynMemo1.RedoList.AddChange(crInsert,smNormal);
SynMemo1.RedoList.EndBlock;

我找不到有关设置StartOfBlock和EdifOfBlock参数的任何指导.应该组合两个“动作”,以便“组合”动作只有一个撤消和重做 – “插入和删除”选项eoGroupUndo = True.

解决方法

虽然我没有使用过TSynMemo,但我确实使用了TSynEdit,我认为处理方式类似.

这是我如何做BlockUndo更新：

ActiveEditor.SynEditor.BeginUpdate;
try
  //This tells SynEdit to mark all upcoming changes as a single block
  ActiveEditor.SynEditor.BeginUndoBlock;  
  try

    {Any change made here is recorded for undo purposes}
    {Buffer changes (Adding/Editing/Deletion of lines),caret pos changes,etc}

  finally
    //This completes the undo block.
    ActiveEditor.SynEditor.EndUndoBlock;
  end;
finally
  ActiveEditor.SynEditor.EndUpdate;
end;

我相信BeginUndoBlock / EndUndoBlock功能驻留在TSynEdit上,但由于TSynMemo实际上来自TSynEdit,这应该仍然有效.

（编辑：李大同）

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