canvas image vergrößen

[bitsetter]

Hallo,

ich hatte mal dafür eine Procedure geschrieben:

Delphi-Quellcode:

Procedure DruckPos(iLeft, iTop, Zoom: integer; Graphic: TGraphic);
begin
  Printer.BeginDoc;
  SetMapMode(Printer.Canvas.Handle, MM_ISOTROPIC);
  SetWindowExtEx(Printer.Canvas.Handle, 1, 1, nil);
  SetViewportExtEx(Printer.Canvas.Handle, Zoom, Zoom, nil);
  Printer.Canvas.Draw(iLeft, iTop, Graphic);
  Printer.EndDoc;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DruckPos(50, 80, 12, Image1.Picture.Bitmap);
end;

Es gibt sicherlich noch andere Möglichkeiten.