RichEdit Format zerstört wegen Zeilenumbruch

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