[Madness]

Ниже приведена процедура для делфи, используются только winapi функции, так что проблем переделать возникнуть не должно.

Написание текста под углом

Эта процедура устанавливает угол вывода текста для указанного Canvas, угол в градусах. Шрифт должен быть TrueType !

procedure CanvasSetTextAngle(c: TCanvas; d: single);
var LogRec: TLOGFONT; { Информация о шрифте }
begin
{Читаем текущюю инф. о шрифте }
GetObject(c.Font.Handle,SizeOf(LogRec) ,Addr(LogRec) );
{ Изменяем угол }
LogRec.lfEscapement := round(d*10);
{ Устанавливаем новые параметры }
c.Font.Handle := CreateFontIndirect(LogRec);
end;