From 7a779be7ca09127872a9219ed146b16fcae1a668 Mon Sep 17 00:00:00 2001
From: Wizzup? <Wizzup?@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Wed, 23 Dec 2009 18:53:35 +0000
Subject: [PATCH] Fix.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@326 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 Projects/OCRBench/project1.lpi | 171 +++++++++++++++++----------------
 Projects/OCRBench/unit1.pas    |   6 +-
 2 files changed, 94 insertions(+), 83 deletions(-)

diff --git a/Projects/OCRBench/project1.lpi b/Projects/OCRBench/project1.lpi
index e4c1c86..16ec9ca 100644
--- a/Projects/OCRBench/project1.lpi
+++ b/Projects/OCRBench/project1.lpi
@@ -7,7 +7,7 @@
       <TargetFileExt Value=""/>
       <Icon Value="0"/>
       <UseXPManifest Value="True"/>
-      <ActiveEditorIndexAtStart Value="1"/>
+      <ActiveEditorIndexAtStart Value="0"/>
     </General>
     <VersionInfo>
       <ProjectVersion Value=""/>
@@ -31,7 +31,7 @@
         <PackageName Value="LCL"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="18">
+    <Units Count="19">
       <Unit0>
         <Filename Value="project1.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -44,8 +44,8 @@
         <ComponentName Value="Form1"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <CursorPos X="48" Y="86"/>
-        <TopLine Value="90"/>
+        <CursorPos X="30" Y="85"/>
+        <TopLine Value="66"/>
         <EditorIndex Value="0"/>
         <UsageCount Value="59"/>
         <Loaded Value="True"/>
@@ -75,7 +75,7 @@
         <UnitName Value="Client"/>
         <CursorPos X="25" Y="50"/>
         <TopLine Value="31"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="4"/>
         <UsageCount Value="30"/>
         <Loaded Value="True"/>
       </Unit4>
@@ -83,8 +83,8 @@
         <Filename Value="../../Units/MMLCore/ocr.pas"/>
         <UnitName Value="ocr"/>
         <CursorPos X="10" Y="583"/>
-        <TopLine Value="375"/>
-        <EditorIndex Value="5"/>
+        <TopLine Value="387"/>
+        <EditorIndex Value="6"/>
         <UsageCount Value="30"/>
         <Loaded Value="True"/>
       </Unit5>
@@ -93,7 +93,7 @@
         <UnitName Value="bitmaps"/>
         <CursorPos X="18" Y="81"/>
         <TopLine Value="47"/>
-        <EditorIndex Value="10"/>
+        <EditorIndex Value="11"/>
         <UsageCount Value="29"/>
         <Loaded Value="True"/>
       </Unit6>
@@ -102,7 +102,7 @@
         <UnitName Value="ocrutil"/>
         <CursorPos X="45" Y="281"/>
         <TopLine Value="249"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="3"/>
         <UsageCount Value="29"/>
         <Loaded Value="True"/>
       </Unit7>
@@ -117,16 +117,16 @@
         <UnitName Value="tpa"/>
         <CursorPos X="5" Y="557"/>
         <TopLine Value="535"/>
-        <EditorIndex Value="9"/>
+        <EditorIndex Value="10"/>
         <UsageCount Value="27"/>
         <Loaded Value="True"/>
       </Unit9>
       <Unit10>
         <Filename Value="../../Units/MMLCore/mufasatypesutil.pas"/>
         <UnitName Value="mufasatypesutil"/>
-        <CursorPos X="23" Y="23"/>
+        <CursorPos X="25" Y="8"/>
         <TopLine Value="1"/>
-        <EditorIndex Value="7"/>
+        <EditorIndex Value="8"/>
         <UsageCount Value="26"/>
         <Loaded Value="True"/>
       </Unit10>
@@ -135,7 +135,7 @@
         <UnitName Value="finder"/>
         <CursorPos X="78" Y="455"/>
         <TopLine Value="432"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="5"/>
         <UsageCount Value="23"/>
         <Loaded Value="True"/>
       </Unit11>
@@ -156,7 +156,7 @@
         <UnitName Value="files"/>
         <CursorPos X="7" Y="103"/>
         <TopLine Value="73"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="7"/>
         <UsageCount Value="20"/>
         <Loaded Value="True"/>
       </Unit14>
@@ -172,140 +172,149 @@
         <UnitName Value="windowselector"/>
         <CursorPos X="1" Y="1"/>
         <TopLine Value="1"/>
-        <EditorIndex Value="8"/>
+        <EditorIndex Value="9"/>
         <UsageCount Value="12"/>
         <Loaded Value="True"/>
       </Unit16>
       <Unit17>
         <Filename Value="../../Units/MMLCore/window.pas"/>
         <UnitName Value="Window"/>
-        <CursorPos X="5" Y="433"/>
-        <TopLine Value="423"/>
-        <EditorIndex Value="1"/>
+        <CursorPos X="8" Y="612"/>
+        <TopLine Value="598"/>
+        <EditorIndex Value="2"/>
         <UsageCount Value="11"/>
         <Loaded Value="True"/>
       </Unit17>
+      <Unit18>
+        <Filename Value="../../Units/MMLCore/mufasatypes.pas"/>
+        <UnitName Value="MufasaTypes"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="277"/>
+        <EditorIndex Value="1"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit18>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="597" Column="18" TopLine="576"/>
-      </Position1>
-      <Position2>
-        <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="601" Column="7" TopLine="576"/>
-      </Position2>
-      <Position3>
-        <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="581" Column="39" TopLine="564"/>
-      </Position3>
-      <Position4>
-        <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="594" Column="7" TopLine="574"/>
-      </Position4>
-      <Position5>
-        <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="622" Column="79" TopLine="588"/>
-      </Position5>
-      <Position6>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="54" Column="20" TopLine="1"/>
-      </Position6>
-      <Position7>
         <Filename Value="unit1.pas"/>
         <Caret Line="53" Column="20" TopLine="15"/>
-      </Position7>
-      <Position8>
+      </Position1>
+      <Position2>
         <Filename Value="unit1.pas"/>
         <Caret Line="45" Column="65" TopLine="39"/>
-      </Position8>
-      <Position9>
+      </Position2>
+      <Position3>
         <Filename Value="unit1.pas"/>
         <Caret Line="119" Column="5" TopLine="93"/>
-      </Position9>
-      <Position10>
+      </Position3>
+      <Position4>
         <Filename Value="unit1.pas"/>
         <Caret Line="30" Column="68" TopLine="6"/>
-      </Position10>
-      <Position11>
+      </Position4>
+      <Position5>
         <Filename Value="unit1.pas"/>
         <Caret Line="105" Column="3" TopLine="73"/>
-      </Position11>
-      <Position12>
+      </Position5>
+      <Position6>
         <Filename Value="../../Units/MMLCore/ocr.pas"/>
         <Caret Line="12" Column="77" TopLine="1"/>
-      </Position12>
-      <Position13>
+      </Position6>
+      <Position7>
         <Filename Value="../../Units/MMLCore/ocr.pas"/>
         <Caret Line="37" Column="77" TopLine="26"/>
+      </Position7>
+      <Position8>
+        <Filename Value="../../Units/MMLCore/ocr.pas"/>
+        <Caret Line="619" Column="28" TopLine="592"/>
+      </Position8>
+      <Position9>
+        <Filename Value="../../Units/MMLCore/ocr.pas"/>
+        <Caret Line="527" Column="41" TopLine="496"/>
+      </Position9>
+      <Position10>
+        <Filename Value="../../Units/MMLCore/ocrutil.pas"/>
+        <Caret Line="57" Column="21" TopLine="37"/>
+      </Position10>
+      <Position11>
+        <Filename Value="../../Units/MMLCore/ocr.pas"/>
+        <Caret Line="467" Column="18" TopLine="448"/>
+      </Position11>
+      <Position12>
+        <Filename Value="../../Units/MMLAddon/tpa.pas"/>
+        <Caret Line="50" Column="33" TopLine="30"/>
+      </Position12>
+      <Position13>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="111" Column="35" TopLine="97"/>
       </Position13>
       <Position14>
         <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="619" Column="28" TopLine="592"/>
+        <Caret Line="468" Column="38" TopLine="445"/>
       </Position14>
       <Position15>
         <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="527" Column="41" TopLine="496"/>
+        <Caret Line="469" Column="26" TopLine="445"/>
       </Position15>
       <Position16>
-        <Filename Value="../../Units/MMLCore/ocrutil.pas"/>
-        <Caret Line="57" Column="21" TopLine="37"/>
+        <Filename Value="../../Units/MMLCore/ocr.pas"/>
+        <Caret Line="486" Column="18" TopLine="467"/>
       </Position16>
       <Position17>
         <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="467" Column="18" TopLine="448"/>
+        <Caret Line="634" Column="41" TopLine="293"/>
       </Position17>
       <Position18>
-        <Filename Value="../../Units/MMLAddon/tpa.pas"/>
-        <Caret Line="50" Column="33" TopLine="30"/>
+        <Filename Value="../../Units/MMLCore/ocr.pas"/>
+        <Caret Line="191" Column="50" TopLine="183"/>
       </Position18>
       <Position19>
         <Filename Value="unit1.pas"/>
-        <Caret Line="111" Column="35" TopLine="97"/>
+        <Caret Line="9" Column="66" TopLine="1"/>
       </Position19>
       <Position20>
-        <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="468" Column="38" TopLine="445"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="34" Column="16" TopLine="1"/>
       </Position20>
       <Position21>
-        <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="469" Column="26" TopLine="445"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="149" Column="13" TopLine="117"/>
       </Position21>
       <Position22>
-        <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="486" Column="18" TopLine="467"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="135" Column="69" TopLine="124"/>
       </Position22>
       <Position23>
         <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="634" Column="41" TopLine="293"/>
+        <Caret Line="340" Column="78" TopLine="325"/>
       </Position23>
       <Position24>
-        <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="191" Column="50" TopLine="183"/>
+        <Filename Value="../../Units/MMLCore/window.pas"/>
+        <Caret Line="62" Column="64" TopLine="46"/>
       </Position24>
       <Position25>
         <Filename Value="unit1.pas"/>
-        <Caret Line="9" Column="66" TopLine="1"/>
+        <Caret Line="91" Column="43" TopLine="74"/>
       </Position25>
       <Position26>
         <Filename Value="unit1.pas"/>
-        <Caret Line="34" Column="16" TopLine="1"/>
+        <Caret Line="89" Column="13" TopLine="71"/>
       </Position26>
       <Position27>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="149" Column="13" TopLine="117"/>
+        <Filename Value="../../Units/MMLCore/mufasatypesutil.pas"/>
+        <Caret Line="8" Column="25" TopLine="1"/>
       </Position27>
       <Position28>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="135" Column="69" TopLine="124"/>
+        <Filename Value="../../Units/MMLCore/window.pas"/>
+        <Caret Line="71" Column="47" TopLine="51"/>
       </Position28>
       <Position29>
-        <Filename Value="../../Units/MMLCore/ocr.pas"/>
-        <Caret Line="340" Column="78" TopLine="325"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="91" Column="1" TopLine="67"/>
       </Position29>
       <Position30>
-        <Filename Value="../../Units/MMLCore/window.pas"/>
-        <Caret Line="62" Column="64" TopLine="46"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="85" Column="41" TopLine="66"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>
diff --git a/Projects/OCRBench/unit1.pas b/Projects/OCRBench/unit1.pas
index 8fd29ec..a77ab2c 100644
--- a/Projects/OCRBench/unit1.pas
+++ b/Projects/OCRBench/unit1.pas
@@ -84,8 +84,10 @@ begin
   if UseClient then
     C.MWindow.SetWindow(CliW)
   else
+  begin
     bmp.LoadFromFile(BitmapPath);
-  C.MWindow.SetTarget(bmp);
+    C.MWindow.SetTarget(bmp);
+  end;
 
   Shadow :=FShadow.Checked;
 
@@ -96,7 +98,7 @@ begin
 
   t:=gettickcount;
 
-  s := C.MOCR.GetUpTextAtEx(5, 5, Shadow);
+  s := C.MOCR.GetUpTextAtEx(7, 7, Shadow);
 
   writeln(inttostr(gettickcount-t));