Drucken mit Procedure PrintBitmap an Stelle von StretchDraw

[timog]

Hallo Jens,

ich habe auch gerade die von Dir ausgebuddelte procedure entdeckt. Den Aufruf der Prozedur mit einem JPG habe ich so gelöst (beispielhaft):

Delphi-Quellcode:

var
  jpg: TJPEGImage;
  bmp: TBitmap;
  r: TRect;
begin
  if FileExists('logo.jpg') then begin
    jpg:=nil;
    bmp:=nil;
    try
      jpg := TJPEGImage.Create;
      bmp := TBitmap.Create;
      jpg.LoadFromFile('logo.jpg');
      bmp.Assign(jpg);
      // Hier wird r berechnet, etc. 
      PrintBitmap(Canvas, r, bmp);
    finally
      jpg.Free;
      bmp.Free;
    end;
  end;

Try/Finally-Block nach Olaf's Blog

Viele Grüße

Timo