TRichEdit Standard-Formatierung restaurieren

[Andreas H.]

Hallo,

ja genau, so habe ich mir das vorgestellt. Werde es heute nachmittag gleich mal probieren.

Danke, Andreas

[Andreas H.]

Hallo,

ich kriegs nicht hin:

Delphi-Quellcode:

procedure TNewMessageForm.FormCreate(Sender: TObject);
begin
  // Design-Einstellungen retten
  FDefAttributes:=TjvTextAttributes.Create(RTFEdit,atDefaultText);
  FDefAttributes.assign(RTFEdit.DefAttributes);
end;

procedure TNewMessageForm.doSendMsg(ReciepNames:TStringList);
var
  i:integer;
  DocList,ReciepList:TIntegerList;
begin
  try
    // Einstellungen restaurieren
    RTFEdit.SelStart := MaxInt;
    RTFEdit.SelAttributes.Assign(FDefAttributes);

    // ggf. Verteiler anfügen
    if CBVerteiler.Checked then
    begin
      // Verteiler anfügen
      RTFEdit.Lines.Add(' ');
      RTFEdit.Lines.Add('------------------------');
      RTFEdit.Lines.Add('Verteiler:');
      for i:=0 to ReciepNames.Count-1 do
        RTFEdit.Lines.Add('    '+ReciepNames.Strings[i]);
    end;
...
end;

Was mache ich denn falsch?

Gruß Andreas

[defede]

Ich würde dir empfehlen den Text erst einzufügen und dann die Selektion darauf und dann
erst die Formatierung drauflegen. Ich denk du machst es einfach zu früh.

[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

[Andreas H.]

Hallo,

danke, so geht es.

Und ich hab mal wieder etwas über die Funktionsweise von Komponenten gelernt.

Gruß Andreas