gedrehter Text verändert Font

[Uwe Raabe]

Das geht übrigens auch sehr elegant so:

Delphi-Quellcode:

Procedure TextOutAngle(const Canvas: TCanvas; X, Y: Integer; 
    const AText: string; AAngle: Integer);
var
  Recall: TRecall;
begin
  Recall := TFontRecall.Create(Canvas.Font);
  Try
    Canvas.Font.Orientation := AAngle;
    // hier ließe sich dann noch mehr ändern und es würde auch wieder zurückgesetzt
    Canvas.TextOut(x, y, AText);
  Finally
    Recall.Free;
  End;
end;