LOCAL lnBar,lnRow,lnCol,lnScale,lnLeft
**************************************
lnScale=THISFORM.ScaleMode
lnLeft=THIS.Left
THIS.Left=THIS.Left-1
THISFORM.ScaleMode=0
**************
lnRow=THIS.Top+THIS.Height
lnCol=THIS.Left
**************
THISFORM.ScaleMode=lnScale
THIS.Left=lnLeft
**************************************
DEFINE POPUP z_menu SHORTCUT MARGIN FROM lnRow,lnCol
DEFINE BAR 1 OF z_menu PROMPT "1.Отчет" &&PICTURE "picture1.bmp"
DEFINE BAR 2 OF z_menu PROMPT "2.Отчеты №2..." &&PICTURE "picture2.bmp"
DEFINE BAR 3 OF z_menu PROMPT "3.Отчеты №3..." &&PICTURE "picture3.bmp"
DEFINE BAR 4 OF z_menu PROMPT "4.Отчет №4..." &&PICTURE "picture4.bmp"
DEFINE BAR 5 OF z_menu PROMPT "5.Суммарный отчет ..." &&PICTURE "picture5.bmp"
DEFINE BAR 6 OF z_menu PROMPT "6.Отчет №6" &&PICTURE "picture6.bmp"
DEFINE BAR 7  OF z_menu PROMPT "\-"
DEFINE BAR 8 OF z_menu PROMPT "7.Отчет №7" &&PICTURE "picture7.bmp"
&&И так далее 30 пунктов

ON BAR 2 OF z_menu ACTIVATE POPUP z_menu2
ON BAR 3 OF z_menu ACTIVATE POPUP z_menu3
ON BAR 4 OF z_menu ACTIVATE POPUP z_menu4

DEFINE POPUP z_menu2 SHORTCUT
DEFINE BAR 1 OF z_menu2 PROMPT "2.1.Отчет №2.1"
DEFINE BAR 2 OF z_menu2 PROMPT "2.2.Отчет №2.1"

DEFINE POPUP z_menu3 SHORTCUT
DEFINE BAR 1 OF z_menu3 PROMPT "3.1.Отчет №2.1"
DEFINE BAR 2 OF z_menu3 PROMPT "3.2.Отчет №3.2"
DEFINE BAR 3 OF z_menu3 PROMPT "3.3.Отчет №3.3"

DEFINE POPUP z_menu4 SHORTCUT
DEFINE BAR 1 OF z_menu4 PROMPT "4.1.Отчет №4.1"
DEFINE BAR 2 OF z_menu4 PROMPT "4.2.Отчет №4.2"
DEFINE BAR 3 OF z_menu4 PROMPT "4.3.Отчет №4.3"

ON SELECTION POPUP ALL DEACTIVATE POPUP z_menu

ACTIVATE POPUP z_menu