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


:coder: :coder: :coder:

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

[mschaefer]

Hallo fkerber

Du, der Fehler bei Dir liegt daran, das das beigelegte Fieli ini.rtf
wahrscheinlich vom Server gefiltert wurde. Hab nicht aufgepasst, dass
der Server nur bestimmte Dateierweiterungen durchläßt. Du kannst
aber einfach eine leere ini.rtf mit Notepad erstellen

So long // Martin

[mandumoal]

Hi mschaefer!

Ich habe jetzt mal nachvollzogen was dein Programm was ich nicht benutzen konnte machen hätte sollen und selbst eins gemacht.
(Ich denke das ist was du auch gemacht hast)
Anhand solch eines Programmes kannst du doch sämtliche RTF-Formatierungsmöglichkeiten ausprobieren!

mfg mandumoal

[fkerber]

Hi mschaefer!

Nee, die init.rtf war im Archiv dabei! Habe jetzt nochmal mit Delphi 6 probiert. Aber immer noch das selbe!
Das Formular wird mir gar nicht angezeigt (in der Entwicklungsumgebung)! Nur der Quellcode!
Da ist wohl irgendwas schief gelaufen!

Vielleicht kann ja mal noch jemand anders das Teil runterladen und ausprobieren!

Ciao fkerber

[mschaefer]

Hallo Fkerber,

nimm das von Mandumoal, das mach genau das, was ich auch wollte.
Weiss der Geier wo da der Haken war.
Denke das Problem ist vom Prinzip her gelöst.


Hi Mandumoal,

Genau das mit dem Nachforschen habe ich auch für die Beispielroutine
gemacht. Aber vielleicht gibt es da auch noch eine Übersicht, denn RTF-ist kein Firmeneigenes Format. Das wird doch schon recht lange auch unter Unix eingesetzt.

Vielleich weiß jemand anderes noch eine Quelle für die RTF-Formatierung?


Grüße and so long // Martin