Нашли ошибку? Выделите
текст с ошибкой и нажмите кнопку "Сообщить об ошибке"
или CTRL+ENTER.
Справочная
система на версию 10.1
от 27/06/2023,
© ООО «ФОРСАЙТ»,
Contains(X: Integer, Y: Integer): Boolean;
X. Координата Х точки;
Y. Координата Y точки.
Метод Contains проверяет содержание точки в целочисленном прямоугольнике.
Допустимые значения:
True. Если точка с координатами X и Y содержится в целочисленном прямоугольнике;
False. Если точка с координатами X и Y не содержится в целочисленном прямоугольнике.
Для выполнения примера предполагается наличие:
формы, расположенной на ней кнопки с идентификатором Button1, компонентов TabSheetBox и UiTabSheet с идентификатором TabSheetBox1 и UiTabSheet1 соответственно. Для TabSheetBox выберите в свойстве Source компонент с идентификатором UiTabSheet1;
файла изображения «C:\1.bmp».
Добавьте ссылки на системные сборки: Drawing, Forms, MathFin, Report, Tab, UI.
Пример является обработчиком события OnClick для компонента Button1.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Obj: ITabObject;
Tab: ITabSheet;
Rect: IGxRect;
X, Y: Integer;
Begin
// Создаем новый прямоугольник с указанными размерами
Rect := New GxRect.Create(0, 0, 50, 45);
Tab := UiTabSheet1.TabSheet;
// Добавляем изображение в созданный прямоугольник
Obj := Tab.Objects.Add("PrxPicture", Rect.ToRectF);
(Obj As IPrxPicture).Image := GxImage.FromFile("c:\1.bmp");
// Задаем точку со случайными координатами
X := Math.RandBetweenI(0, 70);
Y := Math.RandBetweenI(0, 70);
// Выполняем проверку вхождения точки в прямоугольник
If Rect.Contains(X, Y) Then
WinApplication.InformationBox("Yes");
Else
WinApplication.InformationBox("No");
End If;
End Sub Button1OnClick;
В результате выполнения примера при нажатии на кнопку Button1 в регламентном отчёте будет создано изображение. Источник изображения - файл «1.bmp». В информационном окне будет содержаться «Yes», если точка со случайными координатами входит в прямоугольник, ограничивающий изображение.
См. также: