Define Class cMenu As Custom
	Procedure Init
		Define Menu (m.oFrm.Name) In (m.oFrm.Name) Bar
		Define Pad Pad_Station Of (m.oFrm.Name) Prompt "\<Станция" Color Scheme  3 
		On Pad Pad_Station Of (m.oFrm.Name)  Activate Popup Popup_Station
		Define Popup Popup_Station Margin Relative Shadow Color Scheme  4 
		Define Bar  1   Of Popup_Station   Prompt  '\<Запуск станции'
		Define Bar  3   Of Popup_Station   Prompt  '\-'
		Define Bar  10  Of Popup_Station   Prompt  '\<Пользователи системы'
		Define Bar  9   Of Popup_Station   Prompt  '\<Системные настройки'
		Define Bar  6   Of Popup_Station   Prompt  '\<Настройки линий'
		Define Bar  7   Of Popup_Station   Prompt  '\-'
		Define Bar  8   Of Popup_Station   Prompt  '\<Завершение работы'

		Acti Menu (oFrm.Name)  Nowait

		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()
Enddefine 

 SET CLASSLIB [имя файла в котром у тебя описан класс cMenu ] additive

PUBLIC oFrm as Object
this.AddProperty("frm_menu",CREATEOBJECT("cMenu")) 

 define menu (oFRM.Name) in (oFRM.Name) bar
DEFINE PAD Main OF (oFRM.name) PROMPT 'Система' COLOR SCHEME  3     
ON PAD Main OF (oFRM.name) ACTIVATE POPUP SubPud
	DEFINE POPUP SubPud MARGIN RELATIVE COLOR SCHEME  7 
	DEFINE BAR  1  OF SubPud PROMPT '\<Клиенты'     
	ON BAR  1  OF SubPud ACTIVATE POPUP Acc
				DEFINE POPUP Acc MARGIN RELATIVE SHADOW COLOR SCHEME  4 
						DEFINE BAR  1   OF Acc PROMPT '\<Добавить'
						DEFINE BAR  3   OF Acc PROMPT '\<Удалить'
						
...........