[Firemonkey] TBitmap.Rotate Center?

[milos]

Hi,

in Firemonkey gibts ja sone tolle Prozedur in TBitmap (TBitmap.Rotate) mit der man das Bild um den gewünschten Winkel drehen kann. In der wird mit einer TMatrix gearbeitet (TMatrix.CreateRotation usw...) und später benutzt um das Bild rotiert mithilfe von Canvas.DrawBitmap gezeichnet. Leider kann ich da kein Zentralpunkt auswählen bzw kann die alten Koordinaten nicht in die neuen umrechnen bzw. verstehe nicht ganz wie ich das machen könnte. Meine vermutung ist jedoch das ich dazu auch TMatrix.CreateRotation benutzen kann aber wie?

Ich bin mir nicht sicher ob ich den Source Code der Prozedur posten darf also mache ich es mal nicht.

Freundliche Grüsse

[milos]

Habs hinbekommen, war einfacher als gedacht. ^^
Falls es jemand mal brauchen sollte hier ein Beispiel, funktioniert wie ich das brauche und ohne Matrizen :D

Delphi-Quellcode:

function RotatePoint(const APoint, ACenter : TPointF; const AAngle : single) : TPointF;
begin
  Result := (APoint - ACenter).Rotate(DegToRad(AAngle)) + ACenter;
end;


var
  LNullPoint, LNullPointRotated : TPointF;
begin
  FRotatedBitmap.Assign(FBitmap);
  FRotatedBitmap.Rotate(45);
  
  LNullPoint := PointF((FRotatedBitmap.Bitmap.Width-FBitmap.Bitmap.Width)/2, (FRotatedBitmap.Bitmap.Height-FBitmap.Bitmap.Height)/2);
  LNullPointRotated := RotatePoint(LNullPoint, PointF(FRotatedBitmap.Bitmap.Width/2, FRotatedBitmap.Bitmap.Height/2), 45);
end;

Nun hat man die alten Koordinaten des Null-Punktes (in diesem Fall: X0 Y0) und kann das gedrehte Bitmap einfach auf die richtige Stelle rendern.

Freundliche Grüsse