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