Problem mit Componete RotateImage aus DELPHI AREA

[juelin]

Hallo,
ich habe Windows 10 und Delphi 10.4 Community.
Da ich ein Bild drehen wollte (0-359 Grad) habe ich mir von Delphi Area die Componete RotateImage downgeloaded und installiert.
Das Drehen des Bildes geht auch wunderbar. Das gedrehte Bild wird in RotateImage1 angezeigt.
Aber wenn ich die Pixel vom gedrehten Bild aus RotateImage1 in ein anderes Image laden will
bekomme ich nur schwarze Pixel, aber in RotateImage1 sind auch bunte Pixel.

Delphi-Quellcode:

  RotateImage1.Picture:=Image4.Picture;
  RotateImage1.Angle:=flugr;

  Image2.Canvas.CopyRect(Rect(flugx-25,flugy-25,flugx+25,flugy+25),RotateImage1.Canvas,Rect(0,0,RotateImage1.Width,RotateImage1.Height));

ODER

    for y:=0 to 50 do
    begin
      c:=RotateImage1.Canvas.Pixels[x,y];
      Image2.Canvas.Pixels[x+200,y+200]:=c;
    end;

Hat da jemand eine Idee?
Danke und Gruß
Jürgen

[jaenicke]

Zitat von juelin:

Aber wenn ich die Pixel vom gedrehten Bild aus RotateImage1 in ein anderes Image laden will
bekomme ich nur schwarze Pixel, aber in RotateImage1 sind auch bunte Pixel.

Ich rate einmal, dass das gedrehte Bild in RotateImage1.RotatedBitmap steckt.

Der Canvas einer visuellen Komponente ist nur die Zeichenfläche zur Darstellung. Der Inhalt ist flüchtig und nicht zum Auslesen gedacht.