Ich mache das so:
StretchGraphic(Image1.Picture.Graphic,Image2.Picture.Graphic,30,30,False);
Wobei Image2 leer ist
Leer bedeutet nil? Das ist dann falsch, ich hatte die Benutzung der Routine so vorgesehen (Beispiel aus dem Kopf, Fehler vorbehalten):
Delphi-Quellcode:
Quelle := TBitmap.Create;
try
Ziel := TJPEGImage.Create;
try
Quelle.LoadFromFile(Dateiname);
StretchGraphic(Quelle, Ziel, 200, 200);
ImageBla.Picture.Graphic.Assign(Ziel);
finally
Ziel.Free;
end;
finally
Quelle.Free;
end;