PageControl

← →
tadalex (2003-11-08 23:25) [0]

Как придать PageControl свойство Flat, так как он отображается в Delphi ?

← →
Maxud (2003-11-08 23:54) [1]

Не знаю как в D7, в D6 PageControl (palette) отображается как tsTabs. А PageControl.Style := tsFlatButtons не то?

← →
tadalex (2003-11-09 00:44) [2]

Спасибо за ответ, но в D7 свойства PageControl.Style не нашел. Возможно не там ищу. Или надо устанавливать принудительно ?
Если можно, поясните по-подробнее, пожалуйста. Я как программист достаточно слабый.
Спасибо.
Александр

← →
Maxud (2003-11-09 01:17) [3]

Если у тебя создана 1 и более страниц (TabSheets), то, возможно, ты ищешь Style у них, а не у PageControl. Выдели PageControl в Object TreeView или, выделив любой TabSheet, нажми ESC. Теперь ищи Style. Думаю найдешь.

← →
tadalex (2003-11-09 01:21) [4]

Со свойством PageControl.Style разобрался (виноват, просмотрел), но переключение в режим tsFlatButtons дает не тот результат. Хотелось бы иметь "плоский" режим tsTabs, т.е. чтобы PageControl выглядел бы как в Delphi.
Александр.

← →
Maxud (2003-11-09 01:44) [5]

PageControl, который "Палитра компонентов", и есть tsTabs. Если из PageControl.Style ничего не подходит, делай PageControl.OwnerDraw := true и рисуй в OnDrawTab.

← →
tadalex (2003-11-09 16:23) [6]

Спасибо. Скорее всего так и придется делать. Из существующих стилей PageControl.Style ничего не подходит - не получается сохранив стиль tsTabs убрать "выпуклость" страницы (TabSheets).
Из-за этого не получается на странице (TabSheets) разместить кнопки 28 х 28 (меньше не хотелось бы) не увеличив Height PageControl более 48, что тоже нежелательно.
Если можно, еще вопрос.
Если для решения моей проблемы необходимо воспользоваться PageControl.OwnerDraw := true и т.д., то как это можно реализовать (хотя бы на малом примере, чтоб понять суть). Вносить изменения в существующие компоненты мне не приходилось.
Александр.

PageControl Найти похожие ветки