Сворачивание окна FoxPro в Трэй

При нажатии на кнопку "Свернуть-Минимизировать", окно Фокспро исчезает, а в трэе появляется иконка. При клике на иконке в трэе окно востанавливается а иконка исчезает. Использует библиотечку systray.dll! Автор библиотеки Sidorov Leonid за что ему огромное спасибо!!!
[code] PUBLIC oHandler DECLARE INTEGER _turnwindow IN systray.DLL; INTEGER HWND, INTEGER mode, STRING apps, STRING ico _SCREEN.ADDPROPERTY('prev_wstate',_SCREEN.WINDOWSTATE) oHandler=NEWOBJECT("myhandler") BINDEVENT(_SCREEN,"Resize",oHandler,"myresize") DEFINE CLASS myhandler AS CUSTOM ********** PROCEDURE myRESIZE IF _SCREEN.WINDOWSTATE = 1 _SCREEN.WINDOWSTATE = _SCREEN.prev_wstate = _turnwindow(_VFP.HWND, 1, _SCREEN.CAPTION ,[]) = _turnwindow(_VFP.HWND, 0, _SCREEN.CAPTION,[face01.ico]) ELSE _SCREEN.prev_wstate = _SCREEN.WINDOWSTATE ENDIF ENDPROC ENDDEFINE [/code]
Автор: serpikva

Автор публикации

не в сети 15 лет

serpikva

0
Комментарии: 0Публикации: 1Регистрация: 09-07-2006
0
Вложенные файлы
#
Тип файла
Размер
Название
1 .zip 15,31 КБ 563systray
Оставить комментарий
Авторизация
*
*
Генерация пароля