Обновлено: 01 декабря, 2018

Делаем текст под наклоном в Delphi

var
   LogFont : TLogFont;
...
   GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
   { Вывести текст 1/10 градуса против часовой стрелки }
   LogFont.lfEscapement := Angle*10; 
   Canvas.Font.Handle := CreateFontIndirect(LogFont);

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439