Компонент 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: TToolButtonStyle;  Определяет стиль кнопки: 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, возникающее при изменении размеров компонента.  8  Комментарии к статье  8 8  Обсудить в чате