RichEdit Format zerstört wegen Zeilenumbruch

[Popov]

@sk0r

Ich schätze du kommst da ein wenig durcheinander mit den Zeilen, d. h. du ermittelst evtl. die falsche Zeile. Wenn ich mir das Bild angucke willst du eher die Uhrzeit und Benutzer fett haben. In der Zeile verteilt sich aber alles über drei Zeilen, du gehst aber nur eine Zeile zurück. Evtl. stimmt der Ansatz nicht. Zuerst schreiben und dann nachträglich formatieren, da kann das schief gehen.

Durchdenke mal dein Konzept.

[DeddyH]

Zitat von Popov:

Zuerst schreiben und dann nachträglich formatieren, da kann das schief gehen.

Yes, Sir
Man kann das auch umdrehen (sinnfreies Beispiel mit 2 Buttons und etwas DRY-Ignore):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.Lines.Add('');
  RichEdit1.SelAttributes.Color := clGreen;
  RichEdit1.SelAttributes.Style := [fsBold];
  RichEdit1.SelText := 'Ein Text in grün und hier noch ein wenig mehr, damit WordWrap auch greift';
  RichEdit1.SelLength := 0;
  RichEdit1.SelAttributes.Assign(RichEdit1.DefAttributes);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RichEdit1.Lines.Add('');
  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.SelAttributes.Style := [fsBold, fsItalic];
  RichEdit1.SelText := 'Ein Text in rot und italic und hier noch ein wenig mehr, damit WordWrap auch greift';
  RichEdit1.SelLength := 0;
  RichEdit1.SelAttributes.Assign(RichEdit1.DefAttributes);
end;

[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.