Examples Delphi

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);