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]