Bilder drucken mit GR32lib

[alienous]

ach sorry, hab mich da wohl verschrieben, das is meine methode

Delphi-Quellcode:

procedure BildDrucken(PCanvas : TCanvas; px1, py1, px2, py2 : Integer; pmotiv : tmotiv);
var gra : Tbitmap32;
begin
        gra := Tbitmap32.Create;
        gra.LoadFromFile('C:\motive\'+pmotiv.Bildname);
        gra.Rotate270();
        gra.DrawTo(pcanvas.Handle, Rect(px1,py1,px2,py2), gra.BoundsRect);
        gra.Free;
end;

und der aufruf:

Delphi-Quellcode:

  with Printer do
  begin
    BeginDoc;
    SetMapMode(Canvas.Handle, MM_LOMETRIC);
    BildDrucken(Canvas, 0, 0, motivbreite, motivhoehe, TestMotiv); 
    EndDoc;
  end;

so, hoffentlich isses zu verstehen