Вращение изображения

Procedure TForm1.DrawRotated(C: TCanvas; G: TGraphic; Const X0, Y0: Integer; Const AngleRad: Single = 0; Const Dx: Single = 0; Const Dy: Single = 0);
Var XF: TXForm;
Begin
XF.eM11:=1;
XF.eM12:=0;
XF.eM21:=0;
XF.eM22:=1;
XF.eDx:=-X0-Dx;
XF.eDy:=-Y0-Dy;
SetWorldTransform(C.Handle, XF);
XF.eM11:=Cos(AngleRad);
XF.eM12:=Sin(AngleRad);
XF.eM21:=-Sin(AngleRad);
XF.eM22:=Cos(AngleRad);
XF.eDx:=0;
XF.eDy:=0;
ModifyWorldTransform(C.Handle, XF, MWT_RIGHTMULTIPLY);
XF.eM11:=1;
XF.eM12:=0;
XF.eM21:=0;
XF.eM22:=1;
XF.eDx:=X0+Dx;
XF.eDy:=Y0+Dy;
ModifyWorldTransform(C.Handle, XF, MWT_RIGHTMULTIPLY);
C.Draw(X0, Y0, G);
ModifyWorldTransform(C.Handle, XF, MWT_IDENTITY);
End;

//{$I DELPHIAREA.INC}

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.Imaging.pngimage, Vcl.ExtCtrls, Math,
  Winapi.GDIPAPI, Winapi.GDIPOBJ;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    I: GpBitmap;
    Ang: Integer;
    Procedure DrawRotated(G: GpGraphics; Const X0, Y0: Integer; Const Angle: Single = 0; Const Dx: Single = 0; Const Dy: Single = 0);
  public
    { Public declarations }
  end;
 
Var Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var S: TMemoryStream; A: TStreamAdapter;
begin
DoubleBuffered:=True;
S:=TMemoryStream.Create;
Image1.Picture.Graphic.SaveToStream(S); // Сами добавьте проверки чтоб там что-то было
A:=TStreamAdapter.Create(S, soReference); // Не знаю что за магия, тока что нагуглил
S.Seek(0, soFromBeginning);
GdipCreateBitmapFromStream(A, I); // Но из S грузить не хотело, а только из некоего адаптера грузит
// A.Free; // Удаляться не хочет, но возможно GDI+ сам почистит
S.Free;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
// GdipimaDisposeImage(I); // Почему-то вылетает, может перепутал функцию или хз что
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var G: GpGraphics;
begin
Canvas.Lock;
GdipCreateFromHDC(Canvas.Handle, G);
// GdipSetInterpolationMode(G, InterpolationModeNearestNeighbor); // Рисовать с низким качеством - как у GDI32
DrawRotated(G, 160, 140, Ang, Image1.Picture.Graphic.Width/2, Image1.Picture.Graphic.Height/2);
GdipDeleteGraphics(G);
Canvas.Unlock;
end;
 
procedure TForm1.DrawRotated(G: GpGraphics; Const X0, Y0: Integer; Const Angle: Single = 0; Const Dx: Single = 0; Const Dy: Single = 0);
begin
GdipTranslateWorldTransform(G, -X0-Dx, -Y0-Dy, MatrixOrderAppend);
GdipRotateWorldTransform(G, Angle, MatrixOrderAppend);
GdipTranslateWorldTransform(G, X0+Dx, Y0+Dy, MatrixOrderAppend);
GdipDrawImageI(G, I, X0, Y0);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(Ang, 2);
Repaint;
end;
 
end.