Автор | Сообщение |
|
| |
Пост N: 25
Зарегистрирован: 24.04.13
|
|
Отправлено: 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() Что ещё нужно ?
|
|
|
Ответов - 18
[только новые]
|
|
|
| |
Пост N: 3520
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.09.13 15:47. Заголовок: Какой Clipper , кака..
Какой Clipper , какая библа ?
|
|
|
|
| |
Пост N: 26
Зарегистрирован: 24.04.13
|
|
Отправлено: 05.09.13 16:08. Заголовок: Изначально в Clipper..
Изначально в Clipper 5.3 появился данный класс. Это не дополнительная библиотека а встроен в Clipper. В Harbour также реализован. Пример из SOURCE\SAMPLE\menu.prg в Harbour норм. работает. Но это горизонтальное меню. Я хотел просто вертикальное меню. PROMT как-то криво с мышью работает, поэтому ищу альтернативы.
|
|
|
|
| |
Пост N: 923
Зарегистрирован: 11.06.10
|
|
Отправлено: 05.09.13 16:10. Заголовок: Проверил menu.prg из..
Проверил menu.prg из clippera, и вертикальное, и горизонтальное присутствуют. azoo пишет: цитата: | Вот такой пример не проходит: |
|
полный пример покажите тут.
|
|
|
|
| |
Пост N: 924
Зарегистрирован: 11.06.10
|
|
Отправлено: 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
|
|
|
|
| |
Пост N: 27
Зарегистрирован: 24.04.13
|
|
Отправлено: 05.09.13 16:32. Заголовок: AlexMyr, пример поня..
AlexMyr, пример понятен, но речь только о вертикальном popup-меню без привязки к горизонтальному меню "Products". Допустим в центре экрана. Пример в первом посте. Чего-то не хватает для отображения.
|
|
|
|
| |
Пост N: 3523
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.09.13 16:36. Заголовок: azoo Для этих целей..
azoo Для этих целей возможно подойдет Boxmenu см. CLIPPER\SOURCE\SAMPLE\BOX.PRG можно еше посмотреть менюшки в NANFORUM TOOLKIT (NANFOR.LIB)
|
|
|
|
| |
Пост N: 925
Зарегистрирован: 11.06.10
|
|
Отправлено: 05.09.13 16:42. Заголовок: azoo пишет: но речь..
azoo пишет: цитата: | но речь только о вертикальном popup-меню без привязки к горизонтальному меню |
|
В старой проге на клиппере использовал achoice.
|
|
|
|
| |
Пост N: 28
Зарегистрирован: 24.04.13
|
|
Отправлено: 05.09.13 16:58. Заголовок: Где-то здесь была те..
Где-то здесь была тема по поводу некорректной работы мыши в командах PROMPT, MENU TO. Меню срабатывает при нажатии в произвольном месте экрана. Boxmenu() внутри реализован с помощью PROMPT, поэтому не пойдет. Achoice() забыл что есть надо проверить.
|
|
|
|
| |
Пост N: 3524
Зарегистрирован: 17.05.05
|
|
Отправлено: 05.09.13 17:05. Заголовок: azoo пишет: Boxmenu..
azoo пишет: цитата: | Boxmenu() внутри реализован с помощью PROMPT |
| Упс , виноват ;) Взяв за основу Boxmenu когда то , я его переделал на Achoice без PROMPT
|
|
|
|
| |
Пост N: 29
Зарегистрирован: 24.04.13
|
|
Отправлено: 05.09.13 18:06. Заголовок: Achoice() работает к..
Achoice() работает корректно. Можно его использовать вместо popupmenu-класса. Плохо, что в Achoice() нельзя вставить разрывы, меню получается в каждой строчке без разрывов, разделителей в виде горизонтальной полосы. В этом плане PopUpMenu-класс конечно предоставляет больше возможностей. Но как с ним разобраться ?
|
|
|
|
| |
Пост N: 30
Зарегистрирован: 24.04.13
|
|
Отправлено: 17.09.13 10:44. Заголовок: Подскажите, кто како..
Подскажите, кто какой системой создания меню пользуется в Harbour ?
|
|
|
|
|
| Администратор
|
Пост N: 2995
Зарегистрирован: 23.05.05
|
|
Отправлено: 17.09.13 10:55. Заголовок: azoo пишет: Подскаж..
azoo пишет: цитата: | Подскажите, кто какой системой создания меню пользуется в Harbour ? |
| У меня своя собственная, через say aka dispout, и некоторые функции из тулз вроде SaywScreen, ColorWin, ClearWin
|
|
|
|
| |
Пост N: 930
Зарегистрирован: 11.06.10
|
|
Отправлено: 17.09.13 11:31. Заголовок: azoo пишет: Подскаж..
azoo пишет: цитата: | Подскажите, кто какой системой создания меню пользуется в Harbour ? |
|
В клипере пользовался библиотекой superlib, смотреть ф-ии BUNGSTART, BUNGOPTION, BUNGDROP() ..., можно собрать ее и под harbour.
|
|
|
|
| |
Пост N: 31
Зарегистрирован: 24.04.13
|
|
Отправлено: 17.09.13 12:55. Заголовок: В клипере пользовалс..
цитата: | В клипере пользовался библиотекой superlib, смотреть ф-ии BUNGSTART, BUNGOPTION, BUNGDROP() ..., можно собрать ее и под harbour. |
| А в Хабре есть что-нибудь подобное? Superlib есть в исходниках ?
|
|
|
|
| |
Пост N: 932
Зарегистрирован: 11.06.10
|
|
Отправлено: 17.09.13 13:01. Заголовок: azoo пишет: А в Хаб..
azoo пишет: цитата: | А в Хабре есть что-нибудь подобное? Superlib есть в исходниках ? |
|
смотрим \core\extras\superlib\readme.txt
|
|
|
|
| |
Пост N: 32
Зарегистрирован: 24.04.13
|
|
Отправлено: 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 - патч ?
|
|
|
|
| |
Пост N: 3564
Зарегистрирован: 17.05.05
|
|
Отправлено: 17.09.13 14:06. Заголовок: azoo пишет: Что за ..
|
|
|
|
| |
Пост N: 33
Зарегистрирован: 24.04.13
|
|
Отправлено: 17.09.13 14:58. Заголовок: Dima спасибо получил..
Dima спасибо получилось собрать superlib.lib под Harbour. цитата: | В клипере пользовался библиотекой superlib, смотреть ф-ии BUNGSTART, BUNGOPTION, BUNGDROP() |
| Проверил функции для построения меню. Довольно удобно и понятно.
|
|
|
|