Transparentes PNG in TImage drehen...Wie?

[torud]

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.