Windows with Delphi Windows API (94) Windows Filesystem (41) Windows Forms (69) Windows Graphics (38)
Exchange Links About this site Links to us 
|
Display text in any angle
This article has not been rated yet. After reading, feel free to leave comments and rate it.
The following works only with TrueType fonts:
 | |  | | var
LogFont : TLogFont;
...
GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
LogFont.lfEscapement := Angle*10;
Canvas.Font.Handle := CreateFontIndirect(LogFont); | |  | |  |
Comments:
|