Danke für die Hinweise und die Codes. Das hat mir wirklich SEHR weitergeholfen. Ich bin nun an dem Punkt, wo ich sagen kann, dass es grundsätzlich funktioniert, ABER, der Bildinhalt wird jedes mal verkleinert. Irgednwo ist da noch ein kleiner Fehler drin.
Delphi-Quellcode:
procedure Tobjects.ScrollBar1Change(Sender: TObject);
var x: TPNGObject;
begin
// Ist da überhaupt ein PNG drin?
if img_obj_prev.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 ;-)
x := img_obj_prev.Picture.Graphic as TPngObject;
SmoothRotate(x, ScrollBar1.Position);
img_obj_prev.Repaint;
end;
end;
Ich habe die Routine nur um das Repaint erweitert. Das Assingment prüfe ich noch...Die Position kommt derzeit von einer Scrollbar.