Автоматическое определение занятости приложения

Автор: Митронов Станислав

Компонент:

TBusyDetector V0.1b

Описание:

Компонент для автоматического определения занятости приложения с целью развлечь пользователя при выполнении тяжелых операций, приводящих к зависанию GUI (пользовательского интерфейса).

Интерфейс:

property Enabled: Boolean; вкл/выкл слежения
property Interval: Cardinal; интервал (в мсек) проверки занятости
property Caption: TCaption; заголовок окна
property Text: TCaption; текст окна

property Stated: Boolean;  вкл/выкл строки состояние
property State: TCaption; текст сотсояние

property Progressed: Boolean;  вкл/выкл полосу прогресса
property Min: Integer;
property Max: Integer;
property Position: Integer; позиция в полосе прогресса
property Step: Integer;

property OnGetWindowClass: TBusyWindowClassEvent; получение класса окна
property OnBusyDetect: TNotifyEvent; событие на обнаружения занятости
property OnIdleDetect: TNotifyEvent; конец занятости

Показания:

Delphi 3 и выше;
OS Win9X/WinNTX;
Руки2X;
Халява.

Комментарий:

Очень часто, особенно в связи с одно-потоковой архитектурой приложения в Delphi, требуется вставлять хоть какие то предупреждения для пользователя перед и в процессе выполнения тяжелых операций таких как подключения к базе, массовые математические вычисления и т.п. но так как на это нет времени да и не во все влезешь я взялся в своем проекте решить эту проблему "глобально". Компонент сырой, требует серьезной доработки (например, если компилить в режиме рантайм пакетов - то ресурсы с анимацией недоступны), так что жду критики, пожеланий и конкретных предложений по email.