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)

markieren

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:

markieren

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.

SynEdit Undo/Redo

SynEdit Undo/Redo

Re: SynEdit Undo/Redo

Re: SynEdit Undo/Redo

Re: SynEdit Undo/Redo

Re: SynEdit Undo/Redo

Re: SynEdit Undo/Redo

Re: SynEdit Undo/Redo

Re: SynEdit Undo/Redo

Re: SynEdit Undo/Redo

Re: SynEdit Undo/Redo

Forumregeln

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#2 Re: SynEdit Undo/Redo 7. Feb 2005, 06:01 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? Thomas
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#3 Re: SynEdit Undo/Redo 7. Feb 2005, 08:57 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;
	Zitat

toms (CodeLib-Manager) Registriert seit: 10. Jun 2002 4.648 Beiträge Delphi XE Professional	#4 Re: SynEdit Undo/Redo 7. Feb 2005, 09:05 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? Thomas
	Zitat

mirage228 Registriert seit: 23. Mär 2003 Ort: Münster 3.750 Beiträge Delphi 2010 Professional	#5 Re: SynEdit Undo/Redo 7. Feb 2005, 09:08 Ja, das geht glaube ich mit (ob die Befehle genauso sind, weiss ich nicht) markieren Delphi-Quellcode: SynEdit.UndoList.BeginBlock; // Text ändern... SynEdit.UndoList.EndBlock; mfG mirage228 David F. May the source be with you, stranger. PHP Inspection Unit (Delphi-Unit zum Analysieren von PHP Code)
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#6 Re: SynEdit Undo/Redo 7. Feb 2005, 09:35 Spitze, vielen Dank, es klappt einwandfrei.
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#7 Re: SynEdit Undo/Redo 8. Feb 2005, 10:11 Hmm, geht doch nicht einwandfrei. Es geht nur für Form1.SynEdit1.SelText := Edit2.Text; So geht es nicht: markieren 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?
	Zitat

Sharky Registriert seit: 29. Mai 2002 Ort: Frankfurt 8.251 Beiträge Delphi 2006 Professional	#8 Re: SynEdit Undo/Redo 8. Feb 2005, 10:40 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. Stephan B. "Lasst den Gänsen ihre Füßchen"
	Zitat

Matze (Co-Admin) Registriert seit: 7. Jul 2003 Ort: Schwabenländle 14.929 Beiträge Turbo Delphi für Win32	#9 Re: SynEdit Undo/Redo 8. Feb 2005, 10:41 Vielen Dank für die Erklärung, weißt du auch, wie man das umgehen kann?
	Zitat