На главную
Подписка
Новости










Главная / DELPHI / 38 советов по 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);

СОДЕРЖАНИЕ ВПЕРЁД

Hosted by uCoz