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
