Display text in any angle

Problem/Question/Abstract:

Display text in any angle

Answer:

The following works only with TrueType fonts:


var
  LogFont: TLogFont;
  ...
    GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
  // in 1/10 degrees, 450 = 45 degrees
  LogFont.lfEscapement := Angle * 10;
  Canvas.Font.Handle := CreateFontIndirect(LogFont);