Einzelnen Beitrag anzeigen

Benutzerbild von 3_of_8
3_of_8

Registriert seit: 22. Mär 2005
Ort: Dingolfing
4.129 Beiträge
 
Turbo Delphi für Win32
 
#4

Re: Formatierbares Eingebefeld

  Alt 23. Nov 2005, 18:48
@robinWie: Hilft mir nicht weiter, leider.

@marabu: Danke. Ich habe gefunden, was ich brauchte, aber ich verstehe es noch nicht ganz. Was bedeutet was im einzelnen?

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var MyMS: TMemoryStream;
    MyRTFList : TStringList;
    s1, s2 ,s3 ,s4 : String;
begin
  s1 := 'Fett und grün';
  s2 := 'Kursiv und schwarz';
  s3 := 'Normal und blau';
  s4 := 'Fett und magneta';
  MyRTFList := TStringList.Create;
  MyMS := TMemoryStream.Create;
  try
    MyRTFList.Add('{\rtf1{\fonttbl{\f0 Arial;\f1 Courier;}}');
    MyRTFList.Add('{\colortbl;\red0\green128\blue0;\red0\green0\blue0;\red0\green0\blue255;\red255\green0\blue255;\red255\green0\blue0;}');
    MyRTFList.Add('\pard\plain\fs24');
    MyRTFList.Add('\cf1\b '+s1+'\b0\par');
    MyRTFList.Add('\cf2\i '+s2+'\i0\par');
    MyRTFList.Add('\cf3 '+s3+'\par');
    MyRTFList.Add('\cf4\b '+s4+'\b0\par');
    MyRTFList.Add('\cf2\ul Unterstrich\ul0\par');
    MyRTFList.Add('\f1\fs16 kleine Schrift\par\tab in Courier 8}');
    MyRtfList.SaveToStream(MyMS);
    MyMS.Seek(soFromBeginning,0);
    RichEdit1.PlainText := False;
    RichEdit1.Lines.LoadFromStream(MyMS);
  finally
    MyRTFList.Free;
    MyMS.Free;
  end;
end;
Manuel Eberl
„The trouble with having an open mind, of course, is that people will insist on coming along and trying to put things in it.“
- Terry Pratchett
  Mit Zitat antworten Zitat