Описание |
Функция Bounds передаёт координаты вершин объекта типа TRect (прямоугольник). Указываются 2 вершины - правая верхняя и левая нижняя.
|
|
Похожие команды |
Point Генерирует значение TPoint из значений X и Y
PointsEqual Сравнивает два значения TPoint на предмет равенства
PtInRect Проверяет, находится ли точка в пределах прямоугольника
Rect Создаёт величину TRect с указанием 2 точек или 4 координат
TPoint Содержит целочисленные значения X и Y
TRect Содержит значения координат прямоугольника
| |
|
Пример кода : Создание прямоугольника, используя Rect и Bounds |
var
rectangle1, rectangle2 : TRect;
begin // Установка первого
прямоугольника, используя функцию Rect //
Обратите внимание, что мы заменяем Types версию Rect.
rectangle1 := Classes.Rect(Point(10, 60), Point(50, 80));
// Установка идентичного 2-го
прямоугольника, используя функцию Bounds
rectangle2 := Bounds(10, 60, 40, 20);
// Показ левой верхней и правой
нижней координаты каждого прямоугольника
ShowMessageFmt('Координаты 1-го прямоугольника = %d,%d,%d,%d',
[rectangle1.Left,
rectangle1.Top,
rectangle1.Right,
rectangle1.Bottom]);
ShowMessageFmt('Координаты 1-го прямоугольника = %d,%d,%d,%d',
[rectangle2.Left,
rectangle2.Top,
rectangle2.Right,
rectangle2.Bottom]);
end;
|
Координаты 1-го прямоугольника = 10,60,50,80
Координаты 1-го прямоугольника = 10,60,50,80
|
|