С чего начать?

Обсуждение вопросов по разработке программ в среде продуктов копорации "Progress Software"
sega1999
Новичок
Сообщения: 8
Зарегистрирован: 16 авг 2016, 16:49

С чего начать?

Сообщение sega1999 » 18 авг 2016, 11:33

Народ, я человек в PROGRESS новый, поэтому не бейте.
Нужно в окне по кнопке F2 вызвать диалоговое окно с запросом на фильтрацию по полям.
Объясните с чего начать и в какой последовательности.
Работаем через TELNET с UNIX.

Аватара пользователя
Arelav
Администратор
Сообщения: 1880
Зарегистрирован: 25 мар 2005, 17:05
Откуда: Progress Technologies
Контактная информация:

Re: С чего начать?

Сообщение Arelav » 18 авг 2016, 14:20

Не уверен, что в терминальной сессии получится перехватить F2, эта клавиша нацелена на help ($DLC/src/applhelp.p), но в win работает такой код:

Код: Выделить всё

DEFINE VARIABLE act AS CHARACTER NO-UNDO.
DEFINE FRAME f1 WITH SIZE 78 BY 3.

act = "Action".
PROCEDURE Action:
    Message LAST-EVENT:LABEL view-as alert-box. /* здесь использовать любой необходимый код*/
END.

ON "F2" ANYWHERE
DO:
  RUN VALUE(act).
  RETURN.
END.

ENABLE ALL WITH FRAME f1.
WAIT-FOR CLOSE OF CURRENT-WINDOW.


Если у вас в терминале это не сработает, то можно попробовать заменить на какую-нибудь другую комбинацию клавиш. Например CTRL-F

Код: Выделить всё

ON "CTRL-F" ANYWHERE
DO:
  RUN VALUE(act).
  RETURN.
END.

sega1999
Новичок
Сообщения: 8
Зарегистрирован: 16 авг 2016, 16:49

Re: С чего начать?

Сообщение sega1999 » 18 авг 2016, 14:22

Спасибо!!! Будем разбираться!!!