Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
Rect
Функция
Создаёт величину TRect с указанием 2 точек или 4 координат Classes unit
  
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.
Примечания
Важно

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

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

Point  Генерирует значение TPoint из значений X и Y

PointsEqual  Сравнивает два значения TPoint на предмет равенства

PtInRect  Проверяет, находится ли точка в пределах прямоугольника

TPoint  Содержит целочисленные значения X и Y

TRect  Содержит значения координат прямоугольника

 
Пример кода : Создание двух прямоугольников с использованием обоих синтаксисов
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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия