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