Wie drucke ich Text ?

[Karl-Heinz]

Hallo,
wie kann ich " normalen " Text mit unterschiedlichen Fonts und schriftgrößen ausdrucken ? Im Handbuch ist nur ein Memobox Beispiel.
Wenn möglich bitte mit Beispiel.
Dank im vorraus

[Andreas Kosch]

Hallo,

das folgende Beispiel demonstriert den Zugriff auf die Canvas-Eigenschaft <b>Font</b>, um die Schriftart und die Schriftgrösse des Ausdrucks zu setzen:
<pre>
Printer.BeginDoc;
iY:= 100;
iLeft := 100;
{ Überschrift }
Printer.Canvas.Font.Name := 'Arial';
Printer.Canvas.Font.PixelsPerInch:=
GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
Printer.Canvas.Font.Size := 24;
Printer.Canvas.TextOut(iLeft, iY, 'Die Überschrift als Arial 24');
...
</pre&gt

[Karl-Heinz]

Hallo Andreas,
funktioniert soweit super-Danke! Kannst Du mir bitte die Canvas Eigenschaften für Kursiv und Unterstrichen nennen

[Thomas Melchert]

<p>Hallo Karl-Heinz,<br>
<br>
Du meinst das sicher für den Font? Die Stile sind:<br>
<br>
Fett: fsBold;<br>
Kursiv: fsItalic;<br>
Unterstrichen: fsUnderline<br>
Durchstrichen: fsStrikeout<br>
<br>
Gruß Thomas</p&gt

[Thomas Melchert]

<p>Hallo Karl-Heinz,<br>
<br>
Du meinst das sicher für den Font? Die Stile sind:<br>
<br>
Fett: <b>fsBold</b>;<br>
Kursiv: <b>fsItalic</b>;<br>
Unterstrichen: <b>fsUnderline</b>;<br>
Durchstrichen: <b>fsStrikeout</b><br>
<br>
Gruß Thomas</p&gt