Firemonkey Bitmap Flip bzw. Mirror auf Canvas

[Peter666]

Hi,

ich möchte gerne ein Bitmap auf einem Canvas um die eigene Achse spiegeln und um einen bestimmten Winkel drehen, hat jemand eine Idee wie ich folgenden Code anpassen kann?

Delphi-Quellcode:

var
  cX, cY: Single;
  M: TMatrix;

begin
  with ARect do
  begin
    cX := (Right - Left) / 2 + Left;
    cY := (Bottom - Top) / 2 + Top;
  end;
  M := TMatrix.Identity;
  M := M * TMatrix.CreateTranslation(-cX, -cY);
  M := M * TMatrix.CreateRotation(DegToRad(angle));
  if Mirror then
  begin
  end;
  if Flip then
  begin
  end;
  M := M * TMatrix.CreateTranslation(cX, cY);

ARect ist in meinem Fall die Position auf dem Canvas und Angle der Winkel im Grad.