Bild vergrößern / verkleinern

[DeCodeGuru]

Delphi-Quellcode:

procedure TForm1.ResizeImage(newWidth,newHeight: Integer);
begin
  SetStretchBltMode(Image2.Canvas.Handle, Halftone);
  StretchBlt(Image2.Canvas.Handle, 0,0,newwidth,newheight,Image1.Canvas.Handle,0,0,Image1.Width,Image1.Height,SRCCOPY);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ResizeImage(100,50);
end;

In Image1 wird das Bild geladen und in Image2 wird es vergrößert oder verkleinert dargestellt.

Suchwörter: Bildgröße, Auflösung