Zitat:
aber die anderen Zeilen zwischen Printer.BeginDoc und Printer.EndDoc sind mir unklar:
Delphi-Quellcode:
Pen := TGPPen.Create(TGPColor.Black);
PrinterGraphics.DrawRectangle(Pen, 200, 500, 200, 150);
PrinterGraphics.DrawEllipse(Pen, 200, 500, 200, 150);
PrinterGraphics.DrawLine(Pen, 200, 500, 400, 650);
Was ist da unklar?
Du erstellst einen Zeichenstift mit der Farbe schwarz
und zeichnest anschließend ein Rechteck, Ellipse und eine Linie mit der angegebenen Farbe
gruss