Как текст на кнопке расположить под заданным углом |
Previous Top Next |
Как выдать текст под наклоном?
Чтобы вывести под любым углом текст необходимо использовать TrueType Fonts (например «Arial»). Например:
Code: |
var LogFont: TLogFont; begin GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @LogFont); {Вывести текст 1/10 градуса против часовой стрелки} LogFont.lfEscapement := Angle * 10; Canvas.Font.Handle := CreateFontIndirect(LogFont); end; |
©Drkb::01245
DelphiWorld 6.0