Я таки разобрался, если кому будет интересно:
Цитата:
var LogRec: TLOGFONT; // Информация о шрифте
// Читаем текущюю информацию о шрифте
GetObject(Form1.Canvas.Font.Handle,SizeOf(LogRec) ,Addr(LogRec) );
// Изменяем угол
LogRec.lfEscapement := 900;
// Устанавливаем новые параметры
form1.canvas.Font.Handle := CreateFontIndirect(LogRec);
...
{тут я вывожу свой текст под углом}
...
//а тут я возвращаю параметры по умолчанию
LogRec.lfEscapement := 0;
form1.canvas.Font.Handle := CreateFontIndirect(LogRec);
|
Только тут вот какая проблема, эта штука поддерживает не все шрифты, а только определенные, если установлен шрифт, который это удовольствие не поддерживает, то ничего не получится, но это не проблема, думаю шрифт поменять не составит ни для кого особого труда, да хоть на тот же Times New Roman
