9.Создание всплывающего меню
Работу с всплывающим меню можно разделить на два этапа:
создание меню;
подключение этого меню к определенному компоненту формы.
Для создания всплывающего меню в среде Delphi существует компонент PoupeMenu, расположенный на закладке Standart Палитры компонентов. Расположив его на форме, можно задавать пункты, используя свойство Items. После вызова редактора меню (см. Рис. 6), задаются в каждой новой строчке новый пункт меню.
Рис. 6. Редактор всплывающего меню
Для подключения созданного меню к какому-либо объекту приложения необходимо в свойстве PopupMenu объекта указать значение поля Name всплывающего меню (в нашем случае это PopupMenu1).
Необходимо отметить, что практически любой объект имеет в своем арсенале данной свойство.
Задание 11
Создайте всплывающее меню для своего приложения, включающее пункты Шрифт, Очистка, Цвет фона.
Проверьте работоспособность данного меню.
Примечание
Если вы все сделали правильно, то Ваше меню работать не должно!
Исправить положение можно, выполнив следующие действия:
Записать тела процедур обработки выбора пунктов всплывающего меню аналогично процедурам обработки событий выбора пунктов главного меню.
Пригласите преподавателя и продемонстрируйте работу всплывающего меню.
10.Создание панели инструментов
Итак, остался последний
штрих в создании текстового редактора
– это добавление панели инструментов
следующего вида:
Создание любой панели инструментов можно осуществить в три этапа:
Создание структуры панели инструментов;
Оформление панели инструментов;
Определение пунктов главного меню, которые кнопки данной панели будут дублировать.
Создание структуры панели инструментов
Инструментальная
панель (панель инструментов)
предназначена для быстрого доступа к
часто используемым функциям приложения
с помощью инструментальных быстрых
кнопок. Компонент ToolBar располагается
на закладке Win32 Палитры компонентов.
Для создания инструментальной панели необходимо выполнить следующие действия:
Занести на панель кнопки.
Для занесения на панель ToolBar кнопок надо щелкнуть на панели правой клавишей мыш и выбрать команду New Button.
Задание 12
Занесите пять кнопок на панель инструментов.
Установить стиль каждой кнопки.
Каждая из этих кнопок имеет свое имя, например, ToolButton1 или ToolButton5. Каждая из этих кнопок может быть одного из пяти стилей (отвечает свойство Style):
В нашем случае нам необходимо пять кнопок. Четыре из них стиля tbsButton и одна как разделитель любого варианта.
Задание 13
Установите стили кнопок.
Оформление панели инструментов
Создать список пиктограмм, необходимых для кнопок.
Данный список создается
с помощью компонента
ImageList (список изображений), расположенный
на закладке Win32 Палитры компонентов.
Данный компонент необходим для указания
для каждого изображения его индекса.
Задание 14
Поместите компонент на форму;
Выполните двойной щелчок по данному невизуальному компоненту для раскрытия редактора списка изображений. Внешний вид его такой:
Добавьте изображения из файлов Fileopen.bmp, FileSave.bmp, Filenew.bmp, Print.bmp из папки Редактор.
Щелкните по кнопке OK.
Указать в значении свойства Images компонента ToolBar имя списка изображений, т.е.ImageList1 для определения возможных ввариантов.
Установить для каждой кнопки значение свойства ImageIndex согласно их назначению.
Задание 15
Запустите приложение и проверьте, что пиктограммы верно занимают свои места.