Author: William Gerbert

Display text in any angle

Answer:

The following works only with TrueType fonts:


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