Как текст на кнопке расположить под заданным углом

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как текст на кнопке расположить под заданным углом

Как выдать текст под наклоном? Чтобы вывести под любым углом текст необходимо использовать TrueType Fonts (например «Arial»). Например:

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