Проверка попадания точки в прямоугольник (TPoint в TRect)Delphi , Графика и Игры , ГрафикаПроверка попадания точки в прямоугольник (TPoint в TRect)
Автор: Lipskiy { **** UBPFD *********** by delphibase.endimus.com **** >> Проверка попадания точки в прямоугольник (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; Статья Проверка попадания точки в прямоугольник (TPoint в TRect) раздела Графика и Игры Графика может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |