delphi实现.bmp位图旋转90度。急求！！！

confuss

小白求助大神们，请问怎么在delphi中实现位图的旋转啊，比如说打开一幅.bmp的图片（用系统自带的画图工具就行），然后旋转90度（顺时针逆时针都行），然后保存并输出来。
比如说就像这样，点击图像按钮显示原图，点击旋转按钮后图像旋转并在上面显示。

小甲鱼老师能帮助我下吗？

請叫我攻城師

我新建了個過程,然後"旋轉"直按鈕接調用就OK了.參考代碼如下:

procedure TForm1.RotateImage(Sender: TObject);
var x,y:Integer;
    TmpBitMap:TBitmap;
begin
   TmpBitMap := TBitmap.Create;
    try
      TmpBitMap.Assign(img1.Picture.Graphic);
        with img1 do
        begin
          Picture.Bitmap.Height := TmpBitMap.Width;
          Picture.Bitmap.Width := TmpBitMap.Height;
         for x:=0 to Height do
         for y:=0 to Width do
          Canvas.Pixels[TmpBitMap.Height-x,y] := TmpBitMap.Canvas.Pixels[y,x];
          Height := TmpBitMap.Width;
          Width := TmpBitMap.Height;
        end;
    finally
     TmpBitMap.Free;
    end;
end;

行的話記得給幣幣哦:big

请问11

a

confuss

請叫我攻城師 发表于 2014-10-6 13:48
我新建了個過程,然後"旋轉"直按鈕接調用就OK了.參考代碼如下:

行的話記得給幣幣哦

虽然是有些疑问，不过还是万分感谢

bestboyhjj

学习下

y290176346

看看 学习下