论坛 › Delphi交流 › delphi实现.bmp位图旋转90度。急求！！！

confuss 发表于 2014-9-28 18:03:02

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

本帖最后由 confuss 于 2014-9-28 18:06 编辑

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

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

請叫我攻城師 发表于 2014-9-28 18:03:03

我新建了個過程,然後"旋轉"直按鈕接調用就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.Canvas.Pixels;
          Height := TmpBitMap.Width;
          Width := TmpBitMap.Height;
      end;
    finally
   TmpBitMap.Free;
    end;
end;
行的話記得給幣幣哦:big

请问11 发表于 2014-10-5 14:31:04

a

confuss 发表于 2014-10-9 23:32:37

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

行的話記得給幣幣哦

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

大个的糖果 发表于 2014-10-31 23:38:31

bestboyhjj 发表于 2014-11-25 07:59:25

学习下

y290176346 发表于 2015-9-26 14:14:11

看看 学习下

查看完整版本: delphi实现.bmp位图旋转90度。急求！！！