Довідник аматора живопису (стр. 5 из 6)

DEFINE PAD _msm_Go OF _MSYSMENU PROMPT "\<Перейти" COLOR SCHEME 3 ;

BEFORE _MWINDOW ;

KEY ALT+G, "ALT+G" ;

MESSAGE "Navigates the currently selected table, cursor, or view"

ON PAD _msm_Go OF _MSYSMENU ACTIVATE POPUP перейти

DEFINE POPUP перейти MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF перейти PROMPT "\<Начало"

DEFINE BAR 2 OF перейти PROMPT "\<Конец"

DEFINE BAR 3 OF перейти PROMPT "\<Следующая"

DEFINE BAR 4 OF перейти PROMPT "\<Предыдущая"

DEFINE BAR 5 OF перейти PROMPT "\-"

DEFINE BAR 6 OF перейти PROMPT "\<Перейти на..."

DEFINE BAR 7 OF перейти PROMPT "\<Указать..."

DEFINE BAR 8 OF перейти PROMPT "\<Сортировать по возрастанию"

DEFINE BAR 9 OF перейти PROMPT "\<Сортировать по убыванию"

DEFINE BAR 10 OF перейти PROMPT "Установить \<фильтр..."

ON SELECTION BAR 1 OF перейти APP_GLOBAL.GoTop()

ON SELECTION BAR 2 OF перейти APP_GLOBAL.GoBottom()

ON SELECTION BAR 3 OF перейти APP_GLOBAL.GoNext()

ON SELECTION BAR 4 OF перейти APP_GLOBAL.GoPrevious()

ON SELECTION BAR 6 OF перейти APP_GLOBAL.ShowTableGoToDialog()

ON SELECTION BAR 7 OF перейти APP_GLOBAL.ShowTableFindDialog()

ON SELECTION BAR 8 OF перейти APP_GLOBAL.DoSort(,,,.F.)

ON SELECTION BAR 9 OF перейти APP_GLOBAL.DoSort(,,,.T.)

ON SELECTION BAR 10 OF перейти APP_GLOBAL.ShowTableSetFilterDialog()

ON SELECTION POPUP перейти MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)

Лістинг програми керування додатку меню DOVIDNIK_GIVOPIS_MAIN.MPR

* *********************************************************

* *

* * 05/31/11 DOVIDNIK_GIVOPIS_MAIN.MPR 18:21:36

* *

* *********************************************************

* *

* * Миних

* *

* * Address

* * Кривой Рог, Zip

* * Украина

* *

* * Description:

* * This PROGRAM was automatically generated BY GENMENU.

* *

* *********************************************************

* *

* * Setup Code

* *

* *********************************************************

* This file is a generated, framework-enabling component

* created by APPBUILDER

* (c) Microsoft Corporation

#INCLUDE [..\DOVIDNIK_GIVOPIS_APP.H]

* *********************************************************

* *

* * Menu Definition

* *

* *********************************************************

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _msm_file OF _MSYSMENU PROMPT "\<Файл" COLOR SCHEME 3 ;

NEGOTIATE LEFT, NONE ;

KEY ALT+F, "" ;

MESSAGE "Creates, opens, saves, prints files or quits "+APP_GLOBAL.cCaption

DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "\<Правка" COLOR SCHEME 3 ;

KEY ALT+E, "" ;

MESSAGE "Edits text or current selection"

DEFINE PAD _msm_tools OF _MSYSMENU PROMPT "\<Сервис" COLOR SCHEME 3 ;

KEY ALT+T, ""

DEFINE PAD _msm_run OF _MSYSMENU PROMPT "\<Живопись" COLOR SCHEME 3 ;

NEGOTIATE LEFT, NONE ;

KEY ALT+G, "" ;

MESSAGE "Запуск форму, отчётов, запросов по живописи"

DEFINE PAD _msm_prog OF _MSYSMENU PROMPT "\<Программа" COLOR SCHEME 3 ;

NEGOTIATE MIDDLE, NONE ;

KEY ALT+P, "" ;

MESSAGE "Runs, debugs, compiles, and suspends programs"

DEFINE PAD _msm_fave OF _MSYSMENU PROMPT "И\<збранное" COLOR SCHEME 3 ;

KEY ALT+A, "ALT+A" ;

MESSAGE "Easy access to favorite documents"

DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "\<Окно" COLOR SCHEME 3 ;

NEGOTIATE RIGHT, NONE ;

KEY ALT+W, ""

DEFINE PAD _msm_systm OF _MSYSMENU PROMPT "\<Помощь" COLOR SCHEME 3 ;

KEY ALT+H, ""

ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP файл

ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP правка

ON PAD _msm_tools OF _MSYSMENU ACTIVATE POPUP сервис

ON PAD _msm_run OF _MSYSMENU ACTIVATE POPUP живопись

ON PAD _msm_prog OF _MSYSMENU ACTIVATE POPUP программа

ON PAD _msm_fave OF _MSYSMENU ACTIVATE POPUP избранное

ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP окно

ON PAD _msm_systm OF _MSYSMENU ACTIVATE POPUP помощь

DEFINE POPUP файл MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF файл PROMPT "\<Создать..." ;

MESSAGE "Creates a document"

DEFINE BAR 2 OF файл PROMPT "\<Открыть..." ;

MESSAGE "Opens a document"

DEFINE BAR 3 OF файл PROMPT "\<Закрыть" ;

SKIP FOR TYPE("_SCREEN.Activeform") # "O" OR _SCREEN.ActiveForm.ShowWindow = 2 ;

MESSAGE "Closes the active form"

DEFINE BAR 4 OF файл PROMPT "\-"

DEFINE BAR 5 OF файл PROMPT "\<Сохранить" ;

SKIP FOR EMPTY(AUSED(latemp)) ;

MESSAGE "Saves the editing on the current form or formset"

DEFINE BAR 6 OF файл PROMPT "\<Отменить" ;

SKIP FOR EMPTY(AUSED(latemp)) ;

MESSAGE "Reverts the editing on the current form or formset"

DEFINE BAR 7 OF файл PROMPT "\-"

DEFINE BAR 8 OF файл PROMPT "Печат\<ь..." ;

SKIP FOR EMPTY(AUSED(latemp)) ;

MESSAGE "Prints current data"

DEFINE BAR 9 OF файл PROMPT "\<Печать отчётов..." ;

MESSAGE "Picks a report"

DEFINE BAR 10 OF файл PROMPT "На\<стройки печати...."

DEFINE BAR 11 OF файл PROMPT "\-"

DEFINE BAR 12 OF файл PROMPT "\<Быстрый старт..." ;

MESSAGE "Picks a form or report document to run"

DEFINE BAR 13 OF файл PROMPT "\<Логин..." ;

MESSAGE "Log in as a different User"

DEFINE BAR 14 OF файл PROMPT "\-"

DEFINE BAR 15 OF файл PROMPT "В\<ыход" ;

MESSAGE "Exit "+APP_GLOBAL.cCaption

ON SELECTION BAR 1 OF файл APP_GLOBAL.DoNewOpen(.T.)

ON SELECTION BAR 2 OF файл APP_GLOBAL.DoNewOpen()

ON SELECTION BAR 3 OF файл IIF(APP_GLOBAL.QueryDataSessionUnload(),APP_GLOBAL.ReleaseForm(),.T)

ON SELECTION BAR 5 OF файл APP_GLOBAL.DataUpdate()

ON SELECTION BAR 6 OF файл APP_GLOBAL.DataRevert()

ON SELECTION BAR 8 OF файл APP_GLOBAL.DoTableOutput()

ON SELECTION BAR 9 OF файл APP_GLOBAL.DoReportDialog()

ON SELECTION BAR 10 OF файл SET PRINTER TO NAME (SYS(1037))

ON SELECTION BAR 12 OF файл APP_GLOBAL.DoStartupForm()

ON SELECTION BAR 13 OF файл IIF(APP_GLOBAL.ReleaseForms(),IIF(APP_GLOBAL.SetCurrentUser(.T.),.T., APP_GLOBAL.Release()),.T.)

ON SELECTION BAR 15 OF файл APP_GLOBAL.Release()

DEFINE POPUP правка MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR _med_undo OF правка PROMPT "\<Отменить" ;

KEY CTRL+Z, "Ctrl+Z" ;

MESSAGE "Undoes the last command or action"

DEFINE BAR _med_redo OF правка PROMPT "По\<вторить" ;

KEY CTRL+R, "Ctrl+R" ;

MESSAGE "Repeats the last command or action"

DEFINE BAR _med_sp100 OF правка PROMPT "\-"

DEFINE BAR _med_cut OF правка PROMPT "Вы\<резать" ;

KEY CTRL+X, "Ctrl+X" ;

MESSAGE "Removes the selection and places it onto the Clipboard"

DEFINE BAR _med_copy OF правка PROMPT "\<Копировать" ;

KEY CTRL+C, "Ctrl+C" ;

MESSAGE "Copies the selection onto the Clipboard"

DEFINE BAR _med_paste OF правка PROMPT "\<Вставить" ;

KEY CTRL+V, "Ctrl+V" ;

MESSAGE "Pastes the contents of the Clipboard"

DEFINE BAR _med_clear OF правка PROMPT "Очи\<стить" ;

MESSAGE "Removes the selection and does not place it onto the Clipboard"

DEFINE BAR _med_sp200 OF правка PROMPT "\-"

DEFINE BAR _med_slcta OF правка PROMPT "Вы\<брать всё" ;

KEY CTRL+A, "Ctrl+A" ;

MESSAGE "Selects all text or items in the current window"

DEFINE BAR _med_sp300 OF правка PROMPT "\-"

DEFINE BAR _med_find OF правка PROMPT "\<Найти..." ;

KEY CTRL+F, "Ctrl+F" ;

MESSAGE "Searches for specified text"

DEFINE BAR _med_finda OF правка PROMPT "Найти е\<щё раз" ;

KEY CTRL+G, "Ctrl+G" ;

MESSAGE "Repeats the last search"

DEFINE BAR _med_repl OF правка PROMPT "З\<аменить..." ;

KEY CTRL+L, "Ctrl+L" ;

MESSAGE "Replaces specified text with different text"

DEFINE POPUP сервис MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF сервис PROMPT "М\<акрос..." ;

MESSAGE "Creates, deletes, or revises a keyboard macro"

DEFINE BAR 2 OF сервис PROMPT "\<Логи ошибок"

DEFINE BAR 3 OF сервис PROMPT "\-"

DEFINE BAR 4 OF сервис PROMPT "\<Опции..."

DEFINE BAR 5 OF сервис PROMPT "\<Сменить пароль..."

ON BAR 1 OF сервис ACTIVATE POPUP макрос

ON BAR 2 OF сервис ACTIVATE POPUP логиошибок

ON SELECTION BAR 4 OF сервис APP_GLOBAL.DoOptionsDialog()

ON SELECTION BAR 5 OF сервис APP_GLOBAL.DoChangePassword()

DEFINE POPUP макрос MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF макрос PROMPT "\<Записать макрос"

DEFINE BAR 2 OF макрос PROMPT "\<Очистить макрос"

DEFINE BAR 3 OF макрос PROMPT "\<Сохранить макрос по умолчанию"

DEFINE BAR 4 OF макрос PROMPT "Восстановить \<макрос по умолчанию"

ON SELECTION BAR 1 OF макрос KEYBOARD ("{"+SET("MACKEY")+"}")

ON SELECTION BAR 2 OF макрос CLEAR MACROS

ON SELECTION BAR 3 OF макрос APP_GLOBAL.SetMacros(.T.)

ON SELECTION BAR 4 OF макрос APP_GLOBAL.SetMacros()

DEFINE POPUP логиошибок MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF логиошибок PROMPT "\<Показать лог ошибок"

DEFINE BAR 2 OF логиошибок PROMPT "\<Експортировать лог"

DEFINE BAR 3 OF логиошибок PROMPT "\<Очистить лог"

ON SELECTION BAR 1 OF логиошибок APP_GLOBAL.DisplayErrorLog()

ON SELECTION BAR 2 OF логиошибок APP_GLOBAL.ExportErrorLog()

ON SELECTION BAR 3 OF логиошибок APP_GLOBAL.PurgeErrorLog()

DEFINE POPUP живопись MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF живопись PROMPT "\<ФОРМЫ"

DEFINE BAR 2 OF живопись PROMPT "\<ОТЧЁТЫ"

DEFINE BAR 3 OF живопись PROMPT "\<ЗАПРОСЫ"

DEFINE BAR 4 OF живопись PROMPT "\<ПРЕДСТАВЛЕНИЯ"

ON BAR 1 OF живопись ACTIVATE POPUP формы

ON BAR 2 OF живопись ACTIVATE POPUP отчёты

ON BAR 3 OF живопись ACTIVATE POPUP запросы

ON BAR 4 OF живопись ACTIVATE POPUP представле

DEFINE POPUP формы MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF формы PROMPT "\<Художники"

DEFINE BAR 2 OF формы PROMPT "\<Картины"

DEFINE BAR 3 OF формы PROMPT "\<Эпохи"

DEFINE BAR 4 OF формы PROMPT "\<Музеи"

ON SELECTION BAR 1 OF формы DO FORM "H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\artists.scx"

ON SELECTION BAR 2 OF формы DO FORM "H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\pictures.scx"

ON SELECTION BAR 3 OF формы DO FORM "H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\epoch.scx"

ON SELECTION BAR 4 OF формы DO FORM "H:\Visual FoxPro Projects\Dovidnik_givopis\FORMS\museums.scx"

DEFINE POPUP отчёты MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF отчёты PROMPT "\<КАРТИНЫ"

DEFINE BAR 2 OF отчёты PROMPT "\<ЭПОХИ"

ON SELECTION BAR 1 OF отчёты REPORT FORM "H:\Visual FoxPro Projects\Dovidnik_givopis\REPORTS\KARTINI.FRX " PREVIEW

ON SELECTION BAR 2 OF отчёты REPORT FORM " H:\Visual FoxPro Projects\Dovidnik_givopis\REPORTS\EPOHI.FRX " PREVIEW

DEFINE POPUP запросы MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF запросы PROMPT "\<Художники"

DEFINE BAR 2 OF запросы PROMPT "\<Картины да Винчи"

ON SELECTION BAR 1 OF запросы DO "h:\visual foxpro projects\dovidnik_givopis_2\queries\query1_hud.qpr"

ON SELECTION BAR 2 OF запросы DO "h:\visual foxpro projects\dovidnik_givopis_2\queries\query2_kart.qpr"

DEFINE POPUP представле MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF представле PROMPT "\<Живопись"

ON SELECTION BAR 1 OF представле ;

DO _38c13cokn ;

IN LOCFILE("DOVIDNIK_GIVOPIS_2\MENUS\DOVIDNIK_GIVOPIS_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is DOVIDNIK_GIVOPIS_MAIN?")

DEFINE POPUP программа MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR _mpr_do OF программа PROMPT "\<Запустить..." ;

MESSAGE "Runs a program, application, form, report, query, or menu"

DEFINE BAR _mpr_cancl OF программа PROMPT "\<Отменить" ;

MESSAGE "Stops running the current program"

DEFINE BAR _mpr_resum OF программа PROMPT "\<Продолжить" ;

MESSAGE "Resumes running the current suspended program"

DEFINE BAR _mpr_suspend OF программа PROMPT "\<Остановить" ;

MESSAGE "Suspends the currently running program"

DEFINE BAR _mpr_compl OF программа PROMPT "С\<компилировать..." ;

MESSAGE "Compiles the current or selected program"

DEFINE BAR 6 OF программа PROMPT "\-"

DEFINE BAR 7 OF программа PROMPT "Отл\<адчик"

DEFINE BAR 8 OF программа PROMPT "С\<ессии данных"

DEFINE BAR 9 OF программа PROMPT "Ко\<мандная строка"

DEFINE BAR 10 OF программа PROMPT "\-"

DEFINE BAR _mtl_browser OF программа PROMPT "Проводник \<классов" ;

MESSAGE "Runs the Class Browser"

ON SELECTION BAR 7 OF программа DEBUG

ON SELECTION BAR 8 OF программа APP_GLOBAL.ActivateSystemWindow("View")

ON SELECTION BAR 9 OF программа APP_GLOBAL.ActivateSystemWindow("Command")

DEFINE POPUP избранное MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF избранное PROMPT "\<Добавить в избранное..." ;

MESSAGE "Add to Favorites menu"

DEFINE BAR 2 OF избранное PROMPT "\<Очистить избранное" ;

MESSAGE "Clear list of Favorites"

DEFINE BAR 3 OF избранное PROMPT "\-"

ON SELECTION BAR 1 OF избранное APP_GLOBAL.DoStartupForm(.T.)

ON SELECTION BAR 2 OF избранное APP_GLOBAL.ClearFavorites()

DEFINE POPUP окно MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF окно PROMPT "\<Каскадом"

DEFINE BAR _mwi_arran OF окно PROMPT "\<Организовать вс" ;