|
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
|
