Пишешь класс , ну к примеру xxx_menu
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
DEFINE CLASS xxx_menu as Custom
Procedure Init
LPARAMETERS oMFrm
define menu (oMFrm.Name) in (oMFrm.Name) bar
DEFINE PAD Pad_Station OF (oMFrm.name) PROMPT "\<Станция" COLOR SCHEME 3
ON PAD Pad_Station OF (oMFrm.name) ACTIVATE POPUP Popup_Station
DEFINE POPUP Popup_Station MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Popup_Station PROMPT '\<Запуск станции' PICTURE "next_square16.gif" && DoRun
DEFINE BAR 3 OF Popup_Station PROMPT '\-'
DEFINE BAR 10 OF Popup_Station PROMPT '\<Пользователи системы' PICTURE "user_properties16_h.ico"
DEFINE BAR 9 OF Popup_Station PROMPT '\<Системные настройки' PICTURE "view16.ico"
DEFINE BAR 6 OF Popup_Station PROMPT '\<Настройки линий' PICTURE "edit_square16_h.gif"
DEFINE BAR 7 OF Popup_Station PROMPT '\-'
DEFINE BAR 8 OF Popup_Station PROMPT '\<Завершение работы' PICTURE "cancel_square16_h.gif"
DEFINE PAD Pad_test OF (oMFrm.name) PROMPT "\<Cервис" COLOR SCHEME 3
ON PAD Pad_test OF (oMFrm.name) ACTIVATE POPUP Popup_test
DEFINE POPUP Popup_test MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Popup_test PROMPT '\<Плюс' PICTURE "insert_square16.gif" &&
DEFINE BAR 2 OF Popup_test PROMPT '\<Минус' PICTURE "delete_square16_d.gif" &&
DEFINE BAR 3 OF Popup_test PROMPT '\-'
DEFINE BAR 4 OF Popup_test PROMPT '\<Блокировать' PICTURE "refresh_square16.gif"
DEFINE BAR 5 OF Popup_test PROMPT '\<Разблокировать' PICTURE "refresh_square16_d.gif"
DEFINE BAR 6 OF Popup_test PROMPT '\-'
DEFINE BAR 7 OF Popup_test PROMPT '\<Звук ВЫКЛ' PICTURE "cancel_square16_d.gif"
DEFINE PAD Pad_Stat OF (oMFrm.name) PROMPT "\<Cтатистика" COLOR SCHEME 3
ON PAD Pad_Stat OF (oMFrm.name) ACTIVATE POPUP Popup_stat
DEFINE POPUP Popup_stat MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF Popup_stat PROMPT '\<Тарифные зоны' PICTURE "db_sql_procedure16.ico" &&
DEFINE BAR 2 OF Popup_stat PROMPT '\<Маршрутные индексы' PICTURE "db_sql_execute16_h.ico" &&
DEFINE BAR 3 OF Popup_stat PROMPT '\-'
DEFINE BAR 4 OF Popup_stat PROMPT '\<Общая наработка' PICTURE "sql_script_save16_h.ico"
DEFINE PAD Pad_Help OF (oMFrm.name) PROMPT "\<Помощь" COLOR SCHEME 3
ON PAD Pad_Help OF (oMFrm.name) ACTIVATE POPUP Popup_Help
DEFINE POPUP Popup_Help MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 9 OF Popup_Help PROMPT '\<О программе'
DEFINE BAR 10 OF Popup_Help PROMPT '\<Справка по системе'
* Управление линиями
ON SELECTION BAR 1 OF Popup_Station m.oFrm.OnRun()
ON SELECTION BAR 6 OF Popup_Station m.oFrm.RuleLine()
ON SELECTION BAR 8 OF Popup_Station m.oFrm.OnClose()
ON SELECTION BAR 9 OF Popup_Station m.oFrm.OnNastr()
ON SELECTION BAR 10 OF Popup_Station m.oFrm.OnUsers()
*Сервиис
ON SELECTION BAR 1 OF Popup_test m.oFrm.SetTest( m.oFrm.nSelectPort,m.oFrm.nSelectLine, 1 ) &&PROMPT '\<Плюс' PICTURE "insert_square16.gif" &&
ON SELECTION BAR 2 OF Popup_test m.oFrm.SetTest( m.oFrm.nSelectPort,m.oFrm.nSelectLine, 2 ) &&PROMPT '\<Минус' PICTURE "delete_square16_d.gif" &&
ON SELECTION BAR 4 OF Popup_test m.oFrm.SetTest( m.oFrm.nSelectPort,m.oFrm.nSelectLine, 3 ) &&PROMPT '\<Блокировать' PICTURE "refresh_square16.gif"
ON SELECTION BAR 5 OF Popup_test m.oFrm.SetTest( m.oFrm.nSelectPort,m.oFrm.nSelectLine, 4 ) &&PROMPT '\<Разблокировать' PICTURE "refresh_square16_d.gif"
ON SELECTION BAR 7 OF Popup_test m.oFrm.SetTest( m.oFrm.nSelectPort,m.oFrm.nSelectLine, 5 ) &&PROMPT '\<Звук ВЫКЛ' PICTURE "cancel_square16_d.gif"
* Статистика
ON SELECTION BAR 1 OF Popup_stat m.oFrm.onZone()
ON SELECTION BAR 2 OF Popup_stat m.oFrm.onMarch()
ON SELECTION BAR 4 OF Popup_stat m.oFrm.onNar()
acti menu (oMFrm.name) nowait
endproc
enddefine
Вот тебе рабочий пример.
oFrm - объект где лежат твои методы для выполнения по выбору меню.
Как понимаешь могут лежать где угодно и не обязательно объект передавать как параметр, можно и глобально объявить, тогда тут вообще никаких парметров не нужно.
Пользоваться так:
1.
2.
set procedure to твой_файл_с классом. prg additive
Local lo_menu as Object
lo_menu = createobject("xxx_menu")
Например.
