Hallo,
 Krumnix hat folgendes geschrieben: |
...Ist es Möglich, den Text schon vorher zu formatieren und dann an das Richedit zu übergeben? Wenn ja, wie?
Oder gibt es da was anderes?... |
es ist möglich und es gibt auch was anderes
erst mal die anderen Möglichkeiten:
den Text im Richedit formatieren 
Stichwort "SelAttributes"
den Text direkt auf den Drucker Stichwort "printer.Canvas"
Text vorher formatieren und an das Richedit zu übergeben.
Hier ein Beispielcode zum Erweitern
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| 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; |
Ausdrucken
"RichEdit.Print"
