Rect

создаёт величину TRect с указанием 2 точек или 4 координат

1 function Rect ( Left, Top, Right, Bottom : Integer ) : TRect;

2 function Rect ( TopLeft, BottomRight : TPoint ) : TRect;

Описание:

Delphi функция Rect создает объект TRect (прямоугольник), для создания прямоугольника необходимо указать 4 числа - координат или 2 точки.

При создании с указанием двух точек TopLeft и BottomRight, вы можете передать две величины TPoint или использовать функцию Point.

Пример кода:

var
   rectangle1, rectangle2 : TRect;

begin
   // Set up the first rectangle using syntax 1
   rectangle1 := Rect(20, 40, 60, 80);

   // Set up the second rectangle using the Rect function
   rectangle2 := Classes.Rect(Point(20, 40), Point(60, 80));

   // Display the top left and bottom right coords of each rectangle
   ShowMessageFmt('Rectangle 1 coords = %d,%d,%d,%d',
                           [rectangle1.Left,
                          rectangle1.Top,
                          rectangle1.Right,
                          rectangle1.Bottom]);
   ShowMessageFmt('Rectangle 2 coords = %d,%d,%d,%d',
                         [rectangle2.Left,
                         rectangle2.Top,
                         rectangle2.Right,
                         rectangle2.Bottom]);
end;

Результат выполнения:

Rectangle 1 coords = 20,40,60,80
Rectangle 2 coords = 20,40,60,80

Клуб программистов

Delphi programming

Rect

Описание:

Пример кода:

Результат выполнения: