|
Разделы сайта
|
Главнаяwm-help.net -> Электронная библиотека -> Delphi -> 39 советов по Delphi -> Вывод текста под углом.
Вывод текста под углом.
Чтобы вывести под любым углом текст необходимо использовать TrueType Fonts (например "Arial"). Например:
var
LogFont : TLogFont;
...
GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
{ Вывести текст 1/10 градуса против часовой стрелки }
LogFont.lfEscapement := Angle*10;
Canvas.Font.Handle := CreateFontIndirect(LogFont);