Программирование в Delphi. Трюки и эффекты. Александр Чиртик

Чтение книги онлайн.

СКАЧАТЬ регионов, предназначенных для формирования области отсечения окон (форм и элементов управления на формах).

      Закругленные окна и многоугольники

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

      Примечание

      В приведенных далее примерах регионы для области отсечения окна создаются при обработке события FormCreate. Однако это сделано только для удобства отладки и тестирования примеров и ни в коем случае не должно наталкивать вас на мысль, что этот способ является единственно правильным. На самом деле, если в приложении много окон, использующих области отсечения сложной формы, то запуск приложения (время от момента запуска до показа первой формы) может длиться, по крайней мере, несколько секунд. Так происходит потому, что все формы создаются перед показом первой (главной) формы (см. DPR-файл проекта). Исправить ситуацию можно, создавая формы вручную в нужный момент времени либо создавая регионы для областей отсечения, например, перед первым отображением каждой конкретной формы.

      В приведенном ниже обработчике события FormCreate создается окно в форме эллипса с тремя кнопками такой же формы (листинг 1.10).

Листинг 1.10. Окно и кнопки в форме эллипсов

      procedure TfrmElliptic.FormCreate(Sender: TObject);

      var

      formRgn, but1Rgn, but2Rgn, but3Rgn: HRGN;

      begin

      //Создаем регионы кнопок

      but1Rgn:= CreateEllipticRgn(0, 0, Button1.Width–1, Button1.Height–1);

      SetWindowRgn(Button1.Handle, but1Rgn, False);

      but2Rgn:= CreateEllipticRgn(0, 0, Button2.Width–1, Button2.Height–1);

      SetWindowRgn(Button2.Handle, but2Rgn, False);

      but3Rgn:= CreateEllipticRgn(0, 0, Button3.Width–1, Button3.Height–1);

      SetWindowRgn(Button3.Handle, but3Rgn, False);

      //Регион для окна

      formRgn:= CreateEllipticRgn(0, 0, Width–1, Height–1);

      SetWindowRgn(Handle, formRgn, True);

      end;

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

      Результат выполнения кода листинга 1.10 можно увидеть на рис. 1.5.

      Рис. 1.5. Окно и кнопки в форме эллипсов

      Далее рассмотрим не менее интересный (возможно, даже более полезный на практике) пример – округление углов формы и кнопок на ней, то есть применение области отсечения в форме прямоугольника с округленными углами. Ниже приведен код реализации соответствующего обработчика события FormCreate (листинг 1.11).

Листинг 1.11. Окно и кнопки с округленными краями

      procedure TfrmRoundRect.FormCreate(Sender: TObject);

      var

      formRgn, but1Rgn, but2Rgn, but3Rgn: HRGN;

      begin

      //Создаем регионы для кнопок

      but1Rgn:= CreateRoundRectRgn(0, 0, Button1.Width–1, Button1.Height–1,

      Button1.Width div 5, Button1.Height div 5);

      SetWindowRgn(Button1.Handle, but1Rgn, False);

      but2Rgn:= CreateRoundRectRgn(0, 0, Button2.Width–1, Button2.Height–1,

      Button2.Width div 5, Button2.Height div 5);

      SetWindowRgn(Button2.Handle, but2Rgn, False);

      but3Rgn:= CreateRoundRectRgn(0, СКАЧАТЬ