(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
erwin Data Modeler Navigator Edition r9.7 - Product plus 1 Year Enterprise Maintenance Commercial
NauDoc Enterprise 10 рабочих мест
SAP Crystal Reports XI R2 Dev 2006 INTL WIN NUL License (Version 11)
VCL Subscription
VideoStudio X9 ULTIMATE. Электронный ключ.
 
Другие предложения...
 
Курсы обучения   WWW.ITSHOP.RU
 
Другие предложения...
 
Магазин сертификационных экзаменов   WWW.ITSHOP.RU
 
Другие предложения...
 
3D Принтеры | 3D Печать   WWW.ITSHOP.RU
 
Другие предложения...
 
Новости по теме
 
Рассылки Subscribe.ru
Информационные технологии: CASE, RAD, ERP, OLAP
Новости ITShop.ru - ПО, книги, документация, курсы обучения
Программирование на Microsoft Access
CASE-технологии
СУБД Oracle "с нуля"
Мир OLAP и Business Intelligence: новости, статьи, обзоры
Работа в Windows и новости компании Microsoft
 
Статьи по теме
 
Новинки каталога Download
 
Исходники
 
Документация
 
Обсуждения в форумах
Работа в интернете.. (4)
Может тут кто имеет опыт работы в сети? И подскажет мне что нить?
 
Кто, что знает за карту рассрочки Совесть? (2)
Иногда требуется купить что-то очень нужное, но выделить средства нет возможности. В этом случае...
 
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)
 
 
 



    
rambler's top100 Rambler's Top100