FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9268
Вход
Кнопка с "выпадающим" меню

Класс кнопки на базе кнопок... :) Попытка реализации кнопки (наподобие эксплореровкой "назад") с "выпадающей" менюшкой.


 
Прислал: Deil   Категория: Интерфейс

Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (2.214) Вложение [11.83]kb
Дополнения пользователей
Кнопка с "выпадающим" меню
[+][?]
Aries
31.05.07 18:00:16

И зачем столько сложностей?
Второе, помести контейнер в тулбар и проверь как работать
будет.

Третье: Вот тоже самое :)
LOCAL lnBar,lnRow,lnCol,lnScale,lnLeft
**************************************
lnScale=THISFORM.ScaleMode
lnLeft=THIS.Left
THIS.Left=THIS.Left-1
THISFORM.ScaleMode=0
**************
lnRow=THIS.Top+THIS.Height
lnCol=THIS.Left
**************
THISFORM.ScaleMode=lnScale
THIS.Left=lnLeft
**************************************
DEFINE POPUP MyPrintMenu SHORTCUT FROM lnRow,lnCol 
DEFINE BAR 1 OF MyPrintMenu PROMPT "Первое меню" ;
  PICTURE "bmp\doc.small.bmp"
DEFINE BAR 2 OF MyPrintMenu PROMPT "\-"
DEFINE BAR 3 OF MyPrintMenu PROMPT "Второе меню" ;
  PICTURE "bmp\doc.small.bmp"
****************************
ON SELECTION POPUP MyPrintMenu DEACTIVATE POPUP
*******************************
ACTIVATE POPUP MyPrintMenu
lnBar=BAR()
RELEASE POPUPS MyPrintMenu
*********************************
И зачем городить столько то?
Aries
31.05.07 18:00:58

Это я копирнул менюшку из клика кнопки :)
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика