Отправлено: 05.09.13 11:07. Заголовок: PopUpMenu Class

Кто-нибудь работал с PopUpMenu Class ?
В примере menu.prg описано построение горизонтального меню.
А как сделать вертикальное ?

Вот такой пример не проходит:
oPopUp := PopUp(10,10,20)

oItem :=MenuItem( "Продукция (товар)" ,{|| M1() },,, 1)
oPopUp:AddItem( oItem)

oItem :=MenuItem( "Виды продукции (товара)" ,{|| M2() },,,2)
oPopUp:AddItem( oItem)

oItem :=MenuItem( "Единицы измерения" ,{|| M3() },,,3)
oPopUp:AddItem( oItem)

oPopUp:Display()

Что ещё нужно ?

 Отправлено: 05.09.13 15:47. Заголовок: Какой Clipper , кака..

Какой Clipper , какая библа ?

 Отправлено: 05.09.13 16:08. Заголовок: Изначально в Clipper..

Изначально в Clipper 5.3 появился данный класс.
Это не дополнительная библиотека а встроен в Clipper.
В Harbour также реализован.
Пример из SOURCE\SAMPLE\menu.prg в Harbour норм. работает.
Но это горизонтальное меню. Я хотел просто вертикальное меню.
PROMT как-то криво с мышью работает, поэтому ищу альтернативы.

 Отправлено: 05.09.13 16:10. Заголовок: Проверил menu.prg из..

Проверил menu.prg из clippera, и вертикальное, и горизонтальное присутствуют.

azoo пишет:

цитата:

Вот такой пример не проходит:

полный пример покажите тут.

 Отправлено: 05.09.13 16:15. Заголовок: Так устроит? o..

Так устроит?

      oTopBar := TopBar( 0, 0, 78) 
       oTopBar:ColorSpec :="b/w,gr+/rb,r/w,g/rb,n+/w,w+/b" 
  
       oPopUp := PopUp() 
       oPopUp :ColorSpec:= "b/w,gr+/rb,r/w,g/rb,n+/w,w+/b" 
       oTopBar:AddItem( MenuItem ( "Products",oPopUp) ) 
  
 //oPopUp := PopUp(10,10,20) 
  
 oItem :=MenuItem( "Продукция (товар)" ,{|| M1() },,, 1) 
 oPopUp:AddItem( oItem) 
  
 oItem :=MenuItem( "Виды продукции (товара)" ,{|| M2() },,,2) 
 oPopUp:AddItem( oItem) 
  
 oItem :=MenuItem( "Единицы измерения" ,{|| M3() },,,3) 
 oPopUp:AddItem( oItem) 
  
 oPopUp:Display() 
  
    DO WHILE MenuModal(oTopBar,1,24,1,79,"r/w") <> 999 
    ENDDO

 Отправлено: 05.09.13 16:32. Заголовок: AlexMyr, пример поня..

AlexMyr, пример понятен, но речь только о вертикальном popup-меню без привязки к
горизонтальному меню "Products". Допустим в центре экрана.
Пример в первом посте. Чего-то не хватает для отображения.

 Отправлено: 05.09.13 16:36. Заголовок: azoo Для этих целей..

azoo
Для этих целей возможно подойдет Boxmenu
см. CLIPPER\SOURCE\SAMPLE\BOX.PRG
можно еше посмотреть менюшки в NANFORUM TOOLKIT (NANFOR.LIB)

 Отправлено: 05.09.13 16:42. Заголовок: azoo пишет: но речь..

azoo пишет:

цитата:

но речь только о вертикальном popup-меню без привязки к горизонтальному меню

В старой проге на клиппере использовал achoice.

 Отправлено: 05.09.13 16:58. Заголовок: Где-то здесь была те..

Где-то здесь была тема по поводу некорректной работы мыши в командах PROMPT, MENU TO.
Меню срабатывает при нажатии в произвольном месте экрана.
Boxmenu() внутри реализован с помощью PROMPT, поэтому не пойдет.
Achoice() забыл что есть надо проверить.

 Отправлено: 05.09.13 17:05. Заголовок: azoo пишет: Boxmenu..

azoo пишет:

цитата:

Boxmenu() внутри реализован с помощью PROMPT

Упс , виноват ;) Взяв за основу Boxmenu когда то , я его переделал на Achoice без PROMPT

 Отправлено: 05.09.13 18:06. Заголовок: Achoice() работает к..

Achoice() работает корректно. Можно его использовать вместо popupmenu-класса.
Плохо, что в Achoice() нельзя вставить разрывы, меню получается в каждой строчке
без разрывов, разделителей в виде горизонтальной полосы.
В этом плане PopUpMenu-класс конечно предоставляет больше возможностей.
Но как с ним разобраться ?

 Отправлено: 17.09.13 10:44. Заголовок: Подскажите, кто како..

Подскажите, кто какой системой создания меню пользуется в Harbour ?

 Отправлено: 17.09.13 10:55. Заголовок: azoo пишет: Подскаж..

azoo пишет:

цитата:

Подскажите, кто какой системой создания меню пользуется в Harbour ?

У меня своя собственная, через say aka dispout, и некоторые функции из тулз вроде SaywScreen, ColorWin, ClearWin

 Отправлено: 17.09.13 11:31. Заголовок: azoo пишет: Подскаж..

azoo пишет:

цитата:

Подскажите, кто какой системой создания меню пользуется в Harbour ?

В клипере пользовался библиотекой superlib, смотреть ф-ии BUNGSTART, BUNGOPTION, BUNGDROP() ..., можно собрать ее и под harbour.

 Отправлено: 17.09.13 12:55. Заголовок: В клипере пользовалс..

цитата:

В клипере пользовался библиотекой superlib, смотреть ф-ии BUNGSTART, BUNGOPTION, BUNGDROP() ..., можно собрать ее и под harbour.

А в Хабре есть что-нибудь подобное? Superlib есть в исходниках ?

 Отправлено: 17.09.13 13:01. Заголовок: azoo пишет: А в Хаб..

azoo пишет:

цитата:

А в Хабре есть что-нибудь подобное? Superlib есть в исходниках ?

смотрим \core\extras\superlib\readme.txt

 Отправлено: 17.09.13 13:49. Заголовок: смотрим \core ..

цитата:

смотрим \core\extras\superlib\readme.txt

Не могу понять пункт 4 :

цитата:

4.) Apply supplied patch to the source using GNU Patch: patch -lNi superlib.dif

Что нужно делать ? Что за GNU - патч ?

 Отправлено: 17.09.13 14:06. Заголовок: azoo пишет: Что за ..

azoo пишет:

цитата:

Что за GNU - патч ?

http://gnuwin32.sourceforge.net/packages/patch.htm

 Отправлено: 17.09.13 14:58. Заголовок: Dima спасибо получил..

Dima спасибо получилось собрать superlib.lib под Harbour.

цитата:

В клипере пользовался библиотекой superlib, смотреть ф-ии BUNGSTART, BUNGOPTION, BUNGDROP()

Проверил функции для построения меню. Довольно удобно и понятно.