From a4779d852045bb974a2a9604206499ab9bf1e23f Mon Sep 17 00:00:00 2001
From: Wizzup? <Wizzup?@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Tue, 22 Dec 2009 23:29:36 +0000
Subject: [PATCH] More fixes for Windows...

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@321 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 Projects/OCRBench/project1.lpi | 14 +++++++++-----
 Projects/OCRBench/unit1.pas    |  4 ++--
 Units/MMLCore/ocr.pas          |  2 +-
 3 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/Projects/OCRBench/project1.lpi b/Projects/OCRBench/project1.lpi
index 1b00173..cb26d54 100644
--- a/Projects/OCRBench/project1.lpi
+++ b/Projects/OCRBench/project1.lpi
@@ -44,8 +44,8 @@
         <ComponentName Value="Form1"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <CursorPos X="33" Y="112"/>
-        <TopLine Value="85"/>
+        <CursorPos X="4" Y="127"/>
+        <TopLine Value="43"/>
         <EditorIndex Value="0"/>
         <UsageCount Value="50"/>
         <Loaded Value="True"/>
@@ -82,8 +82,8 @@
       <Unit5>
         <Filename Value="../../Units/MMLCore/ocr.pas"/>
         <UnitName Value="ocr"/>
-        <CursorPos X="78" Y="451"/>
-        <TopLine Value="423"/>
+        <CursorPos X="66" Y="365"/>
+        <TopLine Value="341"/>
         <EditorIndex Value="4"/>
         <UsageCount Value="26"/>
         <Loaded Value="True"/>
@@ -161,7 +161,7 @@
         <Loaded Value="True"/>
       </Unit14>
     </Units>
-    <JumpHistory Count="29" HistoryIndex="28">
+    <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="../../Units/MMLCore/ocr.pas"/>
         <Caret Line="588" Column="7" TopLine="575"/>
@@ -278,6 +278,10 @@
         <Filename Value="../../Units/MMLCore/ocr.pas"/>
         <Caret Line="634" Column="41" TopLine="293"/>
       </Position29>
+      <Position30>
+        <Filename Value="../../Units/MMLCore/ocr.pas"/>
+        <Caret Line="191" Column="50" TopLine="183"/>
+      </Position30>
     </JumpHistory>
   </ProjectOptions>
   <CompilerOptions>
diff --git a/Projects/OCRBench/unit1.pas b/Projects/OCRBench/unit1.pas
index f289b17..79a9068 100644
--- a/Projects/OCRBench/unit1.pas
+++ b/Projects/OCRBench/unit1.pas
@@ -82,7 +82,7 @@ begin
 
   // DS + .. + DS because InitOCR wants the directory of the Fonts, not UpChars
   // only.
-  C.MOCR.InitTOCR(FontPath, Shadow);
+  C.MOCR.InitTOCR(FontPath + DS, Shadow);
 
   {$IFDEF OCRDEBUG}
   t:=gettickcount;
@@ -125,7 +125,7 @@ end;
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   {BitmapPath := '/home/merlijn/Programs/mufasa/pics/uptext4.bmp';
-  FontPath := '/home/merlijn/Programs/mufasa/Fonts/'; }
+  FontPath := '/home/merlijn/Programs/mufasa/Fonts/';}
 end;
 
 procedure TForm1.PathButtonClick(Sender: TObject);
diff --git a/Units/MMLCore/ocr.pas b/Units/MMLCore/ocr.pas
index d035252..c94652f 100644
--- a/Units/MMLCore/ocr.pas
+++ b/Units/MMLCore/ocr.pas
@@ -357,7 +357,7 @@ begin
   bmp.CopyClientToBitmap(TClient(Client).MWindow, False, 1{0},1, sx, sy, sx + w - 1, sy + h - 1);
 
   {$IFDEF OCRSAVEBITMAP}
-  bmp.SaveToFile('/tmp/ocrinit.bmp');
+  bmp.SaveToFile(OCRDebugPath + 'ocrinit.bmp');
   {$ENDIF}
 
   {$IFDEF OCRDEBUG}