GDI+: Image drucken

[daywalker9]

Es wird einfach nur ein Image erzeugt, was zum Drucker geschickt werden kann.


Du musst im Grunde nur zwischen dem BeginDoc und EndDoc dein aktuelles Image auf die PrinterGraphics kopieren.

Hab grad nicht den GDI Krams zur Hand, um dir zu sagen wie das hier funktioniert.

[Jazzman_Marburg]

Zitat von daywalker9:

Du musst im Grunde nur zwischen dem BeginDoc und EndDoc dein aktuelles Image auf die PrinterGraphics kopieren.

Jepp -- nur wie?

Jazzman

[EWeiss]

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

[Jazzman_Marburg]

Zitat von EWeiss:

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

Meine Zeichnung ist bereits fertig -- ich sehe sie auf dem Monitor. Was tun mit gImage (IGPImage)?

Das Demo zeigt doch ein Vorgehen, wo man eine TGPGraphics Instanz (PrinterGraphic) erzeugt und zwischen Printer.BeginDoc und Printer.EndDoc fröhlich in die PrinterGraphic zeichnet. Soweit auch alles klar.
Aber meine Grafik ist doch schon fertig!
Die anvisierte Lösung von daywalker9 scheint mir in genau die richtige Richtung zu gehen -- allein ich weiß nicht, wie das praktisch gehen soll.

Danke & Gruß
Jazzman

[daywalker9]

Bei TBitmap gibts ja das:

Delphi-Quellcode:

var
 BMP,
 MyBMP : TBitmap;
begin
  MyBMP:=TBitmap.create;
  MyBMP.LoadFromFile('C:\test.bmp');
  BMP:=TBitmap.create;
  BMP.Height:=100;
  BMP.Width:=100; 
  BMP.Canvas.Draw(0,0,MyBMP);

Kann dir leider nicht sagen, wie es bei GDI Image ist.

[EWeiss]

TGPGraphics.Create(Printer.Handle); ?
Nicht TGPGraphics.Create(Printer.Canvas.Handle); ?

PS:
Was ich noch gefunden habe..

Delphi-Quellcode:

graphics := TGPGraphics.Create(tmpbitmap.Canvas.Handle);
graphics.DrawImage(InGP, DestRect, srcx, srcy, srcwidth, srcheight,
UnitPixel);
printer.canvas.copyrect(destrect, tmpbitmap.canvas, destrect);

gruss