richedit formatieren

[Die Muhkuh]

Ob ihn das nach vier Jahren noch interessiert?

[sgbSoftwareEntwickler]

Zitat von Die Muhkuh:

Ob ihn das nach vier Jahren noch interessiert?

Ja, interessiert.

Vielen Dank user0815

[Gonzo123]

dito 8)

auch wenns den Ursprungsposter vermutlich nicht mehr jucken wird - es gibt noch genug andere (RichEdit-)Noobs auf dieser Welt

[S.pas.s]

Ich fands interessant und solange es Google findet, ist es für andere auch wertvoll.

Ich habs ausprobiert und fand, nachdem ich mich gefragt hatte, wozu das

"RichEdit1.ClearSelection;"

eigentlich da ist, dass es gar nicht nötig ist. Der Code geht genauso:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.SelText := 'Text rot ';

  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelText := 'Text blau ';

  RichEdit1.SelAttributes.Color := clGreen;
  RichEdit1.SelText := 'Text schwarz';

  RichEdit1.Lines.Append('');

  RichEdit1.SelAttributes.Color := clBlack;
  RichEdit1.SelAttributes.Style := [fsBold];
  RichEdit1.SelText := 'Text FETT';

  RichEdit1.SelAttributes.Color := clMaroon;
  RichEdit1.SelAttributes.Style := [fsUnderline];
  RichEdit1.SelText := ' ENDE';

  RichEdit1.Lines.Append('');
end;

[Volker Z.]

Hallo,

ich weiß nicht, ob ich Dein Problem richtig verstanden habe; Du kannst es mal so versuchen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    RichEdit1.Lines.BeginUpdate;
    RichEdit1.SelStart  := 0;
    RichEdit1.SelAttributes.Style := [];
    RichEdit1.SelText := sLineBreak;
    RichEdit1.Lines.Insert(0, Label1.Caption + ' ' + Edit1.Text);
    RichEdit1.Lines.Insert(1, Label2.Caption + ' ' + Edit2.Text);
    RichEdit1.Lines.SaveToFile('D:\richedit-datei.rtf');
  finally
    RichEdit1.Lines.EndUpdate
  end
end;

Gruß

[DieFliege]

Hallo Volker,

vielen Dank für Deine Hilfe! Nun funktioniert es wie es soll. Nun muss ich nur noch verstehen, was genau da passiert, aber dafür gibts die Hilfe und das Internet ^^

Dir noch einen schönen Abend.

LG Micha

[Volker Z.]

Hallo,

Zitat:

[....] Nun muss ich nur noch verstehen, was genau da passiert, aber dafür gibts die Hilfe und das Internet ^^

Na, das nenn ich doch mal 'ne löbliche Einstellung! Wenn 's trotzdem noch Fragen gibt, Du weißt ja: DP hilft.

Zitat:

Dir noch einen schönen Abend.

Auch wenn es jetzt schon fast vorbei ist: Dir auch.

Gruß