Inhalt von TImage gestreched speichern

[brechi]

Falls mal über google gefunden:

Delphi-Quellcode:

var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := Image1.width;
    bmp.height := Image1.Height;
    bmp.canvas.StretchDraw(Rect(0,0,Bmp.Width, bmp.Height), image1.Picture.Graphic);
    bmp.SaveToFile('F:\test.bmp');
  finally
    FreeAndNil(bmp);
  end;
end;