Vergesst alles ab Guten Morgen. Es funzt nun - Jippi. Ich habe es erstmal "polnisch" gelöst, indem ich einfach nur ein unsichtbares TImage auf das Formular gelegt habe und den Code nur dahingehend geändert habe.
Delphi-Quellcode:
procedure TForm1.ScrollBar1Change(Sender: TObject);
var x,y: TPNGObject;
begin
// Ist da überhaupt ein PNG drin?
if img_src.Picture.Graphic is TPngObject then
begin
// TPngObject(Image1.Picture.Graphic) ist ein konstanter Ausdruck
// und kann nicht als Var Parameter übergeben werden, deshalb
// Der Umweg über x ;-)
img_dest.Picture.Graphic.Assign(img_src.Picture.Graphic);
x := img_dest.Picture.Graphic as TPngObject;
SmoothRotate(x, ScrollBar1.Position);
img_dest.Repaint;
end;
end;
Und was soll ich sagen? Es ist wirklich ganz ok! Ich glaube, dass ich damit nun was anfangen kann...Danke an alle, die mitgeholfen haben.