TImage im Querformat drucken

[bitsetter]

Hallo,

wenn du in deinem TImage auf das Bitmap zeichnest, könntest du das Bild mit PlgBlt() drucken.

Delphi-Quellcode:

var
  Points: array[0..2] of TPoint;
  scaleX, scaleY: integer;
begin
  Printer.BeginDoc;
  try
    with Koordinatensystem do
    begin
      ScaleX := GetDeviceCaps(Printer.Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Printer.Handle, logPixelsY) div PixelsPerInch;
      Points[1] := Point(Picture.Graphic.Height* scaleX, Picture.Graphic.Width* scaleY);//rechts oben
      Points[0] := Point(Picture.Graphic.Height* scaleX, 0);//links oben
      Points[2] := Point(0, 0);//links unten
      PlgBlt(Printer.Canvas.Handle, Points, Picture.Bitmap.Canvas.Handle, 0, 0, Picture.Graphic.Width,
        Picture.Graphic.Height, 0, 0, 0);
    end;
  finally
    Printer.EndDoc;   
  end;