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 ?