SynEdit Undo/Redo

[Matze]

:hi: Hi!

Im SynEdit kann man ja per

Delphi-Quellcode:

SynEdit1.Undo;

und

Delphi-Quellcode:

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:

Zitat von toms

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

Mit StringReplace oder auch so:

Delphi-Quellcode:

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. :thumb:

[Matze]

Hmm, geht doch nicht einwandfrei. :roll:

Es geht nur für

Delphi-Quellcode:

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:

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. :mrgreen:

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.

[Dax]

Leite dir doch von TSynEdit eine Komponente ab, die das hat was du brauchst: BeginUndoBlock beim Zugriff auf Lines.Text ;)

[Matze]

Danke Dax, das wäre eine Möglichkeit. Nur muss ich zugeben, habe ich eigentluich nicht vor, mir meine Komponenten noch selbst zu basteln. :roll:

Ist es denn so, dass es mit dem SynEdit an sich nicht funktionieren kann?

[Delphi-Freak]

Hi!

Bin jetzt auf das gleiche Problem gestoßen, aber zumindestens weiß ich jetzt diese ^^ Methode mit der Selektion. Das Problem dürfte sein, herauszufinden, was sich wirklich in den Lines geändert hat. Ich glaube, der speichert in der UndoList nämlich nur, was sich geändert hat, nicht immer die ganze Datei. Sonst wäre das auch viel zu Speicheraufwänig und unperformant. Soweit habe ich mir das halt zusammengereimt. Aber wenn du mal diese Erweiterung schreiben solltest, die die beiden Versionen vergleicht und demnach dann was in die UndoList schreibt, dann lass mich auch davon wissen :stupid:

ReadUl8er, Gerhard

[fkerber]

Hi!

Auch wenn es nicht ganz passt evtl. möchte ich mal auf das Tutorial auf www.dsdt.info hinweisen, dass Undo/Redo komplett selbst implementiert.

Vielleicht ist es ja nützlich!


Ciao Frederic

[Delphi-Freak]

Danke mal, aber ich bleibe trotzdem lieber bei meinem Synedit und mache das über SelText - ist einfacher :mrgreen: