TCoolBar и TCoolBand - инструментальная панель и полосы для нее.
Компонент TCoolBar предназначен для создания настраиваемых инструментальных панелей. Для каждого размещаемого на нем элемента TCoolBar создает объект класса TCoolBand (полоса), который может изменять свои размеры и положение в пределах границ компонента.
Следует сразу же заметить, что в отличие от TcontrolBar (страница Additional палитры компонентов) компонент TCoolBar предназначен для примерно таких же задач, но и в версии 2, где он появился впервые, и в версии б он все еще кажется “сырым”, плохо отлаженным.
Центральным свойством компонента является Bands - массив созданных в компоненте полос TCoolBand. Каждая полоса может иметь текст, пиктограмму и произвольный управляющий элемент. В отличие от ттоо1ваг или TControiBar полоса в TCoolBar всегда содержит только один интерфейсный элемент, но ничто не мешает этому элементу быть элементом-контейнером для размещения нескольких компонентов. Размещенный на полосе компонент окружен специальным окном TCoolBar и всегда стремится занять левый верхний угол полосы, при этом остальные размеры полосы изменяются так, чтобы полностью охватить элемент.
Поясним сказанное несложным примером.
- Поместите на пустую форму компонент TCoolBar - он тотчас же займет верхнюю часть формы, так как по умолчанию его свойства Alignment содержит alTop.
- Щелкните по компоненту левой кнопкой и выберите Bands Editor (редактор полос).
- Окно редактора похоже на многие другие используемые в Delphi окна-редакторы: щелкните по кнопке, чтобы вставить в компонент новую полосу.
- В окне Инспектора объектов можете задать текст для полосы и связанную с ней пиктограмму свойствами соответственно Text и imageindex (предварительно компонент в свойстве images должен уже содержать ссылку на связанный с ним контейнер TimageList). Свойство BitMap используется для заполнения полосы чередующимся узором. Для простоты ограничьтесь указанием текста полоса i и закройте редактор полос.
- Поместите ниже полосы, но в тот же контейнер CoollBar1 любой управляющий элемент, например, редактор TEdit. Подобно полосе он растянется вдоль верхнего края и будет окружен специальным окном с полосой-кнопкой для реализации механизма Drag&Dock.
- Вновь раскройте редактор полос, щелкните по ранее установленной полосе и в Инспекторе объектов раскройте список в свойстве Control - в нем окажется только что вставленный в форму компонент TEdit. Щелкните по нему - и он “перепрыгнет” на первую полосу, оставив ранее занимавшую им полосу TCoolBar пустой. Таким способом происходит связывание полосы TCooiBar с компонентом.
- Освободившуюся полосу можно связать с новым управляющим элементом (например, ComboBox) и т. д.
- Вид работающей программы показан на рис. 18.33.
Рис. 18.33. Вид окна CollBar
Свойства TCoolBand:
property Bitmap: TBitmap;
|
Определяет изображение, которое будет циклически повторяться по всему пространству полосы
|
property BorderStyle: TBorder-Style;
|
Определяет наличие рамки у полосы: bsNone - нет рамки; bssingle - рамка толщиной в 1 пиксель
|
property Break: Boolean;
|
Если содержит True, полоса располагается в новой строке, в противном случае - в той же строке, что и предыдущая полоса
|
property Control: TWinControl;
|
Указывает элемент, который содержит полоса
|
property FixedBackground: Boolean;
|
Запрещает/разрешает периодическое повто рение изображения Bitmap по всей поверхности полосы
|
property FixedSize: Boolean;
|
Запрещает/разрешает изменение размеров полосы
|
property HorizontalOnly: Boolean;
|
Предписывает показывать полосу только для значения False свойства Vertical компонента-владельца TCoolBar
|
property Imagelndex: Integers;
|
Содержит индекс связанного с полосой изображения
|
property MinHeight: Integers;
|
Определяет минимальное значение высоты полосы при изменении ее размеров
|
property MinWidth: Integers;
|
Определяет минимальное значение ширины полосы при изменении ее размеров
|
property ParentBitmap: Boolean;
|
Разрешает/запрещает использовать значение свойства Bitmap компонента-владельца TCoolBar вместо собственного свойства Bitmap
|
property Text: String;
|
Содержит текст полосы
|
property Visible: Boolean;
|
Если содержит False, полоса не видна на этапе прогона программы
|
property Width: Boolean;
|
Определяет ширину полосы в пикселях
|
Свойства компонента TCoolBar:
property AutoSize: Boolean;
|
Если содержит True, высота компонента будет автоматически согласовываться с высотой полос
|
property BandBorderStyle: TBorderStyle;
|
Определяет наличие рамок: bsNone - нет рамок; bssingle - каждая полоса имеет рамку толщиной в 1 пиксель
|
property Bands: TCoolBands;
|
Содержит список всех полос. Свойство items этого объекта открывает доступ к полосе по ее индексу
|
property Bitmap: TBitmap;
|
Определяет изображение, которое будут использовать все полосы
|
property FixedOrder: Boolean;
|
Запрещает/разрешает перемещение полос
|
property FixedHeight: Boolean;
|
Запрещает/разрешает изменение размера полос
|
property Images; TImageList;
|
Указывает контейнер для изображений, связанных с каждой полосой
|
property ShowText: Boolean;
|
Если содержит True, на полосе показывается связанный с ней текст
|
property Vertical: Boolean;
|
Если содержит True, полосы располагаются по вертикали компонента
|
Для компонента определены такие события:
|
property OnChange: TNotifyEvent;
|
Возникает при изменении свойств Break,
Index или Width у любой полосы
|
property OnResize: TNotifyEvent;
|
Возникает при изменении размеров компонента
|
назад - Вперёд
|