RichEdit Text Rückgängig und Widerherstellen

[Tau]

Hallo Leute

habe noch ein kleines Problem mit dem Rückgängig und Wiederherstellen
vom Text im RichEdit

zur zeit verwende ich den folgenden Code

Delphi-Quellcode:

// Text Rückgängig
procedure TForm1.TB07Click(Sender: TObject);
begin                                                                   
   with cxRichMemo1 do
      if HandleAllocated then SendMessage(cxRichMemo1.InnerMemo.Handle, EM_UNDO, 0, 0)
end;

// Text Wiederherstellen
procedure TForm1.TB08Click(Sender: TObject);
begin                                                                   
   with cxRichMemo1 do
      if HandleAllocated then SendMessage(cxRichMemo1.InnerMemo.Handle, EM_REDO, 0, 0)
end;

bin aber mit dem Ergebnis leider nicht ganz zufrieden.
Beim der Funktion rückgängig wird leider nur ein schritt gemacht.

Gibt es eine Möglichkeit das man mehrere Schritte zurück gehen kann ?

Wenn ja wie währe ich für einen Tipp sehr dankbar.

Mit Grüssen
Tau

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[CalganX]

Hi,
prüf mal mit

Delphi-Quellcode:

sendmessage(RichEdit1.Handle, WM_CANREDO, 0, 0) <> 0 // Redo möglich

ob du überhaupt wieder etwas herstellen kannst!

Chris

[Tau]

Hallo Chris

mit der Anweisung läst sich garnichts wiederherstellen.

Code:

SendMessage(cxRichMemo1.Handle, EM_CANREDO, 0, 0) <> 0

mit <> 0 am schluss gibt es eine Fehlermeldung.

Mit Grüssen
Tau

[CalganX]

Nein. Ich meinte damit fragst du ab, ob du was wiederherstellen kannst.
Dein Source müsste dann also insgesamt so aussehen:

Delphi-Quellcode:

// Text Rückgängig 
procedure TForm1.TB07Click(Sender: TObject); 
begin                                                                   
  if SendMessage(cxRichMemo1.Handle, EM_CANUNDO, 0, 0) <> 0 then
    SendMessage(cxRichMemo1.InnerMemo.Handle, EM_UNDO, 0, 0)
  else ShowMessage('Hier ist nichts mehr; EM_UNDO'); // zur Kontrolle!
end; 

// Text Wiederherstellen 
procedure TForm1.TB08Click(Sender: TObject); 
begin                                                                     if SendMessage(cxRichMemo1.Handle, EM_CANREDO, 0, 0) <> 0 then
    SendMessage(cxRichMemo1.InnerMemo.Handle, EM_REDO, 0, 0)
  else ShowMessage('Hier ist nichts mehr; EM_REDO'); // zur Kontrolle!
end;

Chris

[Tau]

Hallo Chris :D

habe es ausprobiert mit dem Selben Ergebnis immer
ein Schritt Vor und einer Zurück mehr ist leider nicht drin.

Mit Grüssen
Tau

[CalganX]

Hi,
(nur zur Sicherheit!)
du hast aber mehrmals geschrieben und versucht, oder?!

RichEdit hat eine eigene Funktion "Undo" (allerdings kein Redo). AFAIK kann die mehrmals. Aber genau weiß ich es leider auch nicht.

Chris

[Tom]

Zitat:

Zitat von Chakotay1308

RichEdit hat eine eigene Funktion "Undo" (allerdings kein Redo). AFAIK kann die mehrmals.

Kann die Funktion. Ein Schritt ist jeweils zurück bis zur letzten manuellen Positionierung (Up, Down, ..., Maus) des Cursors.

[Tau]

Hallo Chris

Habe mehr mals geschrieben und gelöscht. 8)

Die funktion "UNDO" bezieht sich auf den Ganzen Text im RichEdit

Mit Grüssen
Tau

[CalganX]

Hi,
was bitte ist InnerMemo? :gruebel: :shock:
Und was ist das dann für ein RichEdit? Ich bin ein wenig verwirrt. :(

Sonst guck mal, ob dieses InnerMemo vielleicht auch eine Undo-Methode hat!

Chris

PS: Das war mir vorhin gar nicht aufgefallen, sorry.

[fkerber]

Hi!

Ich hatte auch dieses Problem bei einem Richedit und habe es auf folgende Weise gelöst:

Mit einer Art Komponente von torry, die mehrfaches Undo / Redo anbietet, aber trotzdem mit dem "normalen" Richedit funktioniert!

Ist etwas schwer zu erklären und erfordert auch etwas Einarbeitung, aber wenns mal geht ist echt gut!

Weiß leider den genauen Namen nicht mehr. Es muss irgendwie was mit
"rak*" sein. Musst du mal bei Torry gucken :o

Könnte dir eventuell das Package auch schicken. Kannst dich ja mal in Icq melden!

Ciao fkerber