FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9112
Вход
Оперативное меню для разработчика.

Простое SHORTCUT меню для быстрого открытия ваших файлов. Для тех кто работает мышкой и устает делать 1-2 лищних клика по 100 раз. Ес-но лучше запустить при старте VFP.


 
Прислал: SergeyF   Категория: Инструменты разработчика


Оперативное меню.

set talk on
*SET PROCEDURE TO vfpstart ADDI &&MARK CHR(3) MULTISELECT
DEFINE POPUP bibibi MARGIN RELATIVE SHORTCUT TITLE \'.Main menu.\'
*KEY RIGHTMOUSE ACTIVATE POPUP bibibi AT mrow(),mcol() nowait
DEFINE BAR 1 OF bibibi PROMPT \"Open Forms\"
DEFINE BAR 2 OF bibibi PROMPT \"Open Project\"
DEFINE BAR 3 OF bibibi PROMPT \"Open Program\"
DEFINE BAR 4 OF bibibi PROMPT \"Open Class\"
DEFINE BAR 5 OF bibibi PROMPT \"Open Menu\"
DEFINE BAR 6 OF bibibi PROMPT \"Open Report\"
DEFINE BAR 7 OF bibibi PROMPT \"Open Query\"
DEFINE BAR 8 OF bibibi PROMPT \"Open View\"
DEFINE BAR 9 OF bibibi PROMPT \"Open Table\"
DEFINE BAR 10 OF bibibi PROMPT \"Modify Table\"
DEFINE BAR 11 OF bibibi PROMPT \"Delete this menu\"
DEFINE BAR 12 OF bibibi PROMPT \"Exit\"

ON SELECTION BAR 1 OF bibibi MODIFY FORM ? NOWAIT
ON SELECTION BAR 2 OF bibibi MODIFY PROJECT ? NOWAIT
ON SELECTION BAR 3 OF bibibi MODIFY COMMAND ? NOWAIT
ON SELECTION BAR 4 OF bibibi MODIFY CLASS ? NOWAIT
ON SELECTION BAR 5 OF bibibi MODIFY MENU ? NOWAIT
ON SELECTION BAR 6 OF bibibi MODIFY REPORT ? NOWAIT
ON SELECTION BAR 7 OF bibibi MODIFY QUERY ? NOWAIT
ON SELECTION BAR 8 OF bibibi MODIFY VIEW ?
ON SELECTION BAR 9 OF bibibi do bdi in vfpstart
ON SELECTION BAR 10 OF bibibi MODIFY STRUCTURE
ON SELECTION BAR 11 OF bibibi RELEASE POPUPS bibibi
ON SELECTION BAR 12 OF bibibi Quit
*MODIFY DATABASE
*MODIFY PROCEDURE
*SET MARK OF POPUP bibibi TO .t.

on key label RIGHTMOUSE do opmen in vfpstart
CANCEL

PROCEDURE opmen
Private ss
ss=WONTOP()
if (mcol(ss)<0.or.mrow(ss)<0.or.Empty(ss)).and.Empty(WOUTPUT())
ACTIVATE POPUP bibibi AT mrow(),mcol() &&nowait
endif
return

PROCEDURE bdi
Use ? &&IN 0
if !Empty(Alias())
Browse last normal nowait
endif
return
*......................................................

 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.884)
Дополнения пользователей
Оперативное меню для разработчика.
[+][?]
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика