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 ?