powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / set skip
3 сообщений из 3, страница 1 из 1
set skip
    #32168139
РусланVFP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не могу понять! Если Skip for, для определённого пункта меню, поставить в .T.(пункт меню становится Enable=false), на этапе разработки, то во время выполнения программы, кодом обратно в Enable=true поставить нельзя? Глюк какой-то ???
...
Рейтинг: 0 / 0
set skip
    #32168199
Фотография 1024
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Меню до сих пор необъектное. Нужно переопределить пункт.
...
Рейтинг: 0 / 0
set skip
    #32168218
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2РусланVFP

Если нужно управлять доступностью меню самостоятельно, то лучше определить его без опции SKIP FOR и установить SET SKIP ручками.
Например:
Код: plaintext
1.
2.
DEFINE PAD test OF _msysmenu PROMPT 'test' 
SET SKIP OF PAD test OF _msysmenu .T.
SET SKIP OF PAD test OF _msysmenu .F.

В случае, когда используется опция SKIP FOR, фокс самостоятельно вычисляет доступность меню, нужно лишь обновлять главное окно.
В след. примере пункт меню будет недоступен, когда окно максимизировано:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
PUBLIC x
DEFINE PAD test OF _msysmenu PROMPT 'test' ;
SKIP FOR _screen.WindowState=  2 
x=CREATEOBJECT('scrn')
DEFINE CLASS scrn as Custom 
oSrc=_screen
PROCEDURE oSrc.Resize
	_screen.Refresh
ENDPROC 
ENDDEFINE 
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / set skip
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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