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

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

http://delphiworld.narod.ru/

DelphiWorld 6.0