Bildgröße zur Laufzeit ändern

[mleyen]

ungetestet:

Delphi-Quellcode:

procedure TForm1.btnScaleClick(Sender: TObject);
begin
  StretchBlt(imageWindow.Bitmap.Canvas.Handle, 0, 0, 100, 100, imageWindow.Bitmap.Canvas.Handle, 0, 0, imageWindow.Bitmap.Width, imageWindow.Bitmap.Height, SRCCOPY);
  imageWindow.Bitmap.Height := 100;
 imageWindow.Bitmap.Width := 100;
end;