Нужно создать "пустое меню" m_genapp и в режиме "Edit Source" заменить весь текст вот на это :
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.
63.
64.
forward
global type m_genapp from menu
end type
end forward
global type m_genapp from menu
event ue_postconstructor ( )
event ue_destructor ( )
end type
global m_genapp m_genapp
type variables
end variables
event ue_postconstructor();/*********
event ue_postconstructor()
Предназначен для начальных настроек меню
Нужно через "Edit Source" откорректировать
- - - - - -
on m_genapp.create
m_genapp=this
call super::create
This.Postevent("ue_postconstructor")
end on
- - - - -
************/
//MessageBox("Create",Classname(This))
end event
event ue_destructor();/*********
event ue_destructor()
Предназначен для корректного destroy в меню
Нужно через "Edit Source" откорректировать
- - - - - -
on m_genapp.destroy
This.event ue_destroy()
call super::destroy
end on
on m_genapp.create
m_genapp=this
call super::create
This.Postevent("ue_postconstructor")
end on
- - - - -
************/
end event
on m_genapp.create
m_genapp=this
call super::create
This.Postevent("ue_postconstructor")
end on
on m_genapp.destroy
This.event ue_destructor()
call super::destroy
end on
-----------------
Суть в том , что у такого меню появляются события ue_postconstructor и ue_destroy
Теперь "корневое" меню приложения с названием m_genapp_root, которое используется для наследования различных меню нужно сделать наследником этого m_genapp
Делается это так - в режиме "Edit Source" в теле меню нужно найти строку вида
global type m_genapp_root from menu
таких строк должно быть две - обьявление и реализация - и заменить их на строку
global type m_genapp_root from m_genapp
После сохранения - убедиться что теперь ваше меню m_genapp_root имеет ancestor-а m_genapp
Отныне во всех наследниках вы гарантированно получаете пару событий для самого корневого item меню -
ue_postconstructor & ue_destroy
которые можно использовать для управления самим меню изнутри в момент создания в событии ue_postconstructor.
Предлагается вариант - все "управляемые" пункты меню делаются невидимыми. В полях TAG прописывается некая непустая строка-маска.
Можно рекурсивно собрать все пункты меню с непустой маской и по заданному соглашению применения маски вы определяете в каких случаях - {класс sheet, роль и права пользователя и др..} - этот пункт делается видимым.
Причем удобно , чтобы в теле события Clicked() управляемых пунктов меню применялось только выражения типа
1.
lw_current_sheet.Postevent("ue_<name_item>")
в таком случае даже если такого события для листа нет - системной ошибки Null-обращения не будет
