Интерфейс

При нажатии на кнопку "Свернуть-Минимизировать", окно Фокспро исчезает, а в трэе появляется иконка. При клике на иконке в трэе окно востанавливается а иконка исчезает. Использует библиотечку 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