{
关键字=图片旋转
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 14:33:23
数字签名=F06AABC06263A9C92DFD7A2DEC2E3B12
}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Vcl.Imaging.jpeg;
uses pngimage, Math, GraphUtil;
procedure TForm1.RotateImage;
var
x, y: integer;
TmpBitMap: TBitmap;
begin
{图片旋转}
TmpBitMap := TBitmap.Create;
try
TmpBitMap.Assign(Image1.Picture.Graphic);
with Image1 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;