ContainsR(Rect: IGxRectF): Boolean;
Rect — прямоугольник, который необходимо проверить.
Метод ContainsR возвращает True, если вещественный прямоугольник, передаваемый посредством параметра Rect, содержится в данном прямоугольнике.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Obj, Obj1: ITabObject;
RectF, RectF1: IGxRectF;
s: String;
Begin
RectF:=New GxRectF.Create(0,0,Math.RandBetween(0,32.6),Math.RandBetween(0,28.36));
RectF1:=New GxRectF.Create(0,0,Math.RandBetween(0,31.6),Math.RandBetween(0,25.36));
Obj:=UiTabSheet1.TabSheet.Objects.Add("PrxPicture", RectF);
Obj1:=UiTabSheet1.TabSheet.Objects.Add("PrxPicture", RectF1);
(Obj As IPrxPicture).Image:=GxImage.FromFile("c:\1.bmp");
(Obj1 As IPrxPicture).Image:=GxImage.FromFile("c:\2.bmp");
If RectF.ContainsR(RectF1) Then
s:="Yes";
Else
s:="No";
End If;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку на регламентном отчете будут созданы два изображение. Источники изображения - файлы «1.bmp» и «2.bmp». В переменной «S» будет содержаться «Yes» если прямоугольник, ограничивающий второе изображения, входит в прямоугольник, ограничивающий первое изображения.
См. также: