Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Перестал показыватся Popup / 10 сообщений из 10, страница 1 из 1
18.01.2010, 14:38
    #36416038
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перестал показыватся Popup
Здравствуйте.
Из решений на фоксклабе, когда-то брал класс 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:52
    #36416061
прошелмимо
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перестал показыватся Popup
потестируй
Код: 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, 15:05
    #36416097
Шестипалов
Шестипалов
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перестал показыватся Popup
Игорь Горбонос,

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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