Einzelnen Beitrag anzeigen

Benutzerbild von Christoph
Christoph

Registriert seit: 23. Jan 2004
Ort: Heidelberg
48 Beiträge
 
Delphi 6 Personal
 
#10

Re: RichEdit Textformatierung

  Alt 29. Mär 2004, 15:36
Hallo Xeno-Sebi,

habe mein Problem mit Deinem Tipp gelöst. Vielen Dank.
Ist sogar noch etwas einfacher als gedacht, denn das schließende '}' beendet automatisch das bold tag ('{\b fetter Text}').

Sieht jetzt so aus:
Delphi-Quellcode:
var
  TempRichEdit:TRichEdit;

begin
  // rtf schreiben
  TempRichEdit:=TRichEdit.Create(Form1);
  TempRichEdit.Text:='{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil MS Sans Serif;}}\viewkind4\uc1\pard\f0\fs16';
  TempRichEdit.Text:=TempRichEdit.Text+StringReplace(MEINSTRINGTEXT,'{', '{\b ', [rfIgnoreCase,rfReplaceAll]);

  // Ausgabe formatiert aus dem temporären RichEdit
  Form1.RichEdit.Text:=TempRichEdit.Text;
Herzlichen Dank nochmals!

Gruß,
Christoph
'Bist 900 Jahre alt wirst aussehen Du nicht gut!'
  Mit Zitat antworten Zitat