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

var
   LogFont : TLogFont;
...
   GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont);
   { Вывести текст 1/10 градуса против часовой стрелки }
   LogFont.lfEscapement := Angle*10; 
   Canvas.Font.Handle := CreateFontIndirect(LogFont);
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (11 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий