Использование компонента TCoolBar или как создавать кульные панели инструментов

Большинство современных приложений Windows имеют несколько панелей инструментов (тулбаров). В их числе, такие распространённые программные продукты как Microsoft Internet Explorer, MS Word и Delphi IDE. В этой статье рассказывается о компоненте-контейнере CoolBar, который может содержать другие компоненты, такие как тулбары, выпадающие списки и т.д.

TCoolBar

Компонент TCoolBar, это новая разновидность TToolBar. TCoolBar это элемент управления, который обычно содержит в себе два или более TCoolBand-ов, размеры и местоположение которых можно изменять во время выполнения программы. CoolBand в свою очередь является областью элемента управления, которая может содержать другие оконные контролы, главным образом панели инструментов, окошки редактирования, выпадающие списки и анимация.

Создать coolbar довольно просто: достаточно поместить компонент CoolBar из набора Win32 VCL на форму. У CoolBar-а есть довольно много настроек (настройка осуществляется через свойства): Align - по умолчанию, расположение Coolbar настроено на верхнюю часть окна, поэтому, чтобы изменить расположение кулбара, нам прийдётся подредактировать это свойство; Bitmap - используется для закрашивания фона CoolBar-а картинкой; свойство FixedOrder определяет, может ли пользователь переопределить порядок панелей.

TCoolBand

Как уже упоминалось выше, компонент Coolbar, это обычно набор объектов TCoolBand. Чтобы добавить несколько CoolBand-ов в CoolBar, нам потребуется вызвать редактор Coolbar Band-ов. Сделать это можно путём нажатия на значёк, расположенный сразу после свойства Bands.

Один из способов разместить компонент (или компонент-контейнер) на CoolBar-е, это перетащить его из палитры VCL, при этом автоматически создастся новый band для хранения компонента. Другой способ заключается в том, что компонент вставляется в форму напрямую, а затем, при помощи редактора CoolBar Band-ов связывается с каким либо CoolBand-ом. Далее на кулбар обычно добавлется Toolbar, путём простого перетаскивания его из палитры Win32 на Coolbar. Потом на тулбар добавляются одна или несколько кнопок.

Самая интересная возможность CoolBar-а, это то, что он может содержать в себе элементы управления, отличные от кнопок.

Давайте перетащим на CoolBar выпадающий список, окошко редактирования и один элемент анимации. Предположим, что у нас на форме присутствует компонент memo с некоторым текстом. Например, мы можем использовать окно редактирования для установки размера шрифта, выпадающий список для установки названия шрифта, а анимацию для отображения каких-либо событий, происходищих в программе.

Во время выполнения программы пользователь может изменять местоположение элементов управления путём перемещения и, тем самым меняя размер.

Вам хочется добавить ещё компонентов ?

Кульные менюшки на Cool Band-ах
Итак, сперва, нам необходимо разместить на форме компонент MainMenu и добавить в него пункты при помощи Menu designer. Обратите внимание, что когда мы помещаем компонент TMainMenu на форму, то значение свойства формы Menu устанавливается в MainMenu1. Нам необходимо очистить это свойство и тем самым отключить объект MainMenu от формы, потому что нам необходимо использовать его в Coolbar-е.
Далее, добавляем Toolbar в Coolbar а так же добавляем несколько ToolButton - один ToolButton для каждого выпадающего меню. Если, например, у Вас два меню верхнего уровня File и Edit, то добавить необходимо всего два ToolButton-а.
Далее, устанавливаем свойства тулбара. Flat и ShowCaptions устанавливаем в True. Свойства AutoSize и Grouped компонента ToolButton так же должны быть установлены в True. И, в заключение, соединяем каждую кнопку с выпадающим меню, используя для этого свойство MenuItem.

Вот так должен выглядеть результат проделанных шагов (запущенная программа):

Немного программирования

procedure CreateDatePickerOnCoolBar;
var dtPick: TDateTimePicker;
begin
 dtPick := TDateTimePicker.Create(CoolBar1);
 dtPick.Parent := CoolBar1;
 CoolBar1.Bands.Items[Count-1].Text := 'Pick a date';
 ...
end;

ЗАМЕЧАНИЕ: как упоминалось раньше, размещение контрола в кулбаре заставляет объект TCoolBar создать TCoolBand и поместить элемент управления в band-е. При помощи "CoolBar1.Bands.Items[count - 1]" мы связываем текст с последним созданным TCoolBand.
ЗАМЕЧАНИЕ2: Память компонента TDateTimePicker автоматически освобождается при освобождении памяти родителя. Происходит это, когда приложение завершается и CoolBar уничтожается формой.

Процедура CreateDatePickerOnCoolBar всего навсего создаёт TDateTimePicker на кулбаре CoolBar. Для того, чтобы использовать события TDateTimePicker, нам необходимо создать процедуры обработчиков событий. Не будем вдаваться в подробности создания объектов в Delphi. Для создания обработчика события для TDateTimePicker, нам необходимо написать метод (процедуру) некоторого объекта (обычно для этого выбирают главную форму) с таким же количеством параметров, с такими же типами и именами параметров. Затем, в коде, измените имя процедуры на такое же имя свойства TDateTimePicker, обрабатывать которое Вы хотите. После этого новая процедура автоматически станет обработчиком события для этого объекта.

В конце процедуры CreateDatePickerOnCoolBar добавьте

 ...
 dtPick.OnCloseUp := dtpOnCloseUp;

OnCloseUp происходит, когда выпадающий календарь закрывается. А теперь используем это событие, чтобы передать дату из DateTimePicker в компонент Memo:

procedure TForm1.dtpOnCloseUp(Sender: TObject);
begin
 Memo1.Lines.Add
 (DateToStr((Sender as TDateTimePicker).Date));
end;

Не забудьте разместить объявление процедуры dtpOnCloseUp секции интерфейса (interface) юнита формы (private или public).

TControlBar

TCoolBar это стандартный Win32 элемент управления, который является частью операционной системы. Проверьте, присутствует ли компонент TControlBar на дополнительной закладке набора компонент. TControlBar это родной компонент VCL, который работает практически так же как и кул бар. Этот компонент не использует в своей работе COMCTL32.DLL, как это делает TCoolBar, поэтому менее восприимчив к прихотям Microsoft.

Ссылки
См. демонстрашку Webbrows Delphi в директории coolstuf которая демонстрирует использование TCoolbar.

Компонент TMenubar. Это потомок TToolbar, имеющий свойство меню, которое позволяет связывать TMainMenu с панелью инструментов (toolbar). После этого компонент включает все пункты меню в тулбар.