А. Григорьев - О чём не пишут в книгах по Delphi

1.3.3.2. Регионы

Регионы — это особые графические объекты, представляющие собой области произвольной формы. Ограничений на форму региона нет, они даже не обязаны быть связными. Существует ряд функций для создания регионов простых форм (CreateRectRgn, CreateEllipticRgn, CreatePolygonRgn и т.п.), а также функция СombineRgn для объединения регионов различными способами. Все это вместе позволяет получать регионы любых форм. Область применения регионов достаточно широка. Ранее мы уже видели, как с помощью регионов можно ограничить область вывода графики. Здесь же мы будем с помощью функции SetWindowRgn изменять форму окна, придавая ему форму заданного региона.

События WM_SIZE и WM_SIZING позволяют окну реагировать на перемещение его пользователем. В "классическом" варианте, когда пользователь начинает тянуть рамку окна, на экране рисуется "резиновый" прямоугольник, соответствующая сторона или угол которого движется за курсором мыши. Окно получает сообщение WM_SIZING при каждом изменении размера этого прямоугольника. Параметр lParam при этом содержит указатель на структуру TRect с новыми координатами прямоугольника. Окно может не только прочитать эти координаты, но и изменить их, блокировав тем самым нежелательные изменения размера. На этом, в частности, основано использование свойства Constraints: если размер окна при перемещении становится меньше или больше заданного, при обработке сообщения WM_SIZING размер увеличивается или уменьшается до необходимого. Параметр wParam содержит информацию о том, за какую сторону или угол тянет пользователь, чтобы программа знала, координаты какого из углов прямоугольника нужно смещать, если возникнет такая необходимость.

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

Описанный "классический" вариант в чистом виде существует только в Windows 95. Во всех более поздних версиях по умолчанию включена опция отображения содержимого окна при перетаскивании и изменении размеров (начиная с Windows ХР эта опция не только включается по умолчанию, но и не отключается средствами пользовательского интерфейса). В таком режиме при изменении размеров окна вместо прямоугольника "резиновым" становится само окно, и любое перемещение мыши при изменении размеров приводит к перерисовке окна. В этом режиме окно получает сообщение WM_SIZE каждый раз после сообщения WM_SIZING, а не только при завершении изменения размеров. Но в целом логика этих сообщений остается прежней, просто с точки зрения программы это выглядит так, как будто пользователь изменяет размеры окна "по чуть-чуть".

Комбинация описанных достаточно простых вещей позволяет построить окно с дыркой, имеющей изменяемые размеры.

Для начала объявим несколько констант, которые нам потребуются при вычислении размеров дырки и т.п. (листинг 1.51).

const

 // минимальное расстояние от дырки до края окна

 HoleDistance = 40;

 // Зона чувствительности рамки панели - на сколько пикселов

 // может отстоять курсор вглубь от края панели, чтобы его

 // положение расценивалось как попадание в рамку.

 BorderMouseSensivity = 3;

 // Зона чувствительности угла рамки панели - на сколько пикселов

 // может отстоять курсор от угла панели, чтобы его

 // положение расценивалось как попадание в угол рамки.

 CornerMouseSensivity = 15;

 // Толщина рамки дырки, использующаяся при вычислении региона

 HoleBorder = 3;

 // Минимальная ширина и высота дырки

 MinHoleSize = 10;

 // Смещение стрелки относительно соответствующего угла

 ArrowOffset = 8;

Теперь приступаем к созданию программы. На форму "кладем" панель. С помощью функции SetWindowRgn устанавливаем такую форму окна, чтобы от панели была видна только рамка, а на всю внутреннюю часть панели пришлась дырка. Рамку выбираем такую, чтобы панель выглядела утопленной, так края дырки будут выглядеть естественней. Для расчета региона используется метод SetRegion (листинг 1.52), он вызывается всегда, когда нужно изменить регион окна.

procedure TFormHole.SetRegion;

var

 Rgn1, Rgn2: HRGN;

 R, R2: TRect;

begin

 // Создаем регион, соответствующий прямоугольнику окна

 Rgn1 := CreateRectRgn(0, 0, Width, Height);

 // Нам потребуются координаты панели относительно левого

 // верхнего угла окна (а не относительно левого верхнего

 // угла клиентской области, как это задается свойствами

 // Left и Тор). Функций для получения смещения клиентской

 // области относительно левого верхнего угла окна нет.

 // Придется воспользоваться сообщением WM_NCCalcRect

 R2 := Rect(Left, Top, Left + Width, Top + Height);

 Perform(WM_NCCALCSIZE, 0, LParam(@R2));

 // Переводим координаты полученного прямоугольника из

 // экранных в координаты относительно левого верхнего

 // угла окна

 OffsetRect(R2, -Left, -Top);

 // получаем координаты панели относительно левого

 // верхнего угла клиентской области и пересчитываем их

 // в координаты относительно верхнего левого угла окна

 R := Rect(0, 0, PanelHole.Width, PanelHole.Height);

 OffsetRect(R, PanelHole.Left + R2.Left, PanelHole.Top + R2.Top);

 // уменьшаем прямоугольник на величину рамки и создаем

 // соответствующий регион

 InflateRect(R, -HoleBorder, -HoleBorder);

 Rgn2 := CreateRectRgnIndirect(R);

 // вычитаем один прямоугольный регион из другого, получая

 // прямоугольник с дыркой

 CombineRgn(Rgn1, Rgn1, Rgn2, RGN_DIFF);

 // уничтожаем вспомогательный регион

 DeleteObject(Rgn2);

 // Назначаем регион с дыркой окну

 SetWindowRgn(Handle, Rgn1, True);

 // обратите внимание, что регион, назначенный окну, нигде

 // не уничтожается. После выполнения функции SetWindowRgn

 // регион переходит в собственность системы, и она сама

 // уничтожит его при необходимости

end;

Сообщения, поступающие с панели, перехватываются через ее свойство WindowProc (подробно эта технология описана в первой части данной главы, здесь мы ее касаться не будем). Сообщение WM_NCHITTEST будем обрабатывать так, чтобы при попадании мыши на рамку панели возвращались такие значения, чтобы за эту рамку можно было тянуть. В обработчике сообщения WM_SIZE панели изменяем регион так, чтобы он соответствовал новому размеру панели. Все, дырка с изменяемыми размерами готова. Теперь нужно научить "дырку" менять размеры при изменении размеров окна, если окно стало слишком маленьким, чтобы вместить в себя дырку. Осталось только немного "навести красоту". "Красота" заключается в том, чтобы пользователь не мог уменьшить размеры дырки до нуля и увеличить так, чтобы она вышла за пределы окна, а также уменьшить окно так. чтобы дырка оказалась за пределами окна. Первая из этих задач решается просто: добавляется обработчик сообщения WM_SIZING для дырки таким образом, чтобы ее размеры не могли стать меньше, чем MinHoleSize на MinHoleSize пикселов, а границы нельзя было придвинуть к границам окна ближе, чем на HoleDistance пикселов. Вторая задача решается еще проще: в обработчике WM_SIZE дырки меняем свойство Constraints формы таким образом, чтобы пользователь не мог слишком сильно уменьшить окно. Теперь окно с дыркой ведет себя корректно при любых действиях пользователя с дыркой. Получившийся в результате код обработчика сообщений панели приведен в листинге 1.53.

procedure TFormHole.PanelWndProc(var Msg: TMessage);

var

 Pt: TPoint;

 R: TRect;

begin

 POldPanelWndProc(Msg);

 if Msg.Msg = WM_NCHITTEST then

 begin

  // Вся хитрость обработки сообщения WM_NCHITTEST

  // заключается в правильном переводе экранных координат

  // в клиентские и в несколько муторной проверке попадания

  // мыши на сторону рамки или в ее угол. Дело упрощается