Richedit text formatieren

[ph0g]

Guten TAg,
habe mir folgenden Thread durchgelesen und gehofft eine Lösung für mein Problem zu kriegen:
http://www.delphipraxis.net/8604-for...ausgabe-2.html

Undzwar, möchte ich den Text in einem Richedit Formatieren. Habe auch die ganzen RTF Codes, per Stream in die Richedit eingefügt, jedoch ist meine ausgabe dann immer so:

Code:

{ \rtf1  { \fonttbl  { \f0\fswiMeinStream MS Sans Serif;  }  }  { \colortbl\red0\green0\blue0;\red0\green0\blue255;  }  \f0\cf1\fs16 . . . und es geht doch !!! \f0\fs16 }

Allerdings sollte das dann Blau und Fett erscheinen, dies tut es aber nicht...

Mein Code:

Code:

tmpString := tmpString + '{ \rtf1 ';
    tmpString := tmpString + ' { \fonttbl ';
    tmpString := tmpString + ' { \f0\fswiMeinStream MS Sans Serif; ';
    tmpString := tmpString + ' } ';
    tmpString := tmpString + ' } ';

    tmpString := tmpString + ' { \colortbl\red0\green0\blue0;\red0\green0\blue255; ';

    tmpString := tmpString + ' } ';

    tmpString := tmpString + ' \f0\cf1\fs16 . . . und es geht doch !!! \f0\fs16 ';
    tmpString := tmpString + '} ';

    tmpStream := TStringStream.Create(tmpString);
    try
      RichEdit1.PlainText := False;
      RichEdit1.Lines.LoadFromStream(tmpStream) ;
    finally
      tmpStream.Free
    end;

Wollte jetzt den alten Thread nichtmehr ausgraben, deswegen eröffne ich einen neuen.

Grüße,
ph0g

[p80286]

über fett mag man streiten, blau ist die anzeige auf jeden Fall.

könnte es sein, daß Du über Ansi- Unicode- Unterschiede gestolpert bist?

Gruß
K-H

[Andreas L.]

Hast du schon versucht den String direkt an Lines zu übergeben?

Delphi-Quellcode:

RichEdit1.Lines.Text := tmpString;

Wird die Formatierung angezeigt wenn du den String in eine Datei abspeicherst und diese per

Delphi-Quellcode:

RichEdit1.Lines.LoadFromFile('C:\text.rtf');

lädst?