Bild um 90 Grad drehen

[Cicaro]

Allo !

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);var B:TBitmap;x,y:Integer;
begin
 B:=TBitmap.Create;
 B.Width:=Image1.Height;
 B.Height:=Image1.Width;

 for x:=0 to Image1.Width-1 do
  for y:=0 to Image1.Height-1 do
   B.Canvas.Pixels[y,x]:=Image1.Canvas.Pixels[x,y];

 Image1.Width:=B.Height;
 Image1.Height:=B.Width;
 Image1.Canvas.Draw(0,0,B);

 B.Free;
end;

Mit diesem Code - dachte ich - lässt sich ein Bild in einer Image um 90 Grad drehen. Allerdings ändert die Image ihre Größe nicht so wie sollte. Sie tut es nämlich gar nicht

Mache ich was falsch ?

[DevilsCamp]

Wenn du Englisch kannst, dann schau mal hier http://www.efg2.com/Lab/ImageProcess...teScanline.htm.

Das soll recht gut sein...

[Muetze1]

Moin!

Und lernt doch endlich mal die Grösse der Image Komponente mit der Grösse des Bildes zu unterscheiden!!

Image1.Width/Height ist die Grösse der Komponente und nicht die des Bildes!
Image1.Picture.Width/Height ist die Grösse des Bildes!

MfG
Muetze1