FMX.Graphics.TCanvas.FillText drehen

[UliBru]

Die KI der Google-Suche spuckt dazu aus

Delphi-Quellcode:

// Example for FireMonkey
var
  Angle: Single;
  R: TRectF;
  Matrix: TMatrix;
begin
  Canvas.Fill.Color := TAlphaColors.Black;
  Angle := -ArcTan2(ClientHeight, ClientWidth); // Calculate angle
  R := ClientRect;
  Matrix := CreateRotationMatrix(Angle);
  Canvas.SetMatrix(Matrix); // Apply the rotation matrix
  Canvas.FillText(R, 'Rotated FMX Text', False, 1, [], TTextAlign.taLeading, TTextAlign.taTrailing);
end;

Ich hab's nicht getestet, da ich derzeit kein FMX verwende.

Grüsse
Uli