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
TRect
Тип
Содержит значения координат прямоугольника Types unit
  type
   TRect = packed record
   case Integer of
     0: (Left, Top, Right, Bottom: Integer);
     1: (TopLeft, BottomRight: TPoint);
end;
Описание
Тип TRect является записью содержащей значения прямоугольника или также 4 координаты, или 2 точки.

Это классический пример использования раздела Case в записи.

При создании от двух пунктов TopLeft и BottomRight, вы можете передать два значения TPoint, или использовать функцию Point, чтобы сгенерировать их.
Похожие команды
Bounds  Передаёт координаты вершин объекта типа TRect (прямоугольник)

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

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

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

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

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

 
Пример кода : Создание одного прямоугольника вручную, другого использования Rect
var
  rectangle1, rectangle2 : TRect;

begin
  // Установка первого прямоугольника вручную
  rectangle1.Left   := 0;
  rectangle1.Top    := 0;
  rectangle1.Right  := 40;
  rectangle1.Bottom := 60;

  // Установка второго прямоугольника, используя функцию Rect
  rectangle2 := 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 прямоугольника = 0,0,40,60
Координаты 2 прямоугольника = 20,40,60,80
 



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