Formatieren von Text während der Ausgabe

[mschaefer]

Moin, moin,

diesmal ohne dfm-s und dafür mit Lösung. Dafür brauchen wir aus unserern Kochecke ein Richedit und einen einsamen Button auf einem Formular. Der folgende Quelltext kann dann in das OnClick - Ereignis des Buttons gelget werden. Denke, dass dann auch der Schritt die Formatierung in die Variable zu legen ein lösbares Problem ist:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

{ Formatierte Textausgabe über ein Richedit   }
{ mit RTF-Formaten                            }
{ Grüße aus Hannover, Martin at calres.de     }
var
  tmpString : string;
  tmpStream : TStringStream;
begin
    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;
end;

Kennt jemand eine Übersicht über den RTF-Satz den Delpi-Richedit versteht. Vielleicht könnte man so wirklich eine Formatierte Textausgabe mit verschiednenen Variablenbelegungen ermöglichen.....
Mandumoal, Deine Idee mit der Funktion gefällt mir übrigens, denn die Formatierung über Selektierung ist wirklich leidlich elend ...

Grüße aus der Stadt an langen "Leine"
// Martin




[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]