Справочник функций и процедур Delphi: TRect
  Навигация по первой букве:

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
  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

TRect
Тип		 Содержит значения координат прямоугольника Types unit
  type
   TRect = packed record
   case Integer of
     0: (Left, Top, Right, Bottom: Integer);
     1: (TopLeft, BottomRight: TPoint);
end;

Delphi Sources

Описание
Тип 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
 


Последние добавленные на сайт исходники

DeLiKaTeS Tetris (Тетрис)

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker
 

Айболит (remote control)

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений
 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте