IGxRect.IntersectsWith

Синтаксис

IntersectsWith(Rect: IGxRect): Boolean;

Параметры

Rect — целочисленный прямоугольник, с которым необходимо проверить пересечение.

Описание

Метод Intersect возвращает True если данный целочисленный прямоугольник пересекает прямоугольник, передаваемый посредством параметра Rect.

Пример

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

Obj, Obj1: ITabObject;

Rect, Rect1: IGxRect;

s: String;

Begin

Rect:=New GxRect.Create(0,0,Math.RandBetweenI(0,30),Math.RandBetweenI(0,30));

Rect1:=New GxRect.Create(Math.RandBetweenI(0,15),Math.RandBetweenI(0,15),Math.RandBetweenI(0,30),Math.RandBetweenI(0,30));

Obj:=UiTabSheet1.TabSheet.Objects.Add("PrxPicture", Rect.ToRectF);

Obj1:=UiTabSheet1.TabSheet.Objects.Add("PrxPicture", Rect1.ToRectF);

(Obj As IPrxPicture).Image:=GxImage.FromFile("c:\1.bmp");

(Obj1 As IPrxPicture).Image:=GxImage.FromFile("c:\2.bmp");

If Rect.IntersectsWith(Rect1) Then

s:="Yes";

Else

s:="No";

End If;

End Sub Button1OnClick;

После выполнения примера при нажатии на кнопку на регламентном отчете будут созданы два изображение. Источники изображения - файлы «1.bmp» и «2.bmp». В переменной «s» будет содержаться «Yes» если целочисленный прямоугольник, ограничивающий первое изображения, пересекает прямоугольник, ограничивающий второе изображения.

См. также:

IGxRect