Inhalt von TImage gestreched speichern

[Delphi-Narr]

Hallo,
ich habe ein TImage mit der Größe 1280 * 800 und da ein Bild mit 600*400 reingeladen und Strech:=True gesetzt.

Wenn ich jetzt

Delphi-Quellcode:

Image1.picture.bitmap.savetofile('abc.bmp');

schreibe, dann ist das Bild hinterher aber immer noch 600*400. Ich möchte es jedoch gerne auf 1280 * 800 haben. Wie kann ich das machen?
Viele Grüße!

[himitsu]

Das TImage zeigt es nur gestretcht an, aber das interne Bild bleibt dabei natürlich unverändert.

Also selberstrechen?
z.B. Canvas.StrechDraw StretchBlt ...

[Matze]

Hallo,

rechne es selbst auf das Seitenverhältnis um mittels TBitmap und ein bisschen Rechnerei ohne Umweg über TImage. ;)

[Delphi-Narr]

Danke! Hätt ich auch selbst drauf kommen können...

:wall:

[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;