Использование компонента TCoolBar или как создавать кульные панели инструментовDelphi , Компоненты и Классы , КомпонентыИспользование компонента TCoolBar или как создавать кульные панели инструментов
Оформил: DeeCo (Перевод одноимённой статьи с сайта delphi.about.com) Большинство современных приложений Windows имеют несколько панелей инструментов (тулбаров). В их числе, такие распространённые программные продукты как Microsoft Internet Explorer, MS Word и Delphi IDE. В этой статье рассказывается о компоненте-контейнере CoolBar, который может содержать другие компоненты, такие как тулбары, выпадающие списки и т.д. TCoolBar Создать 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-ах Вот так должен выглядеть результат проделанных шагов
(запущенная программа): Немного
программирования
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. Процедура 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;
TControlBar Ссылки Компонент TMenubar. Это потомок TToolbar, имеющий свойство меню, которое позволяет связывать TMainMenu с панелью инструментов (toolbar). После этого компонент включает все пункты меню в тулбар. Использование компонента TCoolBar или как создавать кулиные панели инструментов для своих приложений Windows. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Компоненты ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |