Компонент текста под углом 90 гр.

← →
kyn66 © (2005-10-21 16:56) [0]

МАстера, не видал-ли кто сабж. Или можно как-то сделать самому?

← →
clickmaker © (2005-10-21 17:11) [1]

посмотри на torry.net
можно и самому написать наследника от TLabel, например

← →
Prohodil Mimo © (2005-10-22 23:58) [2]

если хочешь сам написать, смотри на LOGFONT + F1.

← →
PZ (2005-10-23 16:37) [3]

http://forum.sources.ru
Не проверял

{ Эта процедура устанавливает угол вывода текста для указанного 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;

Компонент текста под углом 90 гр. Найти похожие ветки