【文件属性】：
文件名称：delphi图片旋转.rar
文件大小：476KB
文件格式：RAR
更新时间：2023-03-18 09:53:33
delphi 图片旋转
delphi 图片旋转 左转90 右转90 顺时针，逆时针旋转
type
TForm3 = class(TForm)
btn1: TButton;
img1: TImage;
btn2: TButton;
btn3: TButton;
btn4: TButton;
btn5: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
procedure btn4Click(Sender: TObject);
procedure btn5Click(Sender: TObject);
private
{ Private declarations }
TmpBitMap, desMap: TBitmap;
procedure RotateL(Bitmap: TBitmap);
procedure RotateR(aBitmap: TBitmap);
public
{ Public declarations }
end;
【文件预览】：
uMain.dfm
UCutFigure_JPG.pas
uMain.dcu
xz.dproj.local
UCutFigure_JPG.dcu
uMain.pas
xz.res
xz.identcache
xz.dpr
xz.exe
xz.dproj