powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Cannot Quit Visual FoxPro
6 сообщений из 6, страница 1 из 1
Cannot Quit Visual FoxPro
    #32449831
воул
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Обстоятельства вынудили меня начать изучение Visual FoxPro 6 (до этого я писал на C++),
поэтому очень прошу помочь, даже если мой вопрос покажется глупым.
А вопрос в том, что когда я создаю приложение мастером Application Wizard, то не могу
потом найти где в проекте поменять первоначальные настройки. У меня вместо кириллицы в заголовке
приложения и в окне splash только часть букв отображаются правильно. Я раскрыл библиотеку
MyApp_app, раскрыл объект app_slash, там в этом лейбле ввобще написано Application name, а не то
что я вводил. Я изменил надпись, перекомпилировал всё, запустил, но показывает опять тоже самое.
Как же тогда поменять первоначальные настройки?
Потом решил создать проект без помощи мастера Application Wizard, заголовок (русский) прописал в
файл config.fpw, splash-окно не стал делать. Заголовок отобразился нормально. Это здорово, но при этом
окно приложения не закрывается если щёлкнуть по крестику, а выдаёт сообщение
"Cannot Quit Visual FoxPro". В главном файле проекта я написал:

do mainmenu.mpr
read event
Как сделать чтобы закрытие работало нормально и вообще правильна ли эта структура
главного файла?
Помогите кто знает. Я смотрел книги по Visual Foxpro но там в основном описано как
делать приложения "кликанием". Смотрел в MSDN за июль 2001, но тоже ничего не нашел.
Заранее большое спасибо!
...
Рейтинг: 0 / 0
Cannot Quit Visual FoxPro
    #32449842
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
При выходе
Clear Events
...
Рейтинг: 0 / 0
Cannot Quit Visual FoxPro
    #32449850
bdv9
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
** Главный файл
Clear All
Close All
Clear Prog
Clear Macros

On ShutDown Do PQuit   && Закрытие по крестику

With _Screen
	.BackColor = RGB( 192 ,  192 ,  192 )
	.WindowState =  2 
	.Caption = 'Моя программа.'
EndWith

Do mainmenu.MPR

Read Events

Do PQuit


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
** Выход из программы
PROCEDURE PQuit

On ShutDown
** Закрытие форм
Local i

For i = _Screen.FormCount To  1  Step - 1 
	_Screen.Forms(i).Activate()
	_Screen.Forms(i).Hide()
	_Screen.Forms(i).WindowType =  0 
	_Screen.Forms(i).Release()
EndFor
** Закрытие БД и т.д.
Close All
Release All
Set Sysm To Defa
Quit

EndProc
...
Рейтинг: 0 / 0
Cannot Quit Visual FoxPro
    #32449910
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Cannot Quit Visual FoxPro
    #32450003
воул
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо всем большое!
Уважаемый bdv9 я скопировал Ваш код в свой главный файл и у меня всё заработало! Только поясните в процедуре PQuit строка On ShutDown это вызов какой-то стадартной обработки этого события или что-то другое?
...
Рейтинг: 0 / 0
Cannot Quit Visual FoxPro
    #32450056
Urri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
On ShutDown без параметров - это выключение On-обработчика на событие ShutDown, который ранее был взведен командой On ShutDown Do PQuit.
Ведь мы уже в этой самой PQuit и уже выполняем те действия, которые нужны по On ShutDown ;-)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Cannot Quit Visual FoxPro
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]