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