Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 systray.vcx  [new]
Krushinskaya Olga
Member

Откуда:
Сообщений: 116
С прошедшими всех праздниками!
Кто-нибудь подскажет, что за ерунда. Программа "виснет", когда открываю контекстное меню. Один раз открою, и все, далее программа не реагирует ни на что, хотя процесс как бы работает. И главное дома все было хорошо (Win XP), а на работе (Win Server ) такие проблемы.
10 янв 06, 09:17    [2238251]     Ответить | Цитировать Сообщить модератору
 Re: systray.vcx  [new]
Aleksey-K
Member

Откуда: Москва
Сообщений: 3116
Так может быть приведете код генерации своего меню?
С уважением, Алексей
10 янв 06, 09:28    [2238278]     Ответить | Цитировать Сообщить модератору
 Re: systray.vcx  [new]
Krushinskaya Olga
Member

Откуда:
Сообщений: 116
oSystray = CREATEOBJECT("x")
oSystray.AddIconToSystray()
read events
close all
clear all
set sysmenu to defa
ENDIF

DEFINE CLASS x AS Systray OF Systray.VCX
IconFile = CURDIR() + "sun.ico"
TipText = "my program"



PROCEDURE IconRightClickEvent
* Duplicate the above behavior for the right-click event.
THIS.ShowMenu("Systray_Shortcut.mpr")
ENDPROC

PROCEDURE IcondblClickEvent
DO create_table.prg
DO FORM form_hi
ENDPROC

ENDDEFINE
10 янв 06, 09:31    [2238298]     Ответить | Цитировать Сообщить модератору
 Re: systray.vcx  [new]
Krushinskaya Olga
Member

Откуда:
Сообщений: 116
Ребята,, подскажите, ну что же делать.
10 янв 06, 11:47    [2238890]     Ответить | Цитировать Сообщить модератору
 Re: systray.vcx  [new]
Aleksey-K
Member

Откуда: Москва
Сообщений: 3116
Так я и не дождался от Вас код самого контекстное меню (Systray_Shortcut.mpr)! И я не понял смысл всей этой манипуляций с классом systray.vcx!. Если Вам надо вывести просто контекстное меню, то проще всего написать свой код в событии RightClick() типа:
(ЭТО ТОЛЬКО ПРИМЕР ОБРАБОТКИ СОБЫТИЯ RightClick НА ФОРМЕ!!!)
LOCAL loForm
loForm = THISFORM

DEFINE POPUP frmshort SHORTCUT RELATIVE FROM MROW(),MCOL()

DEFINE BAR 1 OF frmshort PROMPT "Дата, Время..."				PICTURE 'BitMaps\Watch.bmp'
DEFINE BAR 2 OF frmshort PROMPT "Изменить цвет фона окна"	PICTURE 'BitMaps\ColorUser.bmp'
DEFINE BAR 3 OF frmshort PROMPT "Вернуть системный фон"	PICTURE 'BitMaps\ColorSystem.bmp'
DEFINE BAR 4 OF frmshort PROMPT "\-"
DEFINE BAR 5 OF frmshort PROMPT "Центровать окно"			PICTURE 'BitMaps\Center.bmp'
DEFINE BAR 6 OF frmshort PROMPT "Штатный размер"			PICTTURE 'BitMaps\FormSize.bmp'	;
	SKIP FOR ;
	( loForm.StWidth = -1 .AND. loForm.MinWidth = -1 ) OR ;
	( loForm.StHeight = -1 .AND. loForm.MinHeight = -1 )

ON SELECTION BAR 1 OF frmshort loForm.ShowDate()
ON SELECTION BAR 2 OF frmshort loForm.ChangeColor()
ON SELECTION BAR 3 OF frmshort loForm.BackColor = GetSysColor(15)
ON SELECTION BAR 5 OF frmshort loForm.AutoCenter = .T.
ON SELECTION BAR 6 OF frmshort loForm.ChangeSize()

ACTIVATE POPUP frmshort
RELEASE POPUPS frmshort
С уважением, Алексей
10 янв 06, 11:54    [2238944]     Ответить | Цитировать Сообщить модератору
 Re: systray.vcx  [new]
Krushinskaya Olga
Member

Откуда:
Сообщений: 116
Да вы знаете, я вызываю контексное меню при нажатии правой кнопки на иконке моей программы в system tray-е. Поэтому при нажатии правой кнопки вызываю открытие меню.

а файл mpr выглядит так:
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "ÁÀÇÀ"
DEFINE BAR 2 OF shortcut PROMPT "ÂÛÕÎÄ"
ON SELECTION BAR 1 OF shortcut do form my_prew_grid
ON SELECTION BAR 2 OF shortcut clear events

ACTIVATE POPUP shortcut
10 янв 06, 13:07    [2239472]     Ответить | Цитировать Сообщить модератору
 Re: systray.vcx  [new]
Aleksey-K
Member

Откуда: Москва
Сообщений: 3116
Ясно.. Тогда получается, что не коректно работает в Wndows 2003 библиотека, которая вашу программу "прячет" в System Tray.
С уважением, Алексей
10 янв 06, 13:23    [2239544]     Ответить | Цитировать Сообщить модератору
 Re: systray.vcx  [new]
Igor Korolyov
Member

Откуда: Гомель, Беларусь
Сообщений: 2512

Hi Olga!

Скачай с foxclub.ru программу HTTP2NNTP (исходники отдельно имеются) - там
применена модифицированная версия systray - в частности контекстное меню
строится средствами АПИ, а не извращением с мелкой формой... Посмотри
работает ли корректно меню в самой программе, и если проблем нет - то смотри
в исходниках как это сделано.

Posted via ActualForum NNTP Server 1.3

11 янв 06, 02:27    [2241812]     Ответить | Цитировать Сообщить модератору
 Re: systray.vcx  [new]
Krushinskaya Olga
Member

Откуда:
Сообщений: 116
Igor Korolyov

Hi Olga!

Скачай с foxclub.ru программу HTTP2NNTP (исходники отдельно имеются) - там
применена модифицированная версия systray - в частности контекстное меню
строится средствами АПИ, а не извращением с мелкой формой... Посмотри
работает ли корректно меню в самой программе, и если проблем нет - то смотри в исходниках как это сделано.

Posted via ActualForum NNTP Server 1.3


Да, спасибо, я уже посмотрела. Но не могу найти где строится меню.
11 янв 06, 14:44    [2243815]     Ответить | Цитировать Сообщить модератору
 Re: systray.vcx  [new]
Igor Korolyov
Member

Откуда: Гомель, Беларусь
Сообщений: 2512

Hi Olga!

> не могу найти где строится меню.

В IconRightClickEvent

Posted via ActualForum NNTP Server 1.3

12 янв 06, 01:20    [2245746]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить