RichEdit - formatiert befüllen - wie?

[fboesel]

Hallo,

ich möchte einen RichEdit zeilenweise befüllen, wobei ich einzelne Zeilen (immer nur ganze Zeilen) z.B. Fettschreiben, größere Schrift und/oder rechtsbündig ausgeben will.

Aktuell befülle ich den RichEdit mit RichEdit1.lines.Add('hallo');

Hat jemand ein Stück Code für mich??? :idea:

[DeddyH]

Delphi-Quellcode:

procedure TFormDings.ButtonWuppdiClick(Sender: TObject);
begin
  RichEdit1.Clear;
  RichEdit1.SelAttributes.Style := [fsBold];
  RichEdit1.SelText := 'Zeile 1' + sLineBreak;
  RichEdit1.SelAttributes.Style := [];
  RichEdit1.SelText := 'Zeile 2' + sLineBreak;
  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelText := 'Zeile 3' + sLineBreak;
end;

[fboesel]

danke,
das klappt. - sieht auch recht nett aus.
Nur leider ... ich war der Meinung, ich kann dann einfach mittels Copy & Paste mir den Text markieren und dann in z.B. Word einfügen ....
Bin ich bei dieser Komponente verkehrt?

danke...

[DeddyH]

Das kann je nach Delphi-Version schwierig werden: http://www.entwickler-ecke.de/viewtopic.php?t=111123

[fboesel]

Ha,

Versuch macht klug.

Ich habe jetzt einfach alles markiert. Dann kann ich das Ding einfach in ein offenes
Word-Dokument ziehen und alles steht drinnen!
danke, das wars
:wink: