18.3.16. TToolBar и ToolButton - инструментальная панель и кнопки для нее

Компонент TToolBar представляет собой специальный контейнер для создания инструментальных панелей. Главная отличительная черта TToolBar - его способность гибкого управления дочерними элементами, которые он может группировать, выравнивать по размерам, располагать в несколько рядов. Компонент может манипулировать любыми вставленными в него дочерними элементами, но все его возможности в полной мере проявляются только со специально для него разработанным компонентом TToolButton (инструментальная кнопка). Этот компонент похож на кнопку TSpeedButton, но не ищите его в палитре компонентов - его там нет. Поскольку он разработан специально для TToolBar, вставить его в инструментальную панель можно только после щелчка правой кнопкой на компоненте TToolBar и выборе NewButton или NewSeparator (сепараторы предназначены для функционального выделения на инструментальной панели групп элементов и представляют собой разновидности кнопок TTooiButton). Компонент TTooiButton не имеет свойства, предназначенного для хранения картинки, однако TToolBar умеет использовать контейнер TimageList, чтобы извлечь из него нужную картинку и поместить ее на инструментальную кнопку.

Методику использования TToolBar совместно с TToolButton рассмотрим на примере программы, окно которой показано на рис. 18.32.

Рис. 18.32. Пример TToolBar с кнопками TToolButton

- Поместите на пустую форму компонент TimageList, щелкните по нему правой кнопкой мыши и выберите продолжение ImageList Editor.
- Для заполнения контейнера ImageList1 подойдут любые небольшие по размеру изображения. К сожалению, растры из каталога images | BUTTONS[ См . замечание в начале главы. ] рассчитаны на использование в кнопках TSpeedButton и содержат по два изображения каждый -обычное и для запрещенной кнопки. Кнопки TToolButton также могут иметь два или три изображения, но эти изображения необходимо размещать в разных контейнерах rimageList, поэтому использование заготовок из каталога images | buttons в кнопках TToolButton приведет к появлению на них по два изображения одновременно[ Точнее, при вставке двойной картинки редактор компонента спросит у вас, надо ли ее разделять на две отдельные картинки. ]. Чтобы этого не произошло, загрузите пиктограммы из каталога images | icons: щелкните по кнопке Add окна редактора и выберите в этом каталоге файл chemical.
- Повторите П. 2 для фацлов Chip, Construe, Earth, Finance, Handchek, Shipping, Skyline И Technlgy, после чего закройте редактор ImageList.
- Поместите на форму компонент TToolBar, в окне Инспектора объектов разыщите свойство images, раскройте список в правой колонке строки images и выберите imageListi. Мы указали компоненту на источник изображений и можем теперь вставлять в него кнопки.
- Щелкните по ToolBar1 правой кнопкой мыши и выберите New Button.
- Вставьте еще две кнопки, после чего вставьте разделитель NewSeparator.
- Разместите на TooiBarl остальные кнопки и сепараторы (см. рис. 18.33).
- Если вы захотите, чтобы кнопки имели модный “плоский” вид, установите в свойство Flat компонента ToolBarl значение True.

Свойство Buttons компонента TToolBar позволяет обратиться к каждому дочернему компоненту как к объекту класса TToolButton, имеющему такие свойства:

property AllowAlIUp: Boolean;. | Если содержит True, синхронизирует свое состояние с состоянием других кнопок в той же группе: в любой момент может быть нажата только одна кнопка группы. Игнорируется, если Grouped=False
property Caption: String; | Содержит связанный с кнопкой текст, который будет показан, если свойство ShowCaptions компонента TTooiBar имеет значение True
property Down: Boolean; | Определяет состояние кнопки: если содержит True, кнопка утоплена
property DropdownMenu: TPopupMenu; | Связывает вспомогательное меню с нажатой кнопкой
property Grouped: Boolean; | Разрешает/запрещает учитывать свойство ailOwAlIUp
property Imagelndex: Integer; | Определяет индекс связанного с кнопкой изображения
property Indeterminate: Boolean; | Запрещает/разрешает выбор кнопки.
TToolButtonStyle = (tbsButton, tbsCheck, tbsDropDown, tbsSeparator, tbsDivider) ; property Style: TToolButton Style; | Определяет стиль кнопки: tbsButton - обычная кнопка; tbsCheck - западающая кнопка (остается в нажатом положении; для ее освобождения нужно щелкнуть по ней еще раз); tbsDropDown - кнопка с символом раскрывающегося списка; tbsSeparator - разделитель (на месте этой кнопки будет пустое место); tbsDivider - разделитель (в работающей программе на местеэтой кнопки будет вертикальная черта)
property Wrap: Boolean; | Если имеет значение True, кнопка завершает текущий ряд кнопок. Игнорируется, если свойство wrapable компонента TToolBar имеет значение True

Свойства компонента TToolBar:

property AutoSize: Boolean; | Если содержит True, высота компонента будет автоматически согласовываться с высотой кнопок
property ButtonCount: Integer; | Содержит количество вставленных в инструментальную панель дочерних компонентов (не только кнопок TToolButton)
property ButtonHeight: Integer; | Определяет высоту кнопок TtoolButton
property Disabledlmages: TImageList; | Определяет контейнер для изображений запрещенных кнопок
property Flat: Boolean; | Если содержит True, панель и кнопки на ней прозрачны для фона и вокруг кнопки появляется граница, только когда над ней располагается указатель мыши
property Hotlmages: TImageList; | Определяет контейнер изображений для кнопок в момент, когда над кнопкой располагается указатель мыши
property Images: TImageList; | Определяет контейнер для изображений кнопок в обычном состоянии
property Indent: Integer; | Определяет отступ в пикселях от левого края компонента для первого дочернего элемента
property List: Boolean; | Если имеет значение True, изображение прижимается к левой границе кнопки, а текст - к правой, в противном случае текст выводится под изображением. Игнорируется, если showCaptions = False
property RowCount: Integer; | Содержит количество рядов кнопок
property ShowCaptions: Boolean; | Разрешает/запрещает показ на кнопках текста
property Wrapable: Boolean; | Запрещает/разрешает располагать кнопки в нескольких рядах

Для компонента определено событие OnResize, возникающее при изменении размеров компонента.