Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Вычисления



Вернуться к списку функций
 Проверка попадания точки в прямоугольник (TPoint в TRect)

 Прислал: lipskiy (Санкт-Петербург) ( 26 июня 2002 г. )
©  Собственное написание (lipskiy)
 Описание:
Проверка - входят ли координаты точки TPoint в область, ограниченную координатами прямоугольника TRect.
P.S. Вероятно, есть стандартная, но я не нашел.

 Зависимости:
Windows

 Ограничения:
Нет

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Проверка попадания точки в прямоугольник (TPoint в TRect)

Проверка - входят ли координаты точки TPoint в область, ограниченную координатами прямоугольника TRect.
P.S. Вероятно, есть стандартная, но я не нашел.

Зависимости: Windows
Автор:       lipskiy, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург
Copyright:   Собственное написание (lipskiy)
Дата:        26 июня 2002 г.
***************************************************************** }

function PointIntoRect(Point:TPoint;Rect:TRect):boolean;
begin
  Result:=
    (Point.x >= Rect.Left) and
    (Point.x <= Rect.Right) and
    (Point.y >= Rect.Top) and
    (Point.y <= Rect.Bottom);
end;


Вернуться к списку функций

Наверх ▲