RichEdit Format zerstört wegen Zeilenumbruch

[sk0r]

Ich hatte vorher auch mal SelText benutzt. Da ging was nicht, aber der Fehler war banal. Hatte nur nicht dran gedacht.

Falls jemand die Lösung interessiert:

Delphi-Quellcode:

procedure reAddChatText(coRichEdit: TJvRichEdit; szPreText: String; szPostText: String);
var
  oldStyles: TFontStyles;
begin
  with coRichEdit do
  begin
    oldStyles := SelAttributes.Style;

    SelAttributes.Style := [fsBold];

    SelText := szPreText;
    SelLength := 0;

    SelAttributes.Style := oldStyles;

    SelText := ' ' + szPostText + #13#10;
    SelLength := 0;
  end;
end;

Vielen dank noch mal an euch.