Das ist hier auch so, ja.
Und es geht noch weiter:
Das Resize scheint das Problem auch nicht komplett zu beheben. Wenn du Ausschneiden, Undo, Resize machst und dann wieder die 4 Zeilen ausschneidest, wird auch nicht aktualisiert und die Zeilen bleiben schlicht leer.
// EDIT:
Hinter UnDo wird ja FMX.Memo.Style.TEditActionStack.RollBackAction ausgeführt. Dort sieht noch alles richtig aus und es wird FOwner.Model.InsertAfter aufgerufen, wobei der einzufügende String aus mehreren Zeilen besteht, nämlich die ausgeschnittenen Zeilen. Dort wird dann einfach der Zeileninhalt neu gesetzt. Auf den String mit Zeilenumbrüchen drin. Dabei muss dann etwas schief gehen.
Ich habe daraufhin einfach nur eine Zeile mit Zeilenumbrüchen gesetzt. Auch dabei wird die Zeilenanzahl nicht aktualisiert. Es gibt aber keine Grafikfehler.
Delphi-Quellcode:
Memo1.Lines[4] := 'aaa'#13#10'bbb'#13#10'ccc'#13#10'ddd';
//.
Interessant dabei:
Der Zeileninhalt ist auch wirklich nur in dieser einen Zeile. Mehrfaches Ausführen dieses Codes ändert am Inhalt nichts mehr.