Delphi-Help

Rect

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

Rect

Описание

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
// Установка первого прямоугольника, используя 1-ый синтаксис
rectangle1 := Rect(20, 40, 60, 80);

// Установка второго прямоугольника, используя функцию Rect
rectangle2 := Classes.Rect(Point(20, 40), Point(60, 80));

// Отображение верхней левой и правой нижней координаты каждого прямоугольника
ShowMessageFmt('Координаты 1-го Прямоугольника = %d,%d,%d,%d',
[rectangle1.Left,
rectangle1.Top,
rectangle1.Right,
rectangle1.Bottom]);

ShowMessageFmt('Координаты 2-го Прямоугольника = %d,%d,%d,%d',
[rectangle2.Left,
rectangle2.Top,
rectangle2.Right,
rectangle2.Bottom]);
end;

Координаты 1-го Прямоугольника = 20,40,60,80
Координаты 1-го Прямоугольника = 20,40,60,80

Примечание

Важно

В модулях Classes и Types есть две функции Rect. Только прежняя поддерживает второй синтаксис.

При использовании в вашем коде обоих из этих модулей, и Вы указали Types после Classes, то вы должны использовать Rect с прификсом Classes, чтобы использовать этот второй синтаксис.

 

Авторизация



Счетчики