Marked |
Если равно значению True, то кнопка подсвечивается |
|
цветом выделенных элементов (стандартно — синим |
|
цветом). |
MenuItem |
Пункт меню, с которым ассоциирована кнопка. При |
|
установке этого свойства из соответствующего пункта |
|
меню копируются значения наиболее важных свойств и |
|
событий, например Caption, ImageIndex, Enabled, Hint, |
|
OnClick. |
Style |
Тип кнопки: tbsButton — обычная кнопка, tbsCheck — |
|
кнопка-переключатель, tbsDivider — разделитель в виде |
|
вертикальной черты, tbsDropDown — выпадающий |
|
список, tbsSeparator — разделитель в виде вертикальной |
|
черты или пробела в зависимости от значения свойства |
|
Flat компонента ToolBar. |
Wrap |
Обеспечивает перенос последующих кнопок на новую |
|
строку. |
Таблица 8.16. Важнейшие свойства компонента ToolButton
8.5.3. Значки на кнопках
Главным атрибутом кнопки является значок. Он определяется значением свойства ImageIndex (номер значка в списке Images компонента ToolBar). Установим на кнопках значки, воспользовавшись ранее созданным списком ImageList.
Шаг 57. Выделите на форме компонент ToolBar, перейдите к окну свойств и установите свойству Images значение ImageList (рисунок 8.57).
Рисунок 8.57. На кнопках панели инструментов появились значки
Вот здорово! На всех кнопках появились разные значки, хотя мы не устанавливали свойство ImageIndex ни в одной из кнопок. Это произошло потому, что компонент ToolBar сделал
311
это за нас, назначив каждой кнопке номер значка в соответствии с очередностью добавления кнопок на панель.
Признаемся, что мы немного схитрили, заранее расположив значки в компоненте ImageList в том порядке, в котором они расположены на панели инструментов. В реальных задачах вам, вероятно, потребуется вручную указывать номера значков для каждой кнопки с помощью свойства ImageIndex.
8.5.4. Надписи на кнопках
Шаг 58. Кнопка может содержать надпись рядом со значком. Текст надписи устанавливается в свойстве Caption. Сначала он не виден и, чтобы его показать, задайте в компоненте
ToolBar свойству ShowCaptions значение True (рисунок 8.58).
Рисунок 8.58. Кнопки панели инструментов могут содержать надписи (свойство
ShowCaptions равно True)
Результат получился немного неожиданный: стандартные надписи на кнопках эквивалентны их программным идентификаторам и расположены под значками вместо того, чтобы находиться справа.
Шаг 59. Подправим надписи. В окне свойств переключите свойство List в значение True
(рисунок 8.59).
312
Рисунок 8.59. Надписи на кнопках располагаются справа от значков (свойство List равно
True)
Как вы уже догадались, свойство List управляет расположением текста и значков относительно друг друга.
Шаг 60. Теперь измените надписи на кнопках (свойство Caption), чтобы получить панель инструментов, показанную на рисунке 8.60.
Рисунок 8.60. Кнопкам заданы правильные надписи
Шаг 61. Чтобы панель инструментов выглядела лучше, подгоним размеры кнопок под размеры надписей. Для этого воспользуемся свойством AutoSize, которое есть у каждой кнопки. При установке этого свойства применим технику группового редактирования компонентов.
313
Шаг 62. Выделите щелчком мыши первую кнопку, а затем, удерживая клавишу Shift, выделите щелчками мыши все остальные кнопки. В окне свойств произойдут следующие изменения:
вместо имени активного компонента будет показано общее количество выделенных компонентов:
в списке свойств останутся только общие для выделенных компонентов свойства и события;
свойства и события, которые у выделенных компонентов имеют разные значения, окажутся пустыми.
Перейдите к окну свойств и установите свойство AutoSize в значение True (рисунок 8.61).
Рисунок 8.61. Применение техники группового редактирования при установке во всех кнопках свойства AutoSize в значение True
Теперь выполните компиляцию и запустите программу. Результат представлен на рисунке
8.62.
314
Рисунок 8.62. Программа для просмотра графических файлов имеет панель инструментов, однако кнопки пока еще не работают
Кнопки нажимаются, но реакции на них пока нет. Мы этим займемся потом, а сейчас придадим панели инструментов более современный вид. Избавимся от чрезмерного количества 3D-эффектов на кнопках.
Шаг 63. Закройте приложение и вы вернетесь в среду Delphi. Выделите на форме компонент ToolBar и переключите его свойство Flat в значение True. Теперь снова запустите программу и полюбуйтесь на результат (рисунок 8.63).
Рисунок 8.63. Кнопки панели инструментов получили современный «плоский» вид
Кнопки приобретают рельефный вид только при наведении на них указателя мыши.
8.5.5. Разделительные линии
315
Важными элементами панели инструментов являются разделительные линии, которые используются для группировки кнопок.
Шаг 64. В нашем примере логично отделить группу кнопок, отвечающих за размеры рисунка
(Half Size, Normal Size и Double Size), от кнопок Open и Save As. Для этого вызовите контекстное меню панели инструментов и выберите команду New Separator (рисунок 8.64).
Рисунок 8.64. Создание разделительной линии на панели инструментов с помощью команды New Separator контекстного меню
На панель инструментов будет добавлен новый компонент, имеющий вид вертикальной черты. С помощью мыши отбуксируйте его на место между кнопками Save As и Half Size
(рисунок 8.65):
316
Рисунок 8.65. Буксировка разделительной линии на место между кнопками Save As и Half Size
Выполните компиляцию и запустите программу. Результат представлен на рисунке 8.66.
Рисунок 8.66. Кнопки на панели инструментов внешне сгруппированы по назначению
Напоследок заметим, что разделительная линия представлена обычным компонентом ToolButton. То, какой вид имеет этот компонент (кнопка или разделительная линия), определяется свойством Style. Это свойство имеет много значений, которые перечислены в таблице 8.16.
8.5.6. Кнопки-переключатели
Кнопки панели инструментов могут работать как переключатели, «залипая» при нажатии. Для того, чтобы кнопка была переключателем, ее свойство Style должно содержать значение tbsCheck. Состояние кнопки (нажата она или нет) определяется значением свойства Down.
Кнопки-переключатели могут работать согласовано, т.е. включение одной из них означает выключение остальных. Именно так должны работать кнопки выбора масштаба отображения рисунка. Согласованная работа кнопок обеспечивается не так, как согласованная работа пунктов меню. Кнопки панели инструментов не имеют свойства GroupIndex, они группируются по другому принципу. Сгруппированными считаются расположенные рядом кнопки, у которых свойство Grouped равно значению True и свойство Style равно значению tbsCheck.
Шаг 65. Сгруппируйте кнопки Half Size, Normal Size и Double Size. Они уже находятся рядом друг с другом, поэтому просто установите их свойства Grouped и Style как показано на рисунке 8.67.
317
Рисунок 8.67. Кнопки Half Size, Normal Size и Double Size сгруппированы в трехпозиционный переключатель
У кнопки Normal Size установите свойство Down в значение True, предварительно убрав выделение кнопок Half Size и Normal Size (рисунок 8.68).
Рисунок 8.68. Начальное положение трехпозиционного переключателя — Normal Size
Выполните компиляцию и запустите программу. Проверьте, что кнопки Half Size, Normal Size и Double Size работают как трехпозиционный переключатель (рисунок 8.69).
318
Рисунок 8.69. Кнопки-переключатели в работе
Шаг 66. Завершая дизайн панели инструментов, сделайте кнопки Save As, Half Size, Normal Size и Double Size недоступными, установив у них свойство Enabled в значение False (рисунок 8.70). Эти кнопки будут оставаться недоступными, пока пользователь не откроет какой-нибудь рисунок.
Рисунок 8.70. Некоторые кнопки на панели инструментов отключены до тех пор, пока пользователь не откроет какой-нибудь графический файл
Теперь все готово к тому, чтобы запрограммировать обработчики для кнопок панели инструментов.
8.5.7. Обработка нажатий кнопок
При нажатии кнопок возникают события OnClick, которые должны обрабатываться точно так же, как и команды меню. Поскольку все события OnClick имеют одинаковый формат для всех компонентов, просто подключите к кнопкам уже существующие обработчики событий.
319
Шаг 67. Группа кнопок, управляющих масштабом рисунка, должна правильно переключаться даже тогда, когда пользователь устанавливает масштаб с помощью команд меню. Поэтому дополните обработчики событий так, как показано ниже:
procedure TPictureForm.HalfSizeMenuItemClick(Sender: TObject); begin
HalfSizeToolButton.Down := True; // кнопка согласуется с пунктом меню
...
end;
procedure TPictureForm.NormalSizeMenuItemClick(Sender: TObject); begin
NormalSizeToolButton.Down := True; // кнопка согласуется с пунктом меню
...
end;
procedure TPictureForm.DoubleSizeMenuItemClick(Sender: TObject); begin
DoubleSizeToolButton.Down := True; // кнопка согласуется с пунктом меню
...
end;
Шаг 68. Чтобы кнопки становились доступными или недоступными в зависимости от того, открыт рисунок или нет, подправьте метод EnableCommands:
procedure TPictureForm.EnableCommands(Enable: Boolean); begin
...
SaveAsToolButton.Enabled := Enable; HalfSizeToolButton.Enabled := Enable; NormalSizeToolButton.Enabled := Enable; DoubleSizeToolButton.Enabled := Enable;
end;
Вроде бы все. После компиляции и запуска программы вы получите работающую панель инструментов (рисунок 8.71). Нажмите кнопку Open и выберите рисунок. Когда рисунок откроется, все остальные кнопки станут доступными. Понажимайте кнопки, отвечающие за масштаб, и убедитесь, что они работают согласовано с командами меню.
Рисунок 8.71. Программа для просмотра графических файлов получила работоспособную панель инструментов
Панель инструментов работоспособна, но в ней не хватает одной мелочи — подсказок к кнопкам.
320