From a4a8978029bd7631be5d6dd59df5d7276d460416 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Tue, 27 Aug 2024 22:35:36 +0200
Subject: [PATCH] LazUtils/Graphmath: Fix incorrect Distance() function for
 vertical lines. Issue #41098

(cherry picked from commit 6ca87f810b49f171947cadb67f935767d5afd845)
---
 components/lazutils/graphmath.pp | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/components/lazutils/graphmath.pp b/components/lazutils/graphmath.pp
index 7f3f961c68..b3cb652e0f 100644
--- a/components/lazutils/graphmath.pp
+++ b/components/lazutils/graphmath.pp
@@ -685,10 +685,8 @@ var
 
   function Slope(PT1,Pt2 : TFloatPoint) : Extended;
   begin
-    If Pt2.X <> Pt1.X then
-      Result := (Pt2.Y - Pt1.Y) / (Pt2.X - Pt1.X)
-    else
-      Result := 1;
+    // The case Pt1.X = Pt2.X has already been handled.
+    Result := (Pt2.Y - Pt1.Y) / (Pt2.X - Pt1.X);
   end;
 
   function YIntercept(PT1,Pt2 : TFloatPoint) : Extended;
@@ -697,6 +695,15 @@ var
   end;
 
 begin
+  if SP.X = EP.X then
+  begin
+    if SP.Y <> EP.Y then
+      Result := abs(Pt.X - SP.X)
+    else
+      Result := Distance(Pt, SP);
+    exit;
+  end;
+
   A := -Slope(SP,EP);
   B := 1;
   C := -YIntercept(SP, EP);