FoxClub Forums > Visual Foxpro, Foxpro for DOS > Переместиться на нужный пункт Shortcut ::

• Войти

Переместиться на нужный пункт Shortcut
Alsim Автор Сообщений: 3636 Откуда: Екатеринбург Дата регистрации: 17.11.2004	Alsim 16.11.18 09:00:58 На кнопке, размещённой в Gride прописал меню, чтобы менять значения Всё работает чудесно, в поле прописываются значения 0,1 или 2. От этого идёт раскраска и расшифровка значений [attachment 30315 ] Но вот захотелось выпендриться и при вызове менюшки перемещать указатель на редактируемую позицию сразу. То есть оператор перемещается клавиатурой по колонке с кнопкой и жмет Ентер, или тыкает мышкой на Экономе, к примеру и у неё и менюшка выпадает на Экономе. ps обрыл Help и Форум и не нашёл как передвинуть на нужный Bar программно. Thisform.ScaleMode= 0 **тут координаты меню задаю вычисляя, не показываю, чтобы не отвлекать lnRow = lnCol = *** Define Popup mi_pop From lnRow,lnCol Relative SHORTCUT Define Bar 1 Of mi_pop Prompt "Бизнес+Экипаж" Define Bar 2 Of mi_pop Prompt "Эконом" Define Bar 3 Of mi_pop Prompt "Туалет" On Selection Bar 1 Of mi_pop _Screen.ActiveForm.but_control("mi_0") On Selection Bar 2 Of mi_pop _Screen.ActiveForm.but_control("mi_1") On Selection Bar 3 Of mi_pop _Screen.ActiveForm.but_control("mi_2") Thisform.ScaleMode= 3 Activate Popup mi_pop

Alsim
Автор

Сообщений: 3636
Откуда: Екатеринбург
Дата регистрации: 17.11.2004

Alsim

16.11.18 09:00:58

На кнопке, размещённой в Gride прописал меню, чтобы менять значения
Всё работает чудесно, в поле прописываются значения 0,1 или 2.
От этого идёт раскраска и расшифровка значений
[attachment 30315 ]
Но вот захотелось выпендриться и при вызове менюшки перемещать указатель на редактируемую позицию сразу.
То есть оператор перемещается клавиатурой по колонке с кнопкой и жмет Ентер, или тыкает мышкой на Экономе, к примеру
и у неё и менюшка выпадает на Экономе.
ps обрыл Help и Форум и не нашёл как передвинуть на нужный Bar программно.


Thisform.ScaleMode= 0
***тут координаты меню задаю вычисляя, не показываю, чтобы не отвлекать
*lnRow = 
*lnCol = 
****
Define Popup mi_pop From lnRow,lnCol Relative SHORTCUT 
Define Bar 1 Of mi_pop Prompt "Бизнес+Экипаж" 
Define Bar 2 Of mi_pop Prompt "Эконом"
Define Bar 3 Of mi_pop Prompt "Туалет"
On Selection Bar 1 Of mi_pop _Screen.ActiveForm.but_control("mi_0")
On Selection Bar 2 Of mi_pop _Screen.ActiveForm.but_control("mi_1")
On Selection Bar 3 Of mi_pop _Screen.ActiveForm.but_control("mi_2")
Thisform.ScaleMode= 3
Activate Popup mi_pop

Re: Переместиться на нужный пункт Shortcut
Аркадий Сообщений: 252 Откуда: Санкт-Петербург Дата регистрации: 30.11.2005	Аркадий 16.11.18 09:07:11 А почему бы в колонку не поместить ComboBox?

Re: Переместиться на нужный пункт Shortcut
Alsim Автор Сообщений: 3636 Откуда: Екатеринбург Дата регистрации: 17.11.2004	Alsim 16.11.18 09:13:06 Делал. Некрасиво и не удобно если руками перемещаются. Выбрал именно меню, так симпатичнее. У меня и на кнопках вроде печати такое же меню выпадает.

Re: Переместиться на нужный пункт Shortcut
Pliskin Сообщений: 2959 Откуда: Новосибирск Дата регистрации: 19.11.2003	Pliskin 16.11.18 09:13:08 RTFM ACTIVATE POPUP MenuName [AT nRow, nColumn] [BAR nMenuItemNumber] [NOWAIT] [REST] BAR nMenuItemNumber Specifies the item in the menu that is selected when the menu is activated. For example, if nMenuItemNumber is 2, the second item is selected. The first item is selected if you omit BAR nMenuItemNumber or if nMenuItemNumber is greater than the number of items in the menu.

Re: Переместиться на нужный пункт Shortcut

Pliskin

Сообщений: 2959
Откуда: Новосибирск
Дата регистрации: 19.11.2003

Pliskin

16.11.18 09:13:08

RTFM
ACTIVATE POPUP MenuName [AT nRow, nColumn] [BAR nMenuItemNumber] [NOWAIT] [REST]

BAR nMenuItemNumber
Specifies the item in the menu that is selected when the menu is activated. For example, if nMenuItemNumber is 2, the second item is selected. The first item is selected if you omit BAR nMenuItemNumber or if nMenuItemNumber is greater than the number of items in the menu.

Re: Переместиться на нужный пункт Shortcut
Alsim Автор Сообщений: 3636 Откуда: Екатеринбург Дата регистрации: 17.11.2004	Alsim 16.11.18 09:15:33 О! Спасибо, Дмитрий! То что надо! Заработало! ps и ведь подсказка под руку сама лезет, как я её не попробовал сразу Исправлено 1 раз(а). Последнее : Alsim, 16.11.18 09:16

Re: Переместиться на нужный пункт Shortcut
Pliskin Сообщений: 2959 Откуда: Новосибирск Дата регистрации: 19.11.2003	Pliskin 16.11.18 09:17:47 На здоровье! ;)

Re: Переместиться на нужный пункт Shortcut
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 17.11.18 13:51:31 Только толку мало при "мышиной" активации - выделенный пункт побежит за позицией курсора - возможно даже сразу же после активации (смотря где именно меню будет показано). Может быть более наглядным и удобным для юзера будет выделение "предыдущего выбранного" пункта чекбоксом - пока он шебуршит мышкой/стрелками в меню он всё равно видит "старое значение" - ну а закроет меню явно "выбрав пункт" - оно и поменяется... ------------------ WBR, Igor

Re: Переместиться на нужный пункт Shortcut

Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

17.11.18 13:51:31

Только толку мало при "мышиной" активации - выделенный пункт побежит за позицией курсора - возможно даже сразу же после активации (смотря где именно меню будет показано). Может быть более наглядным и удобным для юзера будет выделение "предыдущего выбранного" пункта чекбоксом - пока он шебуршит мышкой/стрелками в меню он всё равно видит "старое значение" - ну а закроет меню явно "выбрав пункт" - оно и поменяется...

------------------
WBR, Igor

Re: Переместиться на нужный пункт Shortcut
Alsim Автор Сообщений: 3636 Откуда: Екатеринбург Дата регистрации: 17.11.2004	Alsim 17.11.18 14:07:42 Кстати да! Мудрая мысль, надо попробовать

Re: Переместиться на нужный пункт Shortcut
Alsim Автор Сообщений: 3636 Откуда: Екатеринбург Дата регистрации: 17.11.2004	Alsim 17.11.18 15:02:49 Igor Korolyov Может быть более наглядным и удобным для юзера будет выделение "предыдущего выбранного" пункта чекбоксом - пока он шебуршит увы в Fox7 чекбокса нет Попробовал так сделать (подставляя v программно в Bar) [attachment 30318 ] как-то фуу

Re: Переместиться на нужный пункт Shortcut

Alsim
Автор

Сообщений: 3636
Откуда: Екатеринбург
Дата регистрации: 17.11.2004

Alsim

17.11.18 15:02:49

Igor Korolyov
Может быть более наглядным и удобным для юзера будет выделение "предыдущего выбранного" пункта чекбоксом - пока он шебуршит

увы в Fox7 чекбокса нет

Попробовал так сделать (подставляя v программно в Bar)
[attachment 30318 ]
как-то фуу

Re: Переместиться на нужный пункт Shortcut
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 17.11.18 19:02:44 При желании можно шоткат меню через ВинАПИ делать - когда-то я так делал для прилоги прячущейся в трей (т.к. штатный systray.vcx меню туда подцепляет через ж*пу) - в принципе ничего сложного. Чек там простым флагом выставляется. А если уж "по полной" отрываться, то и иконки свои можно понапихать - в любом фоксе (хотя зачем бы кому-то было нынче использовать "любой" ) ------------------ WBR, Igor

Re: Переместиться на нужный пункт Shortcut

Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

17.11.18 19:02:44

При желании можно шоткат меню через ВинАПИ делать - когда-то я так делал для прилоги прячущейся в трей (т.к. штатный systray.vcx меню туда подцепляет через ж*пу) - в принципе ничего сложного. Чек там простым флагом выставляется. А если уж "по полной" отрываться, то и иконки свои можно понапихать - в любом фоксе (хотя зачем бы кому-то было нынче использовать "любой"

)

------------------
WBR, Igor

Re: Переместиться на нужный пункт Shortcut
Alsim Автор Сообщений: 3636 Откуда: Екатеринбург Дата регистрации: 17.11.2004	Alsim 17.11.18 19:42:39 ага. Как раз тут у меня достаточно красиво работает что мышкой, что руками. В другой форме, где создаются шаблоны для ввода этого инвентаря выглядит хуже с координатами, хотя грид лежит на форме без выбамбасов. В этой форме расходная накладная аж с (шестью!блин) документами. Так уж сложилось исторически. Попросили добавить экипаж... ну и пошло... Короче, на форме ПейджФрам с шестью вкладками, на них гриды и вот в этом зверинце координаты у кнопки для Шортциркута работают идеально (как ни странно). В форме шаблонов горизонталь идеально, а вертикаль в итоге вывел от .RelativeRow + 4 методом тыка. Особо выпендриваться некогда. До конца следующей недели успеть основное с показом, чтобы понять, так ли я понял что они поняли от вышестоящих, которые, как я догадываюсь тоже... ))))) Потому отложу, когда доделаю основные измы, продолжу Спасибо!

Re: Переместиться на нужный пункт Shortcut

Alsim
Автор

Сообщений: 3636
Откуда: Екатеринбург
Дата регистрации: 17.11.2004

Alsim

17.11.18 19:42:39

ага. Как раз тут у меня достаточно красиво работает что мышкой, что руками.
В другой форме, где создаются шаблоны для ввода этого инвентаря выглядит хуже с координатами, хотя грид лежит на форме без выбамбасов.
В этой форме расходная накладная аж с (шестью!блин) документами. Так уж сложилось исторически. Попросили добавить экипаж... ну и пошло...
Короче, на форме ПейджФрам с шестью вкладками, на них гриды и вот в этом зверинце координаты у кнопки для Шортциркута работают идеально (как ни странно). В форме шаблонов горизонталь идеально, а вертикаль в итоге вывел от .RelativeRow + 4 методом тыка.
Особо выпендриваться некогда. До конца следующей недели успеть основное с показом, чтобы понять, так ли я понял что они поняли от вышестоящих, которые, как я догадываюсь тоже... )))))
Потому отложу, когда доделаю основные измы, продолжу

Спасибо!

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 24 (Гостей: 24)