ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перестал показыватся Popup
10 сообщений из 10, страница 1 из 1
Перестал показыватся Popup
    #36416038
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
Здравствуйте.
Из решений на фоксклабе, когда-то брал класс header для сортировки содержимого в grid. В нем есть обработка события
RightClick в котором формируется Popup:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
  Define Popup MyRightClick SHORTCUT From Mrow(),Mcol()
  Define Bar  1  Of MyRightClick Prompt "По возрастанию" ;
   PICTURE [hedtopPopUp.bmp]
  Define Bar  2  Of MyRightClick Prompt "По убыванию" ;
   PICTURE [hedbottomPopUp.bmp]
  Define Bar  3  Of MyRightClick Prompt "Убрать сортировку" ;
   PICTURE [nohed.bmp]
  Define Bar  4  Of MyRightClick Prompt "\-"
  Define Bar  5  Of MyRightClick Prompt "Зафиксировать столбец" ;
   PICTURE [Loced.bmp]
  Define Bar  6  Of MyRightClick Prompt "Убрать фиксацию" ;
   PICTURE [NoLoced.bmp]
****************************
  On Selection Popup MyRightClick Deactivate Popup
*******************************
  Activate Popup MyRightClick
  lnBar=Bar()
 ...
Немного модифицировал код, для формирования другого Popup в зависимости от значения базового класса грида. И теперь по
клику правой кнопкой Popup не виден, хотя если понажимать стрелки вверх/вниз и после нажать Enter происходит выбор
одного из пунктов Popup'a.
При отслеживании выполнения отладчиком, Popup появляется в окне самого фокспро, в готовом exe-файле Popup не появляется.
Не могу понять, почему изменилось поведение. Что я мог сделать, что-бы Popup появлялся невесть где и как это можно
исправить.
Спасибо.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
18.01.2010, 14:38
| Ответить | Цитировать | Написать  
Перестал показыватся Popup
    #36416061
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прошелмимо
Участник
потестируй
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
  lcPopupName = 'MyRightClick'
  Define Popup (lcPopupName) SHORTCUT 
  Define Bar  1  Of (lcPopupName)Prompt "По возрастанию" ;
   PICTURE [hedtopPopUp.bmp]
  Define Bar  2  Of (lcPopupName) Prompt "По убыванию" ;
   PICTURE [hedbottomPopUp.bmp]
  Define Bar  3  Of (lcPopupName) Prompt "Убрать сортировку" ;
   PICTURE [nohed.bmp]
  Define Bar  4  Of (lcPopupName) Prompt "\-"
  Define Bar  5  Of (lcPopupName) Prompt "Зафиксировать столбец" ;
   PICTURE [Loced.bmp]
  Define Bar  6  Of (lcPopupName)Prompt "Убрать фиксацию" ;
   PICTURE [NoLoced.bmp]
****************************
  on select popup (lcPopupName) Deactivate Popup (lcPopupName)
  lnX = mrow("SCREEN")-wlrow()- 2 
  lnY = mcol("SCREEN")-wlcol()- 1 
  ACTIVATE POPUP (lcPopupName) at lnX, lnY 
  lnBar=Bar()
 ...
...
Рейтинг: 0 / 0
18.01.2010, 14:52
| Ответить | Цитировать | Написать  
Перестал показыватся Popup
    #36416097
Шестипалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шестипалов
Гость
Игорь Горбонос,

автор Popup появляется в окне самого фокспро, в готовом exe-файле Popup не появляется.
Похожую ситуацию (разное поведение в окне фокспро и в экзешнике) встречал после установки сервиспака — тупо не обновил файлы vfp9r.dll и VFP9RENU.dll в папке приложения.
...
Рейтинг: 0 / 0
18.01.2010, 15:05
| Ответить | Цитировать | Написать  
Перестал показыватся Popup
    #36416225
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
прошелмимопротестируй
....
Показыватся все равно не показывается, но теперь сразу происходит выбор. Т.е. теперь нельзя стрелками выбрать нужный
пункт из невидимого Popup'a

Шестипалов

На счет соответствия версий, была самая первая мысль. Перепроверил ещё раз. Все имеют версию - 9.0.0.5015 Microsoft
Visual FoxPro 9.0 SP2 Runtime Library. Только в папке с инсталяцией лежат с версией - 9.0.0.2412 Microsoft Visual FoxPro
9.0 Runtime Library. Проверил ещё Process Explorer. загружены длл от SP2.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
18.01.2010, 15:46
| Ответить | Цитировать | Написать  
Перестал показыватся Popup
    #36416233
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
XAndy
Гость
Игорь Горбонос,

Попробуйте перед первым define popop добавить строку
Код: plaintext
deactivate popup MyRightClick

а в конце, после обработки выбора
Код: plaintext
release popup MyRightClick extended
...
Рейтинг: 0 / 0
18.01.2010, 15:49
| Ответить | Цитировать | Написать  
Перестал показыватся Popup
    #36416265
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: XAndy

Добавил, но ничего не поменялось

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
18.01.2010, 16:00
| Ответить | Цитировать | Написать  
Перестал показыватся Popup
    #36416340
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прошелмимо
Участник
тестируйте на своей станции этот пример

создавайте всегда миним.пример, демонстрирующий проблему
...
Рейтинг: 0 / 0
18.01.2010, 16:28
| Ответить | Цитировать | Написать  
Перестал показыватся Popup
    #36416346
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прошелмимо
Участник
+ сообщите значение свойств формы: desktop и showwindow

если они изменены - сбрасывайте в дефолт
...
Рейтинг: 0 / 0
18.01.2010, 16:32
| Ответить | Цитировать | Написать  
Перестал показыватся Popup
    #36416362
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: прошелмимо
> тестируйте на своей станции этот пример

Твой пример работает

> создавайте всегда миним.пример, демонстрирующий проблему

Да пока не получается сделать воспроизводимый пример.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
18.01.2010, 16:37
| Ответить | Цитировать | Написать  
Перестал показыватся Popup
    #36418515
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: прошелмимо
> создавайте всегда миним.пример, демонстрирующий проблему

Спасибо, в результате создания минимального примера было выяснено, что в базовом классе формсета, для первой
формы, свойство AllowOutput было выставленно в .F. и Popup появлялся в другой форме этого формсета(уже просто
добавленной через меню) с таким-же гридом.

В общем как говорится ССЗБ

Еще раз всем спасибо и с праздником!

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
19.01.2010, 16:33
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перестал показыватся Popup
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=36416346&tid=1585675]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 13ms
total:  132ms
созд. / загр.: 132ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]