Author: William Gerbert
Display text in any angle
Answer:
The following works only with TrueType fonts:
1 var2 LogFont: TLogFont;
3 ...
4 GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
5 // in 1/10 degrees, 450 = 45 degrees6 LogFont.lfEscapement := Angle * 10;
7 Canvas.Font.Handle := CreateFontIndirect(LogFont);