VPF::FoxPro 26. исчезает Горизонтальное Меню

freebsdd

Дата 5.2.2011, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 14.12.2010

Репутация: нет
Всего: нет

Здрравствуйте!..
-

Создаю проект, первое - это горизонтально меню меню (File Action Exit)... К Каждому пункту - POPUP меню, так вот вопрос:
Если выбрать Какой либо пункт POPUP меню, открывается к примеру окно (или просто @ X,Y SAY ... GET), перехожу в окно (мышкой) или в поле GET, исчезает Горизонтальное меню и программа завершается...
А Если делать цикл DO ... WHILE (Как показано в коде), Цикл не даёт перейти в окно, пожалуйста подскажите, что я делаю не так?

Код таков:

Код


SET TALK OFF
SET ESCAPE OFF
SET SAFETY OFF
SET date german
SET delete on
CLEAR ALL
CLEAR

fam = 'asdasdasd2'
tab = 'ghjghjghj2'
famqw='        '
iexit = 0

&& DEFINE WINDOW kadr FROM 5,7 TO 19,70 COLOR SCHEME 10 SHADOW;
&&     TITLE 'Dannie...' + DTOC(DATE());
&&     FOOTER 'Exit Without Changing - Ctrl-End'

&& ACTIVATE WINDOW kadr NOSHOW

DEFINE MENU mainmenu SHADOW
  DEFINE PAD iFile     OF mainmenu PROMPT '\<File'          SKIP
  DEFINE PAD iAction OF mainmenu PROMPT '\<Actions'
  DEFINE PAD iExit     OF mainmenu PROMPT '\<Exit'         SKIP

ON PAD iAction    OF mainmenu ACTIVATE POPUP iAction

DEFINE POPUP iAction  && FROM 5,0 MARGIN SHADOW
 DEFINE BAR 1 OF iAction PROMPT '\<Filter'
 DEFINE BAR 2 OF iAction PROMPT '\<Search'
 DEFINE BAR 3 OF iAction PROMPT '\<-'
 DEFINE BAR 4 OF iAction PROMPT '\<Exit' && SKIP
ON SELECTION POPUP iAction DO p2 WITH POPUP(),PROMPT(),BAR()

&& ACTIVATE POPUP iAction

ACTIVATE MENU mainmenu

DO WHILE .T.


    IF iexit > 0
        CLEAR
        CLEAR ALL

        EXIT
    ENDIF
ENDDO                                                              


PROCEDURE p2
PARAMETER ipopup, iprompt, ibar

    clear

    IF(iprompt = 'Exit')
        iexit = 1
        DEACTIVATE POPUP iAction
        return
    ENDIF

    IF(SUBSTR(iprompt,1,6) = 'Filter')

        && SHOW WINDOW kadr                                                 

        @ 10,8 SAY 'FIO::' GET  famqw
        @ 12,8 SAY 'REZULT::' + famqw


        && @ 5,9 TO 15,70 DOUBL
        && @ 5,15 SAY ' Filter '
        && @ 8,13 SAY 'Enter Family::' GET fam


    ENDIF

    && @ 14,17 SAY '|                                 |'
    && @ 14,20 SAY iprompt

RETURN

**---------------------------------------

С Уважением, freebsdd...

pogodin

Дата 6.2.2011, 10:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 18.3.2008

Репутация: нет
Всего: нет

по моему так и должно быть - меню надо активировать все время, если это не системное меню (_MSYSMENU)

freebsdd

Дата 6.2.2011, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 14.12.2010

Репутация: нет
Всего: нет

Цитата(pogodin @ 6.2.2011, 10:18)

по моему так и должно быть - меню надо активировать все время, если это не системное меню (_MSYSMENU)

Спасибо, однако я::

Код


DEFINE MENU mainmenu BAR IN SCREEN AT LINE 1 KEY ALT+Z MARK CHR(254)
  DEFINE PAD iFile   OF mainmenu PROMPT '\<File'
  DEFINE PAD iAction OF mainmenu PROMPT '\<Actions'
  DEFINE PAD iExit   OF mainmenu PROMPT '\<Exit'    && SKIP

...........


ACTIVATE MENU mainmenu NOWAIT

Она просто добавилась ниже Главного меню, Всё работает, без DO ... WHILE, пока устраивает...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Foxpro/Clipper/Dbase \| Следующая тема »