О чём не пишут в книгах по Delphi

Григорьев Антон Борисович

end;

Напоследок добавим к программе один "бантик": красные стрелки по углам формы, за которые можно потянуть, чтобы изменить ее размер. Каждая стрелка будет представляться отдельным регионом. Координаты регионов должны быть привязаны к соответствующим углам окна, поэтому при изменении размеров окна эти координаты придется пересчитывать (в листинге 1.54 можно найти соответствующий вызов). Все стрелки выглядят одинаково, но являются зеркальным отражением друг друга. Чтобы рассчитывать координаты стрелок, мы зададим координаты одной нарисованной заранее стрелки в виде константы, а потом будем рассчитывать на основе

этих данных координаты реальных стрелок, отражая их от нужной плоскости и добавляя требуемое смещение (листинг 1.55).

Листинг 1.55. Расчет координат стрелок

// координаты верхней левой стрелки, отсчитанные от точки

// (0,0). Для получения координат реальных стрелок эти точки

// будут смещаться и отражаться

const

 ArrowTemplate: TArrowCoords = (

(X:0; Y:0), (X:24; Y:0), (X:17; Y:7), (X:29; Y:19),

(X:19; Y:29), (X:7; Y:17), (X:0; Y:24));

procedure TFomHole.CalculateArrows;

var

 Arrow: TArrowCoords;

 I: Integer;

begin

 // Вычисление региона левой верхней стрелки

 // Координаты просто смещаются на постоянную величину

 for I := 0 to High(Arrow) do

 begin

Arrow[I].X := ArrowTemplate[I].X + ArrowOffset;

Arrow[I].Y := ArrowTemplate[I].Y + ArrowOffset;

 end;

 // При необходимости уничтожаем старый регион

 if ArrowTopLeft <> 0 then DeleteObject(ArrowTopLeft);

 ArrowTopLeft :=

CreatePolygonRgn(Arrow[0], Length(Arrow), WINDING);

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

 // Координаты по X отражаются и смещаются

 // на постоянную величину относительно правого края окна

 for I := 0 to High(Arrow) do

 begin

Arrow[I].X := ClientWidth - ArrowOffset - 1 - ArrowTemplate[I].X;

Arrow[I].Y := ArrowTemplate[I].Y + ArrowOffset;

 end;

 if ArrowTopRight <> 0 then DeleteObject(ArrowTopRight);

 ArrowTopRight := CreatePolygonRgn(Arrow[0], Length(Arrow), WINDING);

 // Вычисление региона левой нижней стрелки

 // Координаты по Y отражаются и смещаются

 // на постоянную величину относительно нижнего края окна

 for I := 0 to High(Arrow) do

 begin

Arrow[I].X := ArrowTemplate[I].X + ArrowOffset;

Arrow[I].Y := ClientHeight - ArrowOffset - 1 - ArrowTemplate[I].Y;

 end;

 if ArrowBottomLeft <> 0 then DeleteObject(ArrowBottomLeft);

 ArrowBottomLeft := CreatePolygonRgn(Arrow[0], Length(Arrow), WINDING);

 //

Вычисление региона правой нижней стрелки

 // Координаты по обеим осям отражаются и смещаются

 // на постоянную величину относительно правого нижнего угла окна

 for I := 0 to High(Arrow) do

 begin

Arrow[I].X := ClientWidth - ArrowOffset - 1 - ArrowTemplate[I].X;

Arrow[I].Y := ClientHeight - ArrowOffset - 1 - ArrowTemplate[I].Y;

 end;

 if ArrowBottomRight <> 0 then DeleteObject(ArrowBottomRight);

 ArrowBottomRight := CreatePolygonRgn(Arrow[0], Length(Arrow), WINDING);

end;

Следующий шаг — рисование стрелки на форме. Делается это очень просто (листинг 1.56).

Листинг 1.56. Рисование стрелок на форме

procedure TFormHole.FormPaint(Sender: TObject);

begin

 // Закрашиваем регионы стрелок

 Canvas.Brush.Style := bsSolid;

 Canvas.Brush.Color := clRed;

 FillRgn(Canvas.Handle, ArrowTopLeft, Canvas.Brush.Handle);

 FillRgn(Canvas.Handle, ArrowTopRight, Canvas.Brush.Handle);

 FillRgn(Canvas.Handle, ArrowBottomLeft, Canvas.Brush.Handle);

 FillRgn(Canvas.Handle, ArrowBottomRight, Canvas.Brush.Handle);

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

WM_NCHITTEST

. Вопрос только в том, как узнать, когда координаты мыши попадают внутрь нарисованной стрелки, поскольку стрелка является объектом сложной формы, вычислить это не очень просто. Данная задача также решается с помощью регионов: попадание координат курсора в регион каждой из стрелок отслеживается с помощью стандартной функции

PtInRegion

(листинг 1.57).

Листинг 1.57. Обработчик

WM_NCHITTEST

формы

procedure TFormHole.WMNCHitTest(var Msg: TWMNCHitTest);

var

 Pt: TPoint;

begin

 // Чтобы правильно обрабатывать стандартную неклиентскую область,

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

 inherited;

 // Не забываем, что параметры WM_NCHITTEST дают экранные,

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