Справочник функций и процедур Delphi: Bounds

  Навигация по первой букве:

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

  Реклама:

 

Bounds
Функция
Передаёт координаты вершин объекта типа TRect (прямоугольник) Classes unit
  function Bounds ( const Top, Left, Width, Height : Integer ) : TRect;

Google  
 
Описание
Функция Bounds передаёт координаты вершин объекта типа TRect (прямоугольник). Указываются 2 вершины - правая верхняя и левая нижняя.
Похожие команды
Point  Генерирует значение TPoint из значений X и Y

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

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

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

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

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

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

begin
  // Установка первого прямоугольника, используя функцию Rect
  // Обратите внимание, что мы заменяем Types версию Rect.
  rectangle1 := Classes.Rect(Point(10, 60), Point(50, 80));

  // Установка идентичного 2-го прямоугольника, используя функцию Bounds
  rectangle2 := Bounds(10, 60, 40, 20);

  // Показ левой верхней и правой нижней координаты каждого прямоугольника
  ShowMessageFmt('Координаты 1-го прямоугольника = %d,%d,%d,%d',
                 [rectangle1.Left,
                  rectangle1.Top,
                  rectangle1.Right,
                  rectangle1.Bottom]);

  ShowMessageFmt('Координаты 1-го прямоугольника = %d,%d,%d,%d',
                 [rectangle2.Left,
                  rectangle2.Top,
                  rectangle2.Right,
                  rectangle2.Bottom]);
end;
Координаты 1-го прямоугольника = 10,60,50,80
Координаты 1-го прямоугольника = 10,60,50,80
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook