Bild aus Datei mit StretchBlt passend in TImage anzeigen

[thestallion90]

Zitat von DeddyH:

Hilft Dir das hier weiter?

Ich habe versucht deine Methode folgendermaßen zu implementieren und bekommen einen "abstract error". Ich habe mich nicht weiter damit auseinander gesetzt wo und warum genau er auftritt. Der Debugger sagt aber, dass er in "StretchGraphic" auftritt.

Delphi-Quellcode:

procedure SetActorPic(l_picname: string);
var
   Quelle, Ziel   : TGraphic;
begin
  Quelle:=TGraphic.Create;
  Ziel:=TGraphic.Create;
  try
     Quelle.LoadFromFile(l_picname);
     StretchGraphic(Quelle,Ziel,Image1.Width, Image1.Height, True);
     Image1.Picture.Assign(Ziel);
  finally
     Quelle.Free;
     Ziel.Free;
  end;
end;

Zitat von grizzly:

Hat l_Dest_Bitmap nach dem Create nicht Höhe und Breite gleich 0? Dann wird was draufgemalt (nicht viel, weil sich dabei die Größe nicht ändert), und am Ende wird dieses 0 mal 0 Pixel große Bild dem Image.Picture.Bitmap zugewiesen.
Fehlt vielleicht sowas wie beispielsweise l_Dest_Bitmap.width := Image1.width oder so?

Gruß
Michael

Ich liebe dich <3 Das wars, vielen Dank!