Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Развернуть форму при повторном обращении к ней / 2 сообщений из 2, страница 1 из 1
11.01.2008, 11:59
    #35055322
karpi
karpi
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Развернуть форму при повторном обращении к ней
Добрый день!
При первом запуске формы с пункта меню происходит открытие формы и развертывание ее на весь экран. Далее, сворачиваю е не закрывая и снова с пункта меню пытаюсь ее запустить. Форма развертывается но не на весь экран. Что можно сделать, чтобы произошло развертывание при повторном запуске?
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2008, 13:42
    #35055824
lo-pata
lo-pata
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Развернуть форму при повторном обращении к ней
У меня работает так:

У формы есть свойство prevstate, по умолчанию 0. На ресайз формы
Код: plaintext
1.
2.
IF this.WindowState #  1 
	this.prevstate = this.WindowState 
ENDIF

А формы вызываются не do form, а через свою процедурку doform:
Код: 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.
PROCEDURE DoForm

	LPARAMETERS lcFormName, lcPar, lcRet
	
	IF WEXIST(lcFormName)
		ACTIVATE WINDOW &lcformname
		IF _screen.activeform.windowstate =  1 
			_screen.activeform.windowstate = IIF(VARTYPE(_screen.activeform.prevstate) # 'U', ;
												_screen.activeform.prevstate,  0 )
		ENDIF 
		RETURN .t.
	ELSE 
		IF VARTYPE(lcPar)='C'
			IF VARTYPE(lcRet)='C'
				DO FORM (lcFormName) WITH &lcPar TO &lcRet
			ELSE 
				DO FORM (lcFormName) WITH &lcPar
			ENDIF 	
		ELSE
			IF VARTYPE(lcRet)='C' 
				DO FORM (lcFormName) TO &lcRet
			ELSE 
				DO FORM (lcFormName)
			ENDIF 	
		ENDIF 	

		RETURN .f. 	
	ENDIF 

ENDPROC

т.е. запуск формы выглядит как doform('formname',...)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Развернуть форму при повторном обращении к ней / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 312ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1588305]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 53ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 29ms
get tp. blocked users:
 1ms
others: 194ms
total:  312ms
x
x
Закрыть


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