TRichEdit Standard-Formatierung restaurieren

[marabu]

Hallo Andreas,

du machst nichts falsch, aber du machst etwas ganz anderes als ich. Das Verhalten bei Lines.Add() ist etwas schwer zu verstehen. Darüber hinaus verhalten sich TRichEdit und TJvRichEdit nicht gleich, weshalb ich SelText verwende. Das kannst du auch:

Delphi-Quellcode:

function FooterText(recipients: TStrings): string;
var
  i: Integer;
begin
  with TStringList.Create do
  try
    Add('');
    Add('---');
    Add('Verteiler:');
    for i := 0 to Pred(recipients.Count) do
      Add('    ' + recipients[i]);
    Result := Text;
  finally
    Free;
  end;
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  recips: TStrings;
begin
  recips := TStringList.Create;
  with recips do
  begin
    Add('Andreas');
    Add('defede');
    Add('marabu');
  end;

  with RtfEdit do
  begin
    SelStart := MaxInt;
    SelAttributes.Assign(DefAttributes);
    SelText := FooterText(recips);
  end;

  recips.Free;
end;

Freundliche Grüße