Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - Справочник: Rect
Rect
|
1 function Rect ( Left, Top, Right, Bottom : Integer ) : TRect; 2 function Rect ( TopLeft, BottomRight : TPoint ) : TRect; |
Функция (Unit Classes)
|
Создаёт величину TRect с указанием 2 точек или 4 координат
|
Описание:
|
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, чтобы использовать этот второй синтаксис. |