3.17. Панели с закладками (tab control)
Этот визуальный управляющий элемент, инкапсулированный в типе TControl, так же относится к списочным визуальным объектам (его "элементами" являются закладки, вместе с соответствующими страницами). Основное предназначение этого объекта - обеспечить наличие нескольких "страниц", или панелей, со своим набором размещенных в каждой из них дочерних визуальных объектов, и набор закладок для переключения между этими страницами. Существует и частная задача: обеспечить наличие программно переключаемых страниц, не предоставляя при этом пользователю возможность самостоятельно переходить на любую из этих страниц. Такая цель так же не сложно достигается с помощью данной разновидности оконного объекта (путем скрытия закладок).

Конструктор:

NewTabControl( Parent, tabs, options, imglist, imgidx1 ) - создает многостраничную объект, сразу добавляя в него некоторое количество закладок, заданное составом строк в массиве tabs, и присваивая этим закладкам эти строки в качестве текста закладок. Наличие параметра imgidx1 позволяет совместить использование одного списка изображений для некоторых целей: индексы значков для отображения в закладках присваиваются, начиная со значения этого параметра. Конечно же, списки изображений не обязательны для использования, так что допустимо передать nil в качестве параметра imglist. Для панелей с закладками определены следующие опции:

tcoButtons - закладки выглядят как кнопки;

tcoFixedWidth - фиксированная (одинаковая для всех) ширина закладок;

tcoFocusTabs - рисовать рамку в закладке;

tcoIconLeft - значок изображать в закладке слева, а текст - справа;

tcoLabelLeft - значок изображать справа, а текст - слева;

tcoMultiline - закладки размещаются в нескольких строках;

tcoMultiselect - множественное выделение закладок;

tcoFitRows -

tcoScrollOpposite -

tcoBottom - закладки располагаются внизу;

tcoVertical - закладки располагаются слева (при наличии опции tcoBottom - справа);

tcoFlat - "плоские" закладки;

tcoHotTrack - "горячая" подсветка закладки под курсором мыши;

tcoBorder - граница вокруг всего окна;

tcoOwnerDrawFixed - для рисования содержимого закладок вызывается обработчик события OnDrawItem.

Свойства, методы, события:

CurIndex - индекс текущей закладки;

IndexOf( s ) или TC_IndexOf( s ) - возвращает индекс страницы с указанным текстом в закладке;

SearchFor( s, i, partial ) или TC_SearchFor( s, i, partial ) - аналогично IndexOf, но дополнительно позволяет указать индекс, после которого начинать поиск, и задать способ сравнения текста элемента с образцом (частичное сравнение первых символов);

OnChange - это событие срабатывает, когда текущей становится другая закладка (программно или в результате действий пользователя);

ImageListNormal - доступ к объекту, обеспечивающему изображения значков для отображения в закладках;

SetUnicode( b ) - позволяет перевести окно объекта в режим работы со строками Unicode (требуется включение в опции проекта символа условной компиляции UNICODE_CTRLS);

Особенные свойства, характерные именно для данной разновидности объекта:

Pages[ i ] или TC_Pages[ i ] - доступ к панелям объекта. Например, для создания метки на панели с индексом 0 следует выполнить вызов:

NewLabel( Tabcontrol1.Pages[ 0 ], 'text' );
TC_Insert( i, s, ii ) - вставляет еще одну закладку (вместе с панелью);

TC_Delete( i ) - удаляет закладку с указанным индексом;

TC_Items[ i ] - доступ к тексту i-й закладки;

TC_Images[ i ] - управление индексом пиктограммы в закладке;

TC_ItemRect[ i ] - прямоугольник, занимаемый закладкой в окне всего объекта;

TC_SetPadding( cx, cy ) - задает отступ от края закладки до текста в ней;

TC_TabAtPos( X, Y ) - возвращает индекс закладки, находящейся в окне объекта по заданным координатам (или -1, если в этой позиции нет закладок);

TC_DisplayRect - прямоугольник, занимаемый клиентской частью текущей страницы в окне объекта (на самом деле, для всех страниц этот прямоугольник один и тот же, т.к. когда другая страница становится текущей, она просто показывается "впереди" всех прочих, заслоняя их собой от взора пользователя). Именно этот прямоугольник удобно использовать для того, чтобы во время выполнения "обрезать" края объекта вместе с закладками, сделав их невидимыми и недоступными для пользователя. Например, так:

var Rgn: HRgn;
...
Rgn := CreateRectRgnIndirect( Tabcontrol1.TC_DisplayRect );
SetWindowRgn( Tabcontrol1.Handle, Rgn, true );
DeleteObject( Rgn );

Если при этом. например, разместить закладки в нижней части (опция tcoBottom), то после обрезки закладок объект выглядит практически так же, как если бы это была обычная панель (без выпуклой или вдавленной границы). Оставшееся же внизу пространство можно использовать для размещения (на другом родителе) каких-нибудь кнопок. При проектировании в MCK, такая обрезка границ, разумеется, не меняет внешнего вида объекта, и по-прежнему остается возможным переключаться между закладками (двойным щелчком мыши по закладке).

В Mirror Classes Kit для объекта страниц с закладками имеется зеркальный компонент TKOLTabControl. Многие начинающие работать с MCK, бросив его на форму, не знают, что с ним дальше делать (как добавить закладки, удалить или переместить их). Думаю, приведенные ниже сведения пригодятся.

Чтобы во время разработки задать первоначально количество закладок, или увеличить это количество, надо изменить значение свойства Count - в Инспекторе Объектов. Например, введите число 3, чтобы создать первоначально три закладки. Для того, чтобы выбрать в качестве текущей некоторую закладку во время настройки формы (design time), щелкните по ней двойным кликом (именно по закладке). Для того, чтобы удалить закладку, надо сделать ее текущей, выделить ее панель, и нажать клавишу <Delete> на клавиатуре. И наконец, для изменения порядка отображения закладок, используйте свойство TabOrder панели. Чтобы изменения вступили в силу, можно, например, сделать двойной клик по окну объекта, в области свободной и от закладок, и от панелей.