try to fix recognize lines bug

Author: Torwent

Source/simba.pixelocr.pas

@@ -578,28 +578,15 @@ function TPixelOCR.Recognize(Image: TSimbaImage; constref Font: TPixelFont; Boun
 end;
 
 function TPixelOCR.RecognizeLines(Image: TSimbaImage; constref Font: TPixelFont; Bounds: TBox): TStringArray;
-
+  var Temp: TPixelOCR;
   function MaybeRecognize(const X, Y: Integer; const isBinary: Boolean; out Match: TPixelOCRMatch): Boolean;
-  var
-    Temp: TPixelOCR;
   begin
     Result := False;
-
-    // use a copy here since we change these properties
-    Temp := Self;
-    Temp.Whitelist := ALPHA_NUM_SYMBOLS;
-    Temp.MaxLen := 1;
-    Temp.MaxWalk := 0;
-
     // Find something on a row that isn't a small character
     Match := Temp._RecognizeX(Image, @Font, X, Y, isBinary);
     if (Match.Hits > 0) then
     begin
       // OCR the row and some extra rows
-      Temp.Whitelist := Self.Whitelist;
-      Temp.MaxWalk := 0;
-      Temp.MaxLen := 0;
-
       Match := Temp._RecognizeXY(Image, @Font, X, Y, Font.MaxGlyphHeight div 2, isBinary);
       // Ensure that actual Text was extracted, not just a symbol mess of short or small character symbols.
       if ContainsAlphaNumSym(Match.Text) then
@@ -614,6 +601,14 @@ function TPixelOCR.RecognizeLines(Image: TSimbaImage; constref Font: TPixelFont;
   if (Length(Font.Glyphs) = 0) then
     SimbaException('Font is empty');
 
+  Temp := Self;
+  Temp.Whitelist := ALPHA_NUM_SYMBOLS;
+  Temp.MaxLen := 1;
+  Temp.MaxWalk := 0;
+  Temp.Whitelist := Self.Whitelist;
+  Temp.MaxWalk := 0;
+  Temp.MaxLen := 0;
+
   Result := [];
   Matches := [];
 
@@ -634,6 +629,7 @@ function TPixelOCR.RecognizeLines(Image: TSimbaImage; constref Font: TPixelFont;
       // Now we can confidently skip this search line by a jump, but we dont skip fully in case of close/overlapping Text
       // So we divide the texts max glyph Height by 2 and subtract that from the lower end of the found bounds.
       Bounds.Y1 := Max(Bounds.Y1, Match.Bounds.Y2 - (Font.MaxGlyphHeight div 2));
+      Continue;
     end;
 
     Bounds.Y1 += 1;