SynEdit Undo/Redo

[Matze]

Hi!

Im SynEdit kann man ja per

SynEdit1.Undo; und

SynEdit1.Redo; Die letzte Aktion rückgängig machen oder wiederholen. Dies funktioniert jedoch nur, wenn ich direkt im SynEdit schreibe. Füge ich Code per Button o.Ä. ins SynEdit, dann geht das nicht.

Wie kann ich das Problem umgehen? Manuell alles mitschreiben, was verändert wurde, halte ich für übertrieben.

[toms]

Zitat:

Die letzte Aktion rückgängig machen oder wiederholen. Dies funktioniert jedoch nur, wenn ich direkt im SynEdit schreibe. Füge ich Code per Button o.Ä. ins SynEdit, dann geht das nicht.

Bei mir geht's auch dann. Wie fuegst du z.B Text ein?

[Matze]

Zitat von toms:

Bei mir geht's auch dann. Wie fuegst du z.B Text ein?

Mit StringReplace oder auch so:

Form1.SynEdit1.SelText := Edit2.Text;

[toms]

StringReplace werden anscheinend nicht in die Undo, Redo Liste genommen.
Nur was der User macht (Copy, Paste, Cut...)

Vielleicht kann man sich aber in die Undo, Redo Listen einklinken?

[mirage228]

Ja, das geht glaube ich mit (ob die Befehle genauso sind, weiss ich nicht)

Delphi-Quellcode:

SynEdit.UndoList.BeginBlock;
// Text ändern...
SynEdit.UndoList.EndBlock;

mfG
mirage228

[Matze]

Spitze, vielen Dank, es klappt einwandfrei.

[Matze]

Hmm, geht doch nicht einwandfrei.

Es geht nur für
Form1.SynEdit1.SelText := Edit2.Text; So geht es nicht:

Delphi-Quellcode:

  Form1.SynEdit1.UndoList.BeginBlock;
  Form1.SynEdit1.Text := StringReplace(Form1.SynEdit1.Text, Edit1.Text, Edit2.Text, [rfReplaceAll]);
  Form1.SynEdit1.UndoList.EndBlock;

Woran liegt das?

[Sharky]

Zitat von Matze:

...Woran liegt das?

Hai Matze,
ich habe mir mal eben den QuellCode angeschaut. Es scheint so das z.B. bei SelText intern ein BeginUndoBlock; aufgerufen wird. Bei Zugriff auf .Lines.Text geschieht dies leider nicht.

[Matze]

Vielen Dank für die Erklärung, weißt du auch, wie man das umgehen kann?

[Matze]

Moin! Ich pushe mal nach der doch recht kurzen Zeit.

Ich bin nun wieder auf das Problem gestoßen und es ist tatsächlich so, wie Sharky es geschrieben hat. UndoList.BeginBlock; und UndoList.EndBlock; reagieren wirklich nur auf SelText.

Wenn ich sonst etwas einfüge, ohne, dass Text markiert war, funktioniert Undo nicht mehr. Ich dachte schon, ich markiere den Buchstaben neben dem Caret intern, ändere das, wobei der Buchstabe überschrieben wird und anschließend füge ich diesen wieder ein. Nur ist das für mich eine zu schlampige Lösung, die ich nicht verwenden möchte.