Панель инструментов (TToolBar & TControl Bar)

Панель инструментов (TToolBarn TControl Bar)

Желательно также сразу изменить и здесь свойство Autosize на true, чтобы па­нель принимала размеры, соответствующие кнопкам.


Таким образом, создайте две кнопки, потом разделитель и еще одну кнопку. У вас должно получиться нечто похожее на рис:Теперь создадим кнопки на панели. Для этого щелкните по ней правой кнопкой мыши и выберите из появившегося меню пункт New Button. Пункт New Separator этого же меню создает разделитель между кнопками. Если вам нужно будет уда­лить кнопку или разделитель, то просто выделяете его и нажимаете на клавиатуре клавишу <Del>.

 

В принципе, простая панель уже создана, но она простая. Теперь необ­ходимо сделать так, чтобы кнопки что- то отображали. Но для начала выдели­те саму панель и измените свойство Flat на true, чтобы кнопки на панели выглядели более изящно (плоско). Да, для современных приложений этот вид уже не такой современный, но все же достаточно удобный.

 

Теперь установим на форму компо­нент TlmageList и добавим в него три картинки. Их изображение пока не имеет особого значения, поэтому мож­но выбирать любые. Главное, чтобы размер был 16x16.

 

Выделите панель и в свойстве images укажите созданный набор картинок. На кнопках сразу же отобразятся картинки в той последовательности, в которой вы их добавили. Если вы хотите изменить картинку на какой-нибудь кнопке, надо вы­делить ее И изменить СВОЙСТВО Imageindex.

 

Для каждой кнопки в свойстве caption напишите осмысленный текст (по умол­чанию там стоит текст TooiButton плюс порядковый номер кнопки). Желательно, чтобы текст соответствовал изображению на картинке. Давайте сделаем так, чтобы панель отображала на кнопках не только картинки, но и указанный в свойствах caption текст. Для этого установите true в свойстве Showcaptions у панели инст­рументов. Результат вы можете увидеть на рис. 11.41.

Панель инструментов (TToolBarn TControl Bar)

Панель инструментов (TToolBarn TControl Bar)

Как видно, в данном случае текст отображается под изображением. Если еще установить свойство List у панели инструментов, то текст будет отображаться справа от картинки.

 

Для закрепления материала давайте создадим обработчик события для какой- нибудь из кнопок. Последняя кнопка — Выход, вот для нее и создадим обработчик.

 

Для этого дважды щелкните по ней левой кнопкой мыши и в созданной Delphi процедуре напишите close.



dle

Помоги проекту! Расскажи друзьям об этом сайте: