Начнем с простых примеров, позволяющих привлечь внимание пользователя к определенному окну приложения. Это может пригодиться в различных ситуациях: от уведомления пользователя об ошибке программы до простой сигнализации ему, какое окно в данный момент времени ожидает пользовательского ввода.

   Вероятно, вы не раз могли наблюдать, как некоторые приложения после выполнения длительной операции или при возникновении ошибки как бы подмигивают. При этом меняется цвет кнопки приложения на Панели задач, а также состояние окна с активного на неактивное. Такой эффект легко достижим при использовании API-функции FlashWindow или ее усовершенствованного, но более сложного варианта – функции FlashWindowEx.

   Примечание
   Здесь сказано, что функции изменяют цвет кнопки приложения на Панели задач. Однако этого не происходит при выполнении приведенных ниже примеров. Почему так получается и как с этим бороться, рассказано в разд. 1.2.

   Первая из этих функций позволяет один раз изменить состояние заголовка окна и кнопки на Панели задач (листинг 1.1).

Листинг 1.1. Простая инверсия заголовка окна

   procedure TForm1.cmbFlashOnceClick(Sender: TObject);
   begin
   FlashWindow(Handle, True);
   end;

   Как видите, функция принимает дескриптор нужного окна и параметр (тип BOOL) инверсии. Если значение флага равно True, то состояние заголовка окна изменяется на противоположное (из активного становится неактивным и наоборот). Если значение флага False, то состояние заголовка окна восстанавливается в свое первоначальное значение (активно или неактивно).
   Более сложная функция FlashWindowEx в качестве дополнительного параметра (кроме дескриптора окна) принимает структуру FLASHWINFO, заполняя поля которой, можно настроить параметры мигания кнопки приложения и/или заголовка окна.
   В табл. 1.1 приведено описание полей структуры FLASHWINFO.

Таблица 1.1. Поля структуры FLASHWINFO

   Значение параметра dwFlags формируется из приведенных ниже флагов с использованием операции побитового ИЛИ:
   • FLASHW_CAPTION – инвертирует состояние заголовка окна;
   • FLASHWTRAY—заставляет мигать кнопку на Панели задач;
   • FLASHW_ALL – сочетание FLASHW_CAPTION И FLASHW_TRAY;
   • FLASHW_TIMER – периодическое изменение состояния заголовка окна и/или кнопки на Панели задач вплоть до того момента, пока фyнкцияFlashWindowEx не будет вызвана с флагом FLASHW_STOP;
   • FLASHW_TIMERNOFG – периодическое изменение состояния заголовка окна и/или кнопки на Панели задач до тех пор, пока окно не станет активным;
   • FLASHWSTOP – восстанавливает исходное состояние окна и кнопки на Панели задач.
   Далее приведены два примера использования функции FlashWindowEx.
   В первом – состояние заголовка окна и кнопки на Панели задач изменяется десять раз каждые 0,2 секунды (листинг 1.2).

Листинг 1.2. Десятикратная инверсия заголовка окна

   procedure TForm1.cmbInverse10TimesClick(Sender: TObject);
   var
   fl: FLASHWINFO;
   begin
   fl.cbSize:= SizeOf(fl);
   fl.hwnd:= Handle;
   fl.dwFlags:= FLASHW_CAPTION or FLASHW_TRAY; // аналогично
   FLASHW_ALL
   fl.uCount:= 10;
   fl.dwTimeout:= 200;
   FlashWindowEx(fl);
   end;

   Второй пример демонстрирует использование флаговРЬАЗШ_Т1МЕРч и FLASHW_STOP для инверсии заголовка окна в течение заданного промежутка времени (листинг 1.3).

Листинг 1.3. Инверсия заголовка окна в течение определенного промежутка времени

   //Запуск процесса периодической инверсии заголовка
   procedure TForm1.cmbFlashFor4SecClick(Sender: TObject);
   var
   fl: FLASHWINFO;
   begin
   fl.cbSize:= SizeOf(fl);
   fl.hwnd:= Handle;
   fl.dwTimeout:= 200;
   fl.dwFlags:= FLASHW_ALL or FLASHW_TIMER;
   fl.uCount:= 0;
   FlashWindowEx(fl);
   Timer1.Enabled:= True;
   end;
   //Остановка инверсии заголовка
   procedure TForm1.Timer1Timer(Sender: TObject);
   var
   fl: FLASHWINFO;
   begin
   fl.cbSize:= SizeOf(fl);
   fl.hwnd:= Handle;
   fl.dwFlags:= FLASHW_STOP;
   FlashWindowEx(fl);
   Timer1.Enabled:= False;
   end;

   В данном примере подразумевается использование таймера, срабатывающего каждые четыре секунды. Таймер первоначально неактивен. Конечно, можно было бы не использовать его, а просто посчитать количество инверсий, попадающих в нужный интервал времени (в данном случае четыре секунды), и задать его в поле uCount. Но приведенный пример рассчитан именно на демонстрацию использования флагов FLASHW_TIMERH flashw_stop.

   Рассмотрим другой, гораздо более гибкий способ привлечение внимания к окну приложения. Он базируется на использовании API-функции SetForegroundWindow. Функция принимает один единственный параметр – дескриптор окна. Если выполняется ряд условий, то окно с заданным дескриптором будет выведено на передний план и пользовательский ввод будет направлен в это окно. Функция возвращает нулевое значение, если не удалось сделать окно активным.
   В приведенном ниже примере окно активизируется при каждом срабатывании таймера (листинг 1.4).

Листинг 1.4. Активизация окна

   procedure TForm1.Timer1Timer(Sender: TObject);
   begin
   SetForegroundWindow(Handle);
   end;

   В операционных системах старше Windows 95 и Windows NT 4.0 введен ряд ограничений на действие функции SetForegroundWindow. Так, приведенный выше пример как раз и является одним из случаев недружественного использования активизации окна, но это всего лишь пример.
   Чтобы активизировать окно, процесс должен быть не фоновым либо должен иметь право устанавливать активное окно, назначенное ему другим процессом с таким правом, и т. п. Все возможные нюансы в пределах одного трюка рассматривать не имеет смысла. Стоит отметить, что в случае, когда окно не может быть активизировано, автоматически вызывается функция FlashWindow для окна приложения (заставляет мигать кнопку этого приложения на Панели задач). Поэтому даже при неудачном вызове функции SetForegroundWindow приложение, нуждающееся во внимании, не останется незамеченным.

   Сейчас мы рассмотрим некоторые стандартные возможности Windows, которые можно использовать для достижения большего разнообразия и привлекательности элементов оконного интерфейса за счет изменения формы элементов управления и, естественно, самих окон приложений.

   Рассматриваемые далее эффекты по изменению формы окон базируются на использовании регионов (областей) отсечения – в общем случае сложных геометрических фигур, ограничивающих область рисования окна. По умолчанию окна (в том числе и окна элементов управления) имеют область отсечения, заданную прямоугольным регионом с высотой и шириной, равн ыми высоте и ширине самого окна.
   Однако использование прямоугольных регионов для указания областей отсечения совсем не обязательно. Использование отсечения по заданному непрямоугольному региону при рисовании произвольного окна наглядно представлено на рис. 1.3: а – изначальный прямоугольный вид формы; б – используемый регион, формирующий область отсечения; в – настоящий вид формы в результате рисования с отсечением по границам заданного региона.
   Рис. 1.3. Использование области отсечения при рисовании окна
 
   Рассмотрим операции, позволяющие создавать, удалять и модифицировать регионы.

Создание и удаление регионов

   Создать регионы различной формы можно с помощью следующих API-функций:

   function CreateRectRgn(p1, p2, p3, p4: Integer): HRGN;
   function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN;
   function CreateRoundRectRgn(p1, p2, p3, p4, p5, p6: Integer): HRGN;

   Все перечисленные здесь и ниже функции создания регионов возвращают дескриптор GDI-объекта «регион». Он впоследствии и передается в различные функции, работающие с регионами.
   Итак, первая из приведенных функций (CreateRectRgn) предназначена для создания регионов прямоугольной формы. Параметры этой функции необходимо толковать следующим образом:
   • p1 и р2 – горизонтальная и вертикальная координаты левой верхней точки прямоугольника;
   • р3 и р4 – горизонтальная и вертикальная координаты правой нижней точки прямоугольника.
   Следующая функция – CreateEllipticRgn – предназначена для создания региона эллиптической формы. Параметры этой функции – координаты прямоугольника (аналогично CreateRectRgn), в который вписывается эллипс.
   Третья функция – CreateRoundRectRgn – создает регион – прямоугольник с округленными углами. При этом первые четыре параметра функции аналогичны соответствующим параметрам функции CreateRectRgn. Параметры р5 и рб – ширина и высота сглаживающих углы эллипсов (рис. 1.4).
   Трех приведенных функций достаточно даже в том случае, если нужно создавать регионы очень сложной формы. Это достигается при помощи многочисленных операций над простыми регионами, как в приведенном далее примере создания региона по битовому шаблону. Однако рассмотрим еще одну несложную функцию, которая позволяет сразу создавать регионы-многоугольники по координатам точек – вершин многоугольников:

   function CreatePolygonRgn(const Points; Count, FillMode: Integer): HRGN;

   Рис. 1.4. Округление прямоугольника функцией CreateRoundRectRgn
 
   Функция CreatePolygonRgn принимает следующие параметры:
   • Points – указатель на массив записей типа TPoint, каждый элемент массива описывает одну вершину многоугольника, координаты не должны повторяться;
   • Count – количество записей в массиве, на который указывает Points;
   • FillMode – режим заливки региона (в данном случае, попадает ли внутренняя область многоугольника в регион).
   Параметр FillMode принимает значения WINDING (попадает любая внутренняя область) или ALTERNATE (попадает внутренняя область, если она находится между нечетной и следующей четной сторонами многоугольника).

   Примечание
   При создании регионов с помощью любой из указанных выше функций координаты точек задаются в системе координат того окна, в котором предполагается использовать регион. Так, если у нас есть кнопка 40 х 30, левый верхний угол которой расположен на форме в точке (100; 100), то для того, чтобы создать для кнопки прямоугольный регион 20 х 15 с левой верхней точкой (0;0) относительно начала координат кнопки, следует вызвать функцию CreateRectRgn с параметрами (0, 0, 19, 14), а не (100, 100, 119, 114).

   Поскольку регион является GDI-объектом (подробнее в гл. 6), то для его удаления, если он не используется системой, применяется функция удаления GDI-объектов DeleteObject:

   function DeleteObject(p1: HGDIOBJ): BOOL;

Регион как область отсечения при рисовании окна

   Было сказано, что регион нужно удалять в том случае, если он не используется системой. Так вот, после того как регион назначен окну в качестве области отсечения, удалять его не следует. Функция назначения региона окну имеет следующий вид:

   function SetWindowRgn(hWnd: HWND; hRgn: HRGN; bRedraw: BOOL): Integer;

   Функция возвращает 0, если произвести операцию не удалось, и ненулевое значение в противном случае. Параметры функции SetWindowRgn следующие:
   • hWnd – дескриптор окна, для которого устанавливается область отсечения (свойство Handle формы или элемента управления);
   • hRgn – дескриптор региона, назначаемого в качестве области отсечения (в простейшем случае является значением, возвращенным одной из функций создания региона);
   • bRedraw – флаг перерисовки окна после назначения новой области отсечения, для видимых окон обычно используется значение True, для невидимых – False.
   Чтобы получить копию региона, формирующего область отсечения окна, можно использовать API-функцию GetWindowRgn:

   function GetWindowRgn(hWnd: HWND; hRgn: HRGN): Integer;

   Первый параметр функции – дескриптор (Handle) интересующего нас окна. Второй параметр – дескриптор предварительно созданного региона, который в случае успеха модифицируется функцией GetWindowRgn так, что становится копией региона, формирующего область отсечения окна. Описания целочисленных констант – возможных возвращаемых значений функции:
   • NULLREGION – пустой регион;
   • SIMPLEREGION – регион в форме прямоугольника;
   • COMPLEXREGION – регион сложнее, чем прямоугольник;
   • ERROR – при выполнении функции возникла ошибка (либо окну задана область отсечения).
   Далее приводится пример использования функции GetWindowRgn (предполагается, что приведенный ниже код является телом одного из методов класса формы).

   var rgn: HRGN;
   begin
   rgn:= CreateRectRgn(0,0,0,0); //Первоначальная форма
   //региона не важна
   if GetWindowRgn(Handle, rgn) <> ERROR then
   begin
   //Операции с копией региона, формирующего область отсечения
   //окна…
   end;
   DeleteObject(rgn); //Мы пользовались копией региона, которую
   //должны удалить (здесь или в ином месте,
   //но сами)
   end;

Операции над регионами

   При рассказе о функциях создания регионов неоднократно упоминалось о возможности комбинирования регионов для получения сложных форм. Пришло время кратко рассмотреть операции над регионами. Все операции по комбинированию регионов осуществляются при помощи функции CombineRgn:

   function CombineRgn(p1, p2, p3: HRGN; p4: Integer): Integer;

   Параметры этой функции:
   • p1 – регион (предварительно созданный), куда сохранить результат;
   • р2, p3 – регионы-аргументы операции;
   • р4 – тип операции над регионами.
   Более подробно действие CombineRgn при различных значениях параметра р4 поясняется в табл. 1.2.

Таблица 1.2. Операции функции CombineRgn

   Кроме приведенных выше в табл. 1.2 констант, в качестве параметра р4 функции CombineRgn можно использовать RGNCOPY. В этом случае копируется регион, заданный параметром р2, в регион, заданный параметром p1.
   Тщательно рассчитывая координаты точек регионов-аргументов, можно с использованием функции CombineRgn создавать регионы самых причудливых форм, в чем вы сможете убедиться далее.