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
 



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