Nachfolgend meine Prozedur zum Übertragen des formatierten Textes vom DBrichedit in ein Richedit. Die Eigenschaft 'PlainText' ist bei beiden Komponenten auf false gesetzt. Trotzdem ist nach dem Übertrag nur mehr das Format der ersten Zeile für den ganzen Text gesetzt. Woran kann das liegen?
procedure TForm1.Button5Click(Sender: TObject);
var
S: TStream;
begin
S := TMemoryStream.Create;
try
DBRichEdit1.Lines.SaveToStream(S);
S.Position := 0;
RichEdit1.Lines.LoadFromStream(S);
RichEdit1.Refresh;
finally
S.Free;
end;
end;
Bei Übertag von Richedit in DBRichedit wird die Formatierung richtig gesetzt.
procedure TForm1.Button5Click(Sender: TObject);
var
S: TStream;
begin
S := TMemoryStream.Create;
try
DBRichEdit1.Lines.SaveToStream(S);
S.Position := 0;
RichEdit1.Lines.LoadFromStream(S);
RichEdit1.Refresh;
finally
S.Free;
end;
end;
Bei Übertag von Richedit in DBRichedit wird die Formatierung richtig gesetzt.
Comment