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