Множественный выбор элементов меню

[Сергей80]

Здравствуйте!
Помогите пожалуйста с заданием в foxpro.
Есть такое задание:
Требуется создать меню в котором можно осуществлять выбор двух пунктов и при этом они должны помечаться **
вот мое меню, созданное в конструкторе меню
код:

LPARAMETERS oFormRef, getMenuName, lUniquePopups, parm4, parm5, parm6, parm7, parm8, parm9
LOCAL cMenuName, nTotPops, a_menupops, cTypeParm2, cSaveFormName
IF TYPE("m.oFormRef") # "O" OR ;
  LOWER(m.oFormRef.BaseClass) # 'form' OR ;
  m.oFormRef.ShowWindow # 2
	MESSAGEBOX([This menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.])
	RETURN
ENDIF
m.cTypeParm2 = TYPE("m.getMenuName")
m.cMenuName = SYS(2015)
m.cSaveFormName = m.oFormRef.Name
IF m.cTypeParm2 = "C" OR (m.cTypeParm2 = "L" AND m.getMenuName)
	m.oFormRef.Name = m.cMenuName
ENDIF
IF m.cTypeParm2 = "C" AND !EMPTY(m.getMenuName)
	m.cMenuName = m.getMenuName
ENDIF
DIMENSION a_menupops[3]
IF TYPE("m.lUniquePopups")="L" AND m.lUniquePopups
	FOR nTotPops = 1 TO ALEN(a_menupops)
		a_menupops[m.nTotPops]= SYS(2015)
	ENDFOR
ELSE
	a_menupops[1]="_40o0zazjz"
	a_menupops[2]="aannaeiu"
	a_menupops[3]="aaoneeanaa"
ENDIF


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

DEFINE MENU (m.cMenuName) IN (m.oFormRef.Name) BAR

DEFINE PAD _40p0v8id5 OF (m.cMenuName) PROMPT "Nioeaeuiua iauaeou" COLOR SCHEME 3 ;
	NEGOTIATE  NONE, MIDDLE ;
	KEY ALT+N, ""
ON PAD _40p0v8id5 OF (m.cMenuName) ACTIVATE POPUP (a_menupops[1])

DEFINE POPUP (a_menupops[1]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[1]) PROMPT "Aannaeiu"
DEFINE BAR 2 OF (a_menupops[1]) PROMPT "Aaoneea naau"
DEFINE BAR 3 OF (a_menupops[1]) PROMPT "Iaaaceiu"
DEFINE BAR 4 OF (a_menupops[1]) PROMPT "Iieeeeeieee"
DEFINE BAR 5 OF (a_menupops[1]) PROMPT "Eiiao"
ON BAR 1 OF (a_menupops[1]) ACTIVATE POPUP (a_menupops[2])
ON BAR 2 OF (a_menupops[1]) ACTIVATE POPUP (a_menupops[3])
ON SELECTION BAR 5 OF (a_menupops[1]) ;
	DO _40p0v8id6 ;
	IN LOCFILE("VISUAL FOXPRO PROJECTS\MYMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU1?")

DEFINE POPUP (a_menupops[2]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[2]) PROMPT "Aiiieiaiea"
DEFINE BAR 2 OF (a_menupops[2]) PROMPT "Oaaeaiea" ;
	MESSAGE "Ia?aa oaaeaieai iiiaouoa caienu"
DEFINE BAR 3 OF (a_menupops[2]) PROMPT "I?enoea AA"
DEFINE BAR 4 OF (a_menupops[2]) PROMPT "Ia?aou"
DEFINE BAR 5 OF (a_menupops[2]) PROMPT "Auoia"
ON SELECTION BAR 1 OF (a_menupops[2]) ;
	DO _40p0v8id7 ;
	IN LOCFILE("VISUAL FOXPRO PROJECTS\MYMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU1?")
ON SELECTION BAR 2 OF (a_menupops[2]) ;
	DO _40p0v8id8 ;
	IN LOCFILE("VISUAL FOXPRO PROJECTS\MYMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU1?")
ON SELECTION BAR 3 OF (a_menupops[2]) ;
	DO _40p0v8id9 ;
	IN LOCFILE("VISUAL FOXPRO PROJECTS\MYMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU1?")
ON SELECTION BAR 4 OF (a_menupops[2]) ;
	DO _40p0v8ida ;
	IN LOCFILE("VISUAL FOXPRO PROJECTS\MYMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU1?")
ON SELECTION BAR 5 OF (a_menupops[2]) ;
	DO _40p0v8idb ;
	IN LOCFILE("VISUAL FOXPRO PROJECTS\MYMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU1?")

DEFINE POPUP (a_menupops[3]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[3]) PROMPT "Aiiieiaiea"
DEFINE BAR 2 OF (a_menupops[3]) PROMPT "Oaaeaiea"
DEFINE BAR 3 OF (a_menupops[3]) PROMPT "I?enoaea AA"
DEFINE BAR 4 OF (a_menupops[3]) PROMPT "Ia?aou"
DEFINE BAR 5 OF (a_menupops[3]) PROMPT "Eiiao"
ON SELECTION BAR 1 OF (a_menupops[3]) ;
	DO _40p0v8idc ;
	IN LOCFILE("VISUAL FOXPRO PROJECTS\MYMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU1?")
ON SELECTION BAR 2 OF (a_menupops[3]) ;
	DO _40p0v8idd ;
	IN LOCFILE("VISUAL FOXPRO PROJECTS\MYMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU1?")
ON SELECTION BAR 3 OF (a_menupops[3]) ;
	DO _40p0v8ide ;
	IN LOCFILE("VISUAL FOXPRO PROJECTS\MYMENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU1?")
ON SELECTION BAR 4 OF (a_menupops[3]) do form print
ON SELECTION BAR 5 OF (a_menupops[3]) quit

ACTIVATE MENU (m.cMenuName) NOWAIT

IF m.cTypeParm2 = "C"
	m.getMenuName = m.cMenuName
	m.oFormRef.Name = m.cSaveFormName 
ENDIF

куда и как надо поместить multiselect чтобы все получилось?




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Спасибо