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.

[Popov]

Da ich in den letzten Tagen zufällig mit RichEdit gearbeitet habe, vielleicht eine Idee:

Code:

<[18:15:48] (Chatter)> Hallo

Zuerst schreiben, dann Anfang und Ende finden dank < und > finden, fett stellen und Zeichen entfernen. Klappt auch gut. Wobei ich das hier gleich "richtig" machte

Code:

<b>[18:15:48] (Chatter)</b> Hallo

aber simpler geht auch.

[sk0r]

So könnte man dynamisch Wunschformatiertags verwenden. Auch 'ne nette Idee.