FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9176
Вход
Сворачивание окна FoxPro в Трэй

При нажатии на кнопку "Свернуть-Минимизировать", окно Фокспро исчезает, а в трэе появляется иконка. При клике на иконке в трэе окно востанавливается а иконка исчезает. Использует библиотечку systray.dll! Автор библиотеки Sidorov Leonid за что ему огромное спасибо!!!


 
Прислал: serpikva   Категория: Интерфейс


  
  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  
  

 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (3.813) Вложение [15.31]kb
Дополнения пользователей
Сворачивание окна FoxPro в Трэй
[+][?]
TAS
15.01.07 14:47:53

У меня возникла ситуация, когда я свернул фокс, внизу мелькнула иконка и все - имею свернутую
программу без иконки. Пришлось убивать ее через список задач. Повторить это я пока не смог - у вас
такой проблемы не возникало?
serpikva
18.01.07 20:20:24

Я пользуюсь довольно давно!!
Никаких глюков ненаблюдалось!!!
Может быть была какая нибудь ошибка в коде!!??
Sheriff
21.09.07 10:09:03

Интересно,а что за код такой BINDEVENT в строке
BINDEVENT(_SCREEN,"Resize",oHandler,"myresize")?
У меня пишет,что нет BINDEVENT.PRG
serpikva
23.09.07 18:04:27

Sheriff, я извиняюсь)
я забросил фокс немого((  щас занимаюсь ваб разработками на PHP но насколько я помню BINDEVENT это
функция фокса)
Предоставляет возможность исполнять пользовательский программный код (метод объекта) при
наступлении события.


Sheriff
28.09.07 10:48:41

serpikva
Понятно.Просто я тут сдела небольшую программку отправки сообщений на компы пользователей с
использование net.exe.Программу состряпал,чтобы мои user-ы постоянно мнея не терроризировали по
поводу отправки сообщений другим пользователям сети
Вставил в главном файле Ваш код.При компилящии exe-файла,он мне кричит,что есть ошибка и ссылается
на вот этот самый BINDEVENT.
Перерыл всё в своей версии Фокса - ничего по этому поводу не нашёл.
Не подскажите (если вспомните) что и где по этому поводу можно почитать.
Sheriff
28.09.07 13:35:14

serpikva
Понятно.Просто я тут сдела небольшую программку отправки сообщений на компы пользователей с
использование net.exe.Программу состряпал,чтобы мои user-ы постоянно мнея не терроризировали по
поводу отправки сообщений другим пользователям сети
Вставил в главном файле Ваш код.При компилящии exe-файла,он мне кричит,что есть ошибка и ссылается
на вот этот самый BINDEVENT.
Перерыл всё в своей версии Фокса - ничего по этому поводу не нашёл.
Не подскажите (если вспомните) что и где по этому поводу можно почитать.
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика