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

Заранее, спасибо=)
...
Рейтинг: 0 / 0
24.05.2005, 21:12:43
    #33082957
Burn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма в *.exe файл
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
25.05.2005, 10:51:23
    #33083375
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма в *.exe файл
2Burn
это плохой путь придумайте есть лучше чесно слово
...
Рейтинг: 0 / 0
25.05.2005, 11:37:15
    #33083477
Crispy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма в *.exe файл
Создаешь в той же директории текстовый файл CONFIG.FPW, там пишешь:
SCREEN = OFF
можно и еще чего-нибудь, по вкусу :) - потом можешь вставить его в проект.
В форме свойство ShowWindow делаешь = 2 As Top-Level Form.
Все. Радуйся.
...
Рейтинг: 0 / 0
25.05.2005, 14:07:09
    #33083546
Starpom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма в *.exe файл
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
25.05.2005, 14:15:10
    #33083568
Starpom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма в *.exe файл
Что то листинг Verdsnu не взял по русски.
Скопируй исходники в WORD.
Sorry. ^-(
...
Рейтинг: 0 / 0
25.05.2005, 15:21:05
    #33083711
Crispy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма в *.exe файл
Не, ну не обязательно же столько всего :)
Запуск, конечно же - из 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
25.05.2005, 18:38:32
    #33084070
Akel
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма в *.exe файл
Спасибо огромное=)
...
Рейтинг: 0 / 0
27.05.2005, 00:26:41
    #33086384
Igor Korolyov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Форма в *.exe файл
Hi Crispy!

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

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

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

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

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

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


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