From 0dc3fc6c38501675634218005d6943bf1ed74de6 Mon Sep 17 00:00:00 2001
From: ImperatorZurg <57493519+ImperatorZurg@users.noreply.github.com>
Date: Fri, 12 Apr 2024 14:03:36 +0200
Subject: [PATCH] more accurate results of sizeOfBlackWhiteBlackRunBothWays if
 outside of image

replaced integer division with floating point division
---
 .../Detector/ZXing.QrCode.Internal.Detector.pas | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/Lib/Classes/2D Barcodes/Detector/ZXing.QrCode.Internal.Detector.pas b/Lib/Classes/2D Barcodes/Detector/ZXing.QrCode.Internal.Detector.pas
index cdcfc94..c4f99e6 100644
--- a/Lib/Classes/2D Barcodes/Detector/ZXing.QrCode.Internal.Detector.pas	
+++ b/Lib/Classes/2D Barcodes/Detector/ZXing.QrCode.Internal.Detector.pas	
@@ -454,34 +454,35 @@ function TDetector.sizeOfBlackWhiteBlackRun(fromX: Integer; fromY: Integer;
 function TDetector.sizeOfBlackWhiteBlackRunBothWays(fromX: Integer;
   fromY: Integer; toX: Integer; toY: Integer): Single;
 var
-  scale, otherToX, otherToY: Integer;
+  scale: Double;
+  otherToX, otherToY: Integer;
 begin
-  Result := self.sizeOfBlackWhiteBlackRun(fromX, fromY, toX, toY);
+  Result := sizeOfBlackWhiteBlackRun(fromX, fromY, toX, toY);
   scale := 1;
   otherToX := (fromX - (toX - fromX));
   if (otherToX < 0) then
   begin
-    scale := (fromX div (fromX - otherToX));
+    scale := (fromX / (fromX - otherToX));
     otherToX := 0
   end
   else if (otherToX >= FImage.Width) then
   begin
-    scale := (((FImage.Width - 1) - fromX) div (otherToX - fromX));
+    scale := (((FImage.Width - 1) - fromX) / (otherToX - fromX));
     otherToX := (FImage.Width - 1)
   end;
-  otherToY := (fromY - ((toY - fromY) * scale));
+  otherToY := Round(fromY - ((toY - fromY) * scale));
   scale := 1;
   if (otherToY < 0) then
   begin
-    scale := fromY div (fromY - otherToY);
+    scale := fromY / (fromY - otherToY);
     otherToY := 0
   end
   else if (otherToY >= FImage.Height) then
   begin
-    scale := (((FImage.Height - 1) - fromY) div (otherToY - fromY));
+    scale := (((FImage.Height - 1) - fromY) / (otherToY - fromY));
     otherToY := (FImage.Height - 1)
   end;
-  otherToX := (fromX + (otherToX - fromX) * scale);
+  otherToX := Round(fromX + (otherToX - fromX) * scale);
   Result := Result + self.sizeOfBlackWhiteBlackRun(fromX, fromY, otherToX,
     otherToY);