(495) 925-0049, ITShop интернет-магазин 229-0436, Учебный Центр 925-0049
  Главная страница Карта сайта Контакты
Поиск
Вход
Регистрация
Рассылки сайта
 
 
 
 

Конференция "Gupta/Centura (Gupta Technologies)"

Обсуждение вопросов, связанных с компанией Unify/Gupta (Gupta Technologies), ее продуктами Team Developer, SQLBase и др.

 
 
Добавить сообщение »

Тема: Работа с меню

Автор:  Lelik Дата: 07.06.2001 18:35
Вопрос: Хочется с помощью API функций блокировать пункты меню.
С главным меню все получается. С подменю нет. Вот кусок кода. Может быть есть какая то изюмина или это просто глюк у СTD. Версия у меня 1.1.0. Спасибо заранее.
!Главное меню
Set nPointMenu = GetMenu( hWndForm )
Set nMenuItemCount = GetMenuItemCount( nPointMenu )
If nMenuItemCount = -1
Return TRUE
While nCount < nMenuItemCount
Set strMenuItemName '**********************'
Call GetMenuStringA( nPointMenu,
nCount,
strMenuItemName,
SalStrLength( strMenuItemName )+10,
MF_BYPOSITION )
Call SalSetProfileString( 'OK',strMenuItemName, '1', 'eltom.ini' )
Call SalGetProfileString( 'OK', strMenuItemName, 'ERROR', tr, 'eltom.ini' )
If not str = 'ERROR' and SalStrToNumber( str ) = 0
Set nTemp = EnableMenuItem( nPointMenu, nCount,MF_BYPOSITION / MF_DISABLED / MF_GRAYED)
Set nCount = nCount + 1

! Подменю
Set nCount = 0
Set nPointMenu1 =GetSubMenu( GetMenu( hWndForm ), 4 )
Set nMenuItemCount = GetMenuItemCount( nPointMenu1 )
If nMenuItemCount = -1
Return TRUE
While nCount < nMenuItemCount
Set strMenuItemName = '***************************************'
Call GetMenuStringA( nPointMenu1,
nCount,
strMenuItemName,
SalStrLength( strMenuItemName )+10,
MF_BYPOSITION )
Call SalGetProfileString( 'OK', strMenuItemName, 'ERROR', str, 'eltom.ini' )
If not str = 'ERROR' and SalStrToNumber( str ) = 0
Set nTemp = EnableMenuItem( nPointMenu1, nCount,MF_BYPOSITION / MF_DISABLED / MF_GRAYED)
Set nTemp = GetMenuState( nPointMenu, nCount,MF_BYPOSITION )

! Здесь я вижу, что на самом деле статус моего пункта меню
!изменился на нужный, но на экране все по старому
Set nCount = nCount + 1
Set nTemp = DrawMenuBar( frmMain )
Ответить на сообщение »
 

Добавить сообщение »

 Распечатать »
 Правила публикации »
   
 Рекомендовать »  
 

Магазин программного обеспечения   WWW.ITSHOP.RU
Q 1.0 for Windows Single User
SmartBear QAComplete Concurrent User Subscription License - On Premise (1 Year Subscription)
ESET NOD32 Smart Security Business Edition newsale for 5 user, лицензия на 1 год
ESET NOD32 Smart Security - продление лицензии на 2 года на 3ПК, Ключ
ABBYY Lingvo x6 Европейская Профессиональная версия, электронный ключ
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
СУБД Oracle "с нуля"
3D и виртуальная реальность. Все о Macromedia Flash MX.
ЕRP-Форум. Творческие дискуссии о системах автоматизации
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
ODBC: dBase CREATE TABLE... (9)
Есть проблема Из программы на CTD 2.0 PTF3 подключаемся к DBF-файлам Set SqlDatabase='Файлы...
 
TD 6.2 SP4 Ошибка при установке (5)
Добрый день! Кто-нибудь устанавливал TD 6.2 SP4 на Win7? В конце процесса установке выдаётся...
 
PMC (4)
Подскажите как формируется Product Media Code или ключик к SqlWindows 510 ( CTD510)
 
Работа клиента Сеntura с клиентами Оракл 10, тонким клиентом, net client (3)
Есть клиент, написанный на Centura, исходников нет Работает только с клиентами Оракл 8 и 9 Ни...
 
подключение к Centura SQLBase server 6.1.2 (3)
есть приложение (клиент-банк) с вышеуказанной базой. В приложении для подключения к базе...
 
 
 



    
rambler's top100 Rambler's Top100