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

confuss

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

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

請叫我攻城師

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

1. procedure TForm1.RotateImage(Sender: TObject);
   
2. var x,y:Integer;
   
3.     TmpBitMap:TBitmap;
   
4. begin
   
5.    TmpBitMap := TBitmap.Create;
   
6.     try
   
7.       TmpBitMap.Assign(img1.Picture.Graphic);
   
8.         with img1 do
   
9.         begin
   
10.           Picture.Bitmap.Height := TmpBitMap.Width;
    
11.           Picture.Bitmap.Width := TmpBitMap.Height;
    
12.          for x:=0 to Height do
    
13.          for y:=0 to Width do
    
14.           Canvas.Pixels[TmpBitMap.Height-x,y] := TmpBitMap.Canvas.Pixels[y,x];
    
15.           Height := TmpBitMap.Width;
    
16.           Width := TmpBitMap.Height;
    
17.         end;
    
18.     finally
    
19.      TmpBitMap.Free;
    
20.     end;
    
21. end;

复制代码

行的話記得給幣幣哦:big

请问11

a

confuss

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

行的話記得給幣幣哦

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

bestboyhjj

学习下

y290176346

看看 学习下