UndoList bei Drag 'n Drop im SynEdit

[Robert_G]

In meinem Programm kann der User Spaltennamen aus einer Liste von verfügbaren Spalten per Drag'n Drop in einen Filter (SynMemo) ziehen.
Das funktioniert auch einwandfrei. Doch wenn man mehrere Spalten "rübergezogen" hat und dann einmal auf Undo klickt/[Strg] + [Z] drückt, werden alle eingefügten Spalten entfernt. Nicht nur die letzte. :gruebel:

Der Code steht im DragDrop-Envent des SynMemos:

Delphi-Quellcode:

  ...
  smSender.SelStart := absPos;
  smSender.SelEnd   := absPos;

  smSender.UndoList.BeginBlock;
  Try
    For i := 1 To Length(NewText) Do
      smSender.ExecuteCommand(ecChar, NewText[i], Nil);
  Finally
    smSender.UndoList.EndBlock;
    smSender.SetFocus;
  End;
  ...

Ich dachte mit...

Delphi-Quellcode:

UndoList.BeginBlock;
  ExecuteCommand...
UndoList.EndBlock;

...bekomme ich die Änderungen als eine Gruppe in die UndoList, die dann mit einem Undo alles zwischen BeginBlock & EndBlock rückgängig macht.

Nachtrag: Ich hoffe jetzt ist's verständlicher :wink:

[Benedikt]

Hi,

vielleicht hilft dir die Eigenschaft eoGroupUndo unter Options weiter.

[Robert_G]

:wall: das war ja in allen SynMemos auf true...
Hab's gerade auf False gesetzt und schon geht's -> thx :thuimb: