Отслеживание пересечений мыши с линиями в Delphi

Delphi , Графика и Игры , Canvas

Вопрос, поставленный пользователем, заключается в необходимости отслеживания пересечений курсора мыши с линией, заданной двумя точками. Пользователь уже пытался решить задачу, используя функцию PtInRect, но она предназначена для проверки принадлежности точки области прямоугольника, а не линии. В результате пользователь спрашивает, существует ли специализированная функция для работы с линиями или же необходимо создавать её вручную.

Комментарии к вопросу:

Возможно, пользователь имеет в виду не саму линию, а сегмент линии. В случае, если расстояние от точки до линии равно нулю, это означает, что произошел касание.

Подтвержденный ответ:

Представлен код, который позволяет проверить, находится ли курсор мыши на линии. Код взят с сайта SwissDelphiCenter и предоставляет функцию PontInLine, которая возвращает True, если точка (X, Y) находится в пределах заданной линии, определенной точками (x1, y1) и (x2, y2), с учетом погрешности d.

function PontInLine(X, Y, x1, y1, x2, y2, d: Integer): Boolean;
var
  sine, cosinus: Double;
  dx, dy, len: Integer;
begin
  if d = 0 then d := 1;
  // Здесь используется ассемблер для вычисления угла линии
  // ...
  dx  := Round(cosinus * (x - x1) + sine * (y - y1));
  dy  := Round(cosinus * (y - y1) - sine * (x - x1));
  len := Round(cosinus * (x2 - x1) + sine * (y2 - y1)); // длина линии
  Result:= (dy > -d) and (dy < d) and (dx > -d) and (dx < len + d);
end;

Также предоставляется альтернативная версия функции PontInLine, которая не использует ассемблер, а вместо этого использует функции ArcTan2 и SinCos из модуля Math.

uses
  Math;
function PontInLine(X, Y, x1, y1, x2, y2, d: Integer): Boolean;
var
  Theta, sine, cosinus: Double;
  dx, dy, len: Integer;
begin
  if d = 0 then d := 1;
  // Вычисление угла линии
  Theta:=ArcTan2( (y2-y1),(x2-x1));
  SinCos(Theta,sine, cosinus);
  // ...
end;

Для упрощения, также представлена функция OnSameLine, которая сравнивает угла наклона, что является более прямым математическим решением без использования тригонометрии.

function OnSameLine(const A, B, C: TPoint): Boolean;
begin
  // Сравниваем углы наклона двух линий
  Result := Math.SameValue((A.x-B.x)*(A.y-C.y),(A.x-C.x)*(A.y-B.y));
end;

Данные функции позволяют реализовать событие на MouseMove, которое будет активироваться при касании курсором мыши линии на форме.

Пример использования кода в обработчике события MouseMove формы:

procedure TForm73.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  p: TPoint;
begin
  GetCursorPos(p);
  p := ScreenToClient(p);
  if PontInLine(p.x, p.y, x1, y1, x2, y2, 1) then
    Caption := 'Курсор на линии.'
  else
    Caption := 'Курсор не на линии.'
end;

Этот подход позволяет эффективно отслеживать пересечения курсора мыши с линиями в приложениях на Delphi.

Создано по материалам из источника по ссылке.

Отслеживание пересечений курсора мыши с линией, определенной двумя точками, и активация событий при касании линии.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Canvas ::