Как текст на кнопке расположить под заданным углом
Как выдать текст под наклоном? Чтобы вывести под любым углом текст необходимо
использовать 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;
Статья Как текст на кнопке расположить под заданным углом раздела Компоненты и Классы Кнопки может быть полезна для разработчиков на Delphi и FreePascal.
