горизонтальная надпись на Tabsheets

← →
x404 (2003-10-17 00:41) [0]

Возможно ли на элементах TabSheets, если их развернуть в столбец (TabPosition=tpLeft),
делать надписи по горизонтали? Если нет, то посоветуйте как быть, каким компонентом воспользоваться
и где его скачать.

← →
Zergling © (2003-10-17 06:38) [1]

Можно :)
TPageControl.TabHeight := {ширина текста + запас}
В событии TPageControl OnDrawTab перерисовывем текст.
Для вывода текста можно воспользоваться DrawText(), указав вней нужной флаг DT_... можно определить вырввнивание тектса, например по центру.

горизонтальная надпись на Tabsheets Найти похожие ветки