Помещает определение меню в стек памяти, в котором хранятся определения меню.

PUSH POPUP MenuName

Параметры

MenuName

Задает имя меню, определение которого помещается в стек. Это может быть и имя системного меню Visual FoxPro.

Expand imageЗамечания

Команда POP POPUP при совместном использовании с командой PUSH POPUP дает возможность сохранить определение меню, внести изменения в определение меню, а затем восстановить определение меню в его первоначальное состояние.

Определения меню заносятся в стек и извлекаются из него по схеме "последний вошел, первый вышел". Определения меню используют память, потому чтобы удостовериться, что использование памяти вашего приложения не растет излишне, каждой команде PUSH POPUP должна соответствовать команда POP POPUP.

Expand imageПример

В следующем примере создается меню popExam. Определение меню заносится в стек, а затем модифицируется. После этого извлечением из стека восстанавливается исходное меню.

  CopyCode imageCopy Code
DEFINE POPUP popExam FROM 5,5
DEFINE BAR 1 OF popExam PROMPT 'One'
DEFINE BAR 2 OF popExam PROMPT 'Two'
DEFINE BAR 3 OF popExam PROMPT 'Three'
DEFINE BAR 4 OF popExam PROMPT 'Four'
ACTIVATE POPUP popExam NOWAIT
PUSH POPUP popExam 
WAIT 'Original Popup' WINDOW
RELEASE BAR 2 OF popExam 
WAIT 'Modified Popup. Original Popup is pushed to a stack.' WINDOW
POP POPUP popExam 
WAIT 'Original Popup restored' WINDOW
DEACTIVATE POPUP popExam 
RELEASE POPUP popExam 

Expand imageСмотрите также