Здравствуйте!
Помогите пожалуйста с заданием в 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]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!
Модератор.
Спасибо