Реклама 







Главное и контекстное меню в стиле XP ::..::..::
Для того что бы сделать главное и контекстное меню Вашей программы в стиле XP, необходимы Delphi 7 или Delphi 2005 и 4 их элемента:

1. TXPColorMap (в вкладке Additional) - хранит в себе все необходимы цвета и оттенки стиля XP (по желанию цвета можно изменять).
2. TActionManager (тоже в вкладке Additional) - отвечает за конструкцию меню.
3. TImageList (в вкладке Win32) - нужен для вставки иконок в меню (по старинке вставить в меню иконки у Вас не получится, только через этот компонент).
4. TActionMainMenuBar (в вкладке Additional) - само главное меню.
5. TPopupActionBar (так же в вкладке Additional) - контекстное меню.

Ну вот теперь Вы знаете с какими элементами будем работать, значит можно переходить к главному.

1. Для начала Вам нужно создать все выше перечисленные элементы на Вашей форме (не переименовывая).
2. В ActionMainMenuBar1 измените свойства:
       ActionManager=ActionManager1
         ColorMap=XPColorMap1

3. В ActionManager1 свойство Images задать как ImageList1, такую же операцию с таким же свойством провести в PopupActionBar1.

Для того что бы в менюшках отображались иконки (картинки) нужно проделать следующее:
1. Нажать два раза мышкой по ImageList1, откроется диалоговое окно для выбора иконок.
2. Нажмите по кнопке Add, откроется диалоговое окно для выбора иконки из папок. Выберите одну и нажмите Открыть. Такую же операцию проделать и с другими иконками (конечно же это по Вашему желанию, если Вы собираетесь вставлять в своё меню несколько иконок).
3. В конце всех операций нажмите ОК.

Теперь же приступим к созданию главного меню:
1. Щелкните два раза мышкой по элементу ActionManager1, откроется диалоговое окно для создания "скелета" меню.
2. Нажмите на кнопку New Action, в списке Actions появится элемент Action1. Выделите его, в Object Inspector появятся свойства этого элемента, в свойстве ImageIndex выберите ту картинку которую Вы вставляли в элементе ImageList1. Теперь для того что бы этот элемент будущего меню делал какие то функции, к примеру выходил из нашей программы, нажмём по Action1 2 раза и напишем команду Close;. Нажмите Close по диалоговому окну (оно закроется).
3. Теперь же просто выделите элемент ActionManager1. Нажмите два раза по его свойству ActionBars, откроется так называемый конструктор, нажмите Add New. В появившемся элементе выберите в его свойстве ActionBar ActionMenuBar1 (тем самым мы подключили верхнее (главное) которое нам нужно меню к менеджеру создания функций, которые будут выполняться в нашем меню).
4. За тем в том же элемента по его свойству Items щёлкните 2 раза, появится конструктор. Так же как и в прошлый раз нажмите Add New. В свойстве Caption появившегося элемента впишите "Файл". Так же нажмите 2 раза по свойству Items и опять же появится конструктор, нажмите Add New. В появившемся элементе в свойстве Action выберите Action1. Вот и всё наше главное меню создано. Запускайте программу и смотрите!

А вот что качается контекстного меню, то оно создаётся как и раньше, по старинке, только если Вы хотите в него вставить иконки, то только через подключение элемента ImageList1 и свойство ImageIndex.

Разместил Razer


www.ACTIVNIY.narod.ru © 2oo4 Design Idea by Razer © 2oo4
Меню

Программирование
Web-программирование
Гостевая книга
Фото галерея
Знакомства
Программы
Исходники
Учебники
Приколы
Баннеры
Новости
Опросы
Форум
Статьи
Игры
Чат
 
Программирование
Delphi
Visual Basic
Turbo Pascal
QBasic
C++
Java
 

Ссылки:


Hosted by uCoz