ContainsR(Rect: IGxRect): Boolean;
Rect — прямоугольник, который необходимо проверить.
Метод ContainsR возвращает 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,32),Math.RandBetweenI(0,28));
Rect1:=New GxRect.Create(0,0,Math.RandBetweenI(0,31),Math.RandBetweenI(0,25));
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.ContainsR(Rect1) Then
s:="Yes";
Else
s:="No";
End If;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку на регламентном отчете будут созданы два изображение. Источники изображения - файлы «1.bmp» и «2.bmp». В переменной «S» будет содержаться «Yes» если прямоугольник, ограничивающий второе изображения, входит в прямоугольник, ограничивающий первое изображения.
См. также: