powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / VFP9 + systray + скрол мышью
3 сообщений из 3, страница 1 из 1
VFP9 + systray + скрол мышью
    #37874939
sanya_tir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Приветствую всех.
Есть отдельное приложение (форма без фонового скрина). На форме есть systray из примеров для VFP 9. Свою работу он делает но есть 2 момента которые хотелось бы прояснить и исправить

1. После разворачивания из трея grid-ы и edit-ы на форме не скролятся роликом мышки, клавишами прокручиваются, скролбаром тоже, а роликом нет.

icondblclickevent
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
thisform.timer6.Enabled = .f.
thisform.WINDOWSTATE = 0
this.removeiconfromsystray
thisform.Visible = .t.
this.currenticonindex = 1
this.setforegroundwindow
thisform.Activate
thisform.grid1.setfocus



activate формы
Код: sql
1.
2.
DECLARE INTEGER SetForegroundWindow IN USER32 INTEGER
SetForegroundWindow(this.HWND)



Добавлю, что фокус очевидно на форме, но события mouseweel на гриде и на форме не наступают.

2. Какие требования к иконке для трея? Дело в том, что она стала по другому выглядеть после избавления от bbsystray и перехода на systray. Ощущение, что битность цвета стала ниже, хотя и так иконка в 4 бита кудауж ниже. Интересует разрешение и битнось цвета для иконок.

Заранее благодарен за советы.
...
Рейтинг: 0 / 0
VFP9 + systray + скрол мышью
    #37876137
sanya_tir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Друзья, разве никто с systray не работал?
...
Рейтинг: 0 / 0
VFP9 + systray + скрол мышью
    #37876871
sanya_tir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На текущий момент локализовал проблему:
в этом месте
thisform.resize
Код: sql
1.
2.
3.
4.
5.
IF this.WINDOWSTATE = 1 	&& minimized
	this.systray1.currenticonindex = 1
	this.systray1.addicontosystray 
	thisform.Visible = .f.
....



если кинуть на форму кнопку и вставить в нее код
Код: sql
1.
2.
3.
	this.systray1.currenticonindex = 1
	this.systray1.addicontosystray 
	thisform.Visible = .f.



то по нажатию на нее сворачивается без проблем и разворачивается, а главное гриды скролятся, однако если сворачивать окно штатной кнопкой свернуть окно (в правом верхнем углу которая) то вызывается именно resize формы, и не смотря на то что код там такой же, после разворота из трея не работает скролинг роликом мыши. Уже не знаю в какую сторону и думать...
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / VFP9 + systray + скрол мышью
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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