dev

Author: ollydev

.github/workflows/build.yml

@@ -7,14 +7,15 @@ on:
   pull_request:
     branches:
       - '**'
+
+env:
+  FPC_VER: release_3_2_2
+  LAZ_VER: lazarus_2_2_4
 
 jobs:
   build:
     name: ${{ matrix.config.name }}
     runs-on: ${{ matrix.config.os }}
-    defaults:
-      run:
-        shell: bash
     strategy:
       fail-fast: false
       matrix:
@@ -45,29 +46,42 @@ jobs:
             binary: libsimpleocr64.dylib
 
     steps:
-      - uses: actions/checkout@v3.0.2
+      - uses: actions/checkout@v3.5.3
 
       - name: Install Lazarus
-        uses: ollydev/setup-lazarus-fpcup@v2.5
+        uses: ollydev/setup-lazarus-fpcup@v3.2
         with:
-          laz-branch: lazarus_2_2_2
-          fpc-branch: release_3_2_2
-          fpcup-release: v2.2.0h
+          laz: ${{ env.LAZ_VER }}
+          fpc: ${{ env.FPC_VER }}
 
       - name: Build SimpleOCR
         run: |
           lazbuild --build-mode=${{ matrix.config.build-mode }} SimpleOCR.lpi
 
-      - name: Test SimpleOCR
-        if: matrix.config.name == 'Windows 32'
-        run: |
-          unzip -q fonts
-          cd test
-          lazbuild tester.lpi
-          ./tester.exe
-
       - name: Upload Binary 
-        uses: actions/upload-artifact@v2.3.1
+        uses: actions/upload-artifact@v3.1.2
         with:
           name: ${{ matrix.config.binary }}
-          path: ${{ matrix.config.binary }}
+          path: ${{ matrix.config.binary }}
+
+  testing:
+    runs-on: windows-latest
+    needs: build
+    steps:
+      - uses: actions/[email protected]
+
+      - name: Install Lazarus
+        uses: ollydev/[email protected]
+        with:
+          laz: ${{ env.LAZ_VER }}
+          fpc: ${{ env.FPC_VER }}
+
+      - name: Build Tester
+        run: |
+          cd tester
+          lazbuild tester.lpi
+
+      - name: Run Tests
+        run: |
+          cd tester  
+          ./tester.exe   

.gitignore

@@ -8,4 +8,4 @@
 *.exe
 backup
 lib
-/fonts/
+/tester/fonts

README.md

@@ -35,9 +35,15 @@ function TSimpleOCR.LocateText(Area: TBox; Font: TFontSet; out Bounds: TBox): Si
   ```
   Example:
   ```pascal
-  TOCRColorFilter.Create([255]); // Find color red
+  TOCRColorFilter.Create([$0000FF]); // Find color red
   ```
   ![Example](images/filter_color_200.png)
+  
+  Example with tolerance:
+  ```pascal
+  TOCRColorFilter.Create([$FFFFFF], [100]); // Find color white with 100 tolerance
+  ```
+  ![Example](images/filter_colortolerance_200.png)
 
   ---
 

SimpleOCR.lpr

@@ -35,9 +35,9 @@ begin
   end;
 end;
 
-procedure addCode(Code: String);
+procedure addCode(Code: TStringArray);
 begin
-  SimbaImports.Code := SimbaImports.Code + Code;
+  SimbaImports.Code := SimbaImports.Code + String.Join(LineEnding, Code);
 end;
 
 // Exports