powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Форма в *.exe файл
12 сообщений из 12, страница 1 из 1
Форма в *.exe файл
    #33082944
Akel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Такой вот вопросик организовался, возможно ли из одной формы сделать *.exe файл, но так чтобы отображалась только одна форма и не было никакого системного меню?
Если да, то моно примерчик?

Заранее, спасибо=)
...
Рейтинг: 0 / 0
Форма в *.exe файл
    #33082957
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
http://forum.foxclub.ru/search.php?f=5&search=%22%EA%E0%EA+%F3%E1%F0%E0%F2%FC+%E3%EB%E0%E2%ED%EE%E5+%EE%EA%ED%EE%22&globalsearch=0&match=1&date=0&fldsubject=1&fldbody=1
...
Рейтинг: 0 / 0
Форма в *.exe файл
    #33083375
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Burn
это плохой путь придумайте есть лучше чесно слово
...
Рейтинг: 0 / 0
Форма в *.exe файл
    #33083477
Crispy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Создаешь в той же директории текстовый файл CONFIG.FPW, там пишешь:
SCREEN = OFF
можно и еще чего-нибудь, по вкусу :) - потом можешь вставить его в проект.
В форме свойство ShowWindow делаешь = 2 As Top-Level Form.
Все. Радуйся.
...
Рейтинг: 0 / 0
Форма в *.exe файл
    #33083546
Starpom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
1) Создаешь пустой проект.
2) создаешь main.prg (или с другим назвагием) пишешь туда.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
DO set
DO FORM Mainform.scx
* Åñëè ïðîãðàììà çàïóùåíà â "Run time version" *
IF VERSION( 2 ) =  0 
	ON SHUTDOWN DO CleanUp in main.prg
	READ EVENTS	
	DO CleanUp
ENDIF

* -Ïðîöåäóðà î÷èñòêè ïåðåä çàâåðøåíèåì ïðîãðàììû. *
PROCEDURE CleanUp

*Âîçâðàøàåì "Ñèñòåìíûé" âàðèàíò çàâåðøåíèÿ.
ON SHUTDOWN 

*Óíè÷òîæàåì ôîðìó.
IF TYPE('_SCREEN.ActiveForm') = '0' AND !ISNULL(_SCREEN.ActiveForm)
	_SCREEN.ActiveForm.Release()
ENDIF

* Åñëè ïðîãðàììà çàïóùåíà â "Run time version" *
IF VERSION( 2 ) =  0 
	QUIT	&& Âûõîäèì èç VFP îêðóæåíèÿ.
ENDIF

ENDPROC 

* --Ïðîöåäóðà óñòàíîâêè ñåòîâ.
PROCEDURE set
	SET SAFETY OFF 
	SET MEMOWIDTH TO  120 
	SET MULTILOCKS ON  && Äëÿ áóôèðèçàöèè
	SET DELETED on
	SET EXCLUSIVE OFF 
	SET BELL OFF 
	SET NEAR OFF  && ?
	SET EXACT OFF 
	SET CONFIRM on
	SET COMPATIBLE OFF 
ENDPROC 
3)Создаешь форму. в событии Unload пишешь:
Код: plaintext
1.
2.
3.
* Åñëè ïðîãðàììà çàïóùåíà â "Run time version" *
IF VERSION( 2 ) =  0 
	CLEAR EVENTS
ENDIF
4)В форме свойство ShowWindow делаешь = 2 As Top-Level Form.
5)Создаешь в той же директории текстовый файл CONFIG.FPW, там пишешь:
SCREEN = OFF
...
Рейтинг: 0 / 0
Форма в *.exe файл
    #33083568
Starpom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Что то листинг Verdsnu не взял по русски.
Скопируй исходники в WORD.
Sorry. ^-(
...
Рейтинг: 0 / 0
Форма в *.exe файл
    #33083711
Crispy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не, ну не обязательно же столько всего :)
Запуск, конечно же - из PRG файла, чтоб в нем был READ EVENTS, иначе форма мигнет - и пропадет.
А в простейшем случае достаточно и что-то вроде:

SET TALK OFF
SET DATE GERMAN && к примеру
SET SAFETY OFF
&& остальные Set-ы - по необходимости
DO FORM my_form
READ EVENTS
CLEAR EVENTS
QUIT && на всякий случай

и все. В форме на кнопочку выхода повесить thisform.release(), а крестик в углу - убрать (можно свой нарисовать - покрасивее :)
...
Рейтинг: 0 / 0
Форма в *.exe файл
    #33084070
Akel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо огромное=)
...
Рейтинг: 0 / 0
Форма в *.exe файл
    #33086384
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi Crispy!

> а крестик в углу - убрать

Не надо, это плохой стиль. Она не мешает нисколько. Главное в нужный метод CLEAR EVENTS вставить :)

Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
Форма в *.exe файл
    #33087351
Crispy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Hi, Igor Korolyov !

Да я в принципе и не против. Просто как-то в первом своем проекте я делал собственную шапочку :) - с картинкой, там и крестик в углу поставил :) ... а ведь лучше выглядел, чем обычный :)
Что интересно - делал дубль на Delphi, и был даже удивлен - оказывается в VFP гораздо проще делать очень многое для графического оформления формы, чем там!
Даже "таскание" формы за собственную шапку :) - и то проще, я уж не говорю о такой гениальной вещи, как макроподстановка фокспро! - в таком виде ее наверно нигде нет.
...
Рейтинг: 0 / 0
Форма в *.exe файл
    #33088704
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi Crispy!

Ну если ты скины делаешь, то конечно... Только я не думаю что это надо в подавляющем большинстве программ - да это уместно в развлекухе всякой - игрушках, плеерах... Но писать это всё на фоксе... Я бы не стал наверное :)

Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
Форма в *.exe файл
    #33089131
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
StarpomЧто то листинг Verdsnu не взял по русски.
Скопируй исходники в WORD.
Sorry. ^-(
Не обязательно, достаточно при Ctrl+C заранее переключиться в русскую раскладку.
С уважением, Алексей.
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Форма в *.exe файл
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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