Image ausdrucken

[Peter Hennek]

Hallo,

ich habe 3 Delphibücher. In keinem wird diesen wird die Ausgabe auf den Drucker nur spärlich

oder überhaupt nicht behandelt. Deshalb meine Frage:

Wie kann ich ein Image ausdrucken, in das ich vorher Linien gezeichnet habe.

Vielen Dank für Hinweise

ph

[Bernhard Berger]

Am einfachsten ist, du zeichnest die Linien noch einmal auf dem Printer-Canvas, z.B. so:<p>
<code><pre>
<font face="Courier New"><font color="#000080"><b>unit</b></font> Unit1<font color="#FF0000">;</font>

<font color="#000080"><b>interface</b></font>

<font color="#000080"><b>uses</b></font>
Windows<font color="#FF0000">,</font> Messages<font color="#FF0000">,</font> SysUtils<font color="#FF0000">,</font> Classes<font color="#FF0000">,</font> Graphics<font color="#FF0000">,</font> Controls<font color="#FF0000">,</font> Forms<font color="#FF0000">,</font> Dialogs<font color="#FF0000">,</font> Printers<font color="#FF0000">,</font>
StdCtrls<font color="#FF0000">;</font>

<font color="#000080"><b>type</b></font>
TForm1 <font color="#FF0000">=</font> <font color="#000080"><b>class</b></font><font color="#FF0000">(</font>TForm<font color="#FF0000">)</font>
Button1<font color="#FF0000">:</font> TButton<font color="#FF0000">;</font>
<font color="#000080"><b>procedure</b></font> Button1Click<font color="#FF0000">(</font>Sender<font color="#FF0000">:</font> TObject<font color="#FF0000">)</font><font color="#FF0000">;</font>
<font color="#000080"><b>private</b></font>
<font color="#008000"><i>{ Private-Deklarationen }</i></font>
<font color="#000080"><b>public</b></font>
<font color="#008000"><i>{ Public-Deklarationen }</i></font>
<font color="#000080"><b>end</b></font><font color="#FF0000">;</font>

<font color="#000080"><b>var</b></font>
Form1<font color="#FF0000">:</font> TForm1<font color="#FF0000">;</font>

<font color="#000080"><b>implementation</b></font>

<font color="#008000"><i>{$R *.DFM}</i></font>

<font color="#000080"><b>procedure</b></font> TForm1<font color="#FF0000">.</font>Button1Click<font color="#FF0000">(</font>Sender<font color="#FF0000">:</font> TObject<font color="#FF0000">)</font><font color="#FF0000">;</font>
<font color="#000080"><b>var</b></font>
i<font color="#FF0000">:</font> Integer<font color="#FF0000">;</font>
<font color="#000080"><b>begin</b></font>
Printer<font color="#FF0000">.</font>Title <font color="#FF0000">:=</font> <b>'Linien'</b><font color="#FF0000">;</font> <font color="#008000"><i>// Druckertitel (erscheint z.B. im Druckmanager)</i></font>
Printer<font color="#FF0000">.</font>BeginDoc<font color="#FF0000">;</font> <font color="#008000"><i>// Neues Dokument erstellen</i></font>

<font color="#008000"><i>// Linien in eine Schleife &Uuml;ber die ganze Seite verteilt zeichnen...</i></font>
<font color="#000080"><b>for</b></font> i <font color="#FF0000">:=</font> <b>1</b> <font color="#000080"><b>to</b></font> <b>100</b> <font color="#000080"><b>do</b></font> <font color="#000080"><b>begin</b></font>
Printer<font color="#FF0000">.</font>Canvas<font color="#FF0000">.</font>MoveTo<font color="#FF0000">(</font><b>0</b><font color="#FF0000">,</font> <b>0</b><font color="#FF0000">)</font><font color="#FF0000">;</font>
Printer<font color="#FF0000">.</font>Canvas<font color="#FF0000">.</font>LineTo<font color="#FF0000">(</font>Trunc<font color="#FF0000">(</font><font color="#FF0000">(</font>Printer<font color="#FF0000">.</font>PageWidth <font color="#FF0000">/</font> <b>100</b><font color="#FF0000">)</font> <font color="#FF0000">*</font> i<font color="#FF0000">)</font><font color="#FF0000">,</font> Printer<font color="#FF0000">.</font>PageHeight<font color="#FF0000">)</font><font color="#FF0000">;</font>
<font color="#000080"><b>end</b></font><font color="#FF0000">;</font> <font color="#008000"><i>// End For</i></font>

Printer<font color="#FF0000">.</font>EndDoc<font color="#FF0000">;</font> <font color="#008000"><i>// Druck starten</i></font>
<font color="#000080"><b>end</b></font><font color="#FF0000">;</font>

<font color="#000080"><b>end</b></font><font color="#FF0000">.</font></font>
</pre></code>
<p>
Daus Programm zeichnet auf Knopf-Druck mehrere Linien auf dem

[Bernhard Berger]

...Canvas. (scheiss Längenbegrenzung bei Einträgen.... *hmpf*)<p>
Ich hoffe das Prinzip ist verständlich,<br>
Gruß,<br>
Bernhar

[Peter Hennek]

Danke klappt prima

Gruss

p