From 75aca7ff2b9a5cf94c2b3906108bc1e2336c120c Mon Sep 17 00:00:00 2001
From: Wizzup? <Wizzup?@3f818213-9676-44b0-a9b4-5e4c4e03d09d>
Date: Tue, 22 Dec 2009 23:04:29 +0000
Subject: [PATCH] Small change.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@319 3f818213-9676-44b0-a9b4-5e4c4e03d09d
---
 Projects/OCRBench/project1.lpi |  4 ++--
 Projects/OCRBench/unit1.lfm    |  4 ++--
 Projects/OCRBench/unit1.pas    | 10 ++++++++--
 3 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/Projects/OCRBench/project1.lpi b/Projects/OCRBench/project1.lpi
index db6b124..3ae1c79 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="77" Y="89"/>
-        <TopLine Value="62"/>
+        <CursorPos X="3" Y="94"/>
+        <TopLine Value="73"/>
         <EditorIndex Value="0"/>
         <UsageCount Value="49"/>
         <Loaded Value="True"/>
diff --git a/Projects/OCRBench/unit1.lfm b/Projects/OCRBench/unit1.lfm
index 7e8ccfe..6816a8b 100644
--- a/Projects/OCRBench/unit1.lfm
+++ b/Projects/OCRBench/unit1.lfm
@@ -44,9 +44,9 @@ object Form1: TForm1
   end
   object FShadow: TCheckBox
     Left = 507
-    Height = 20
+    Height = 22
     Top = 112
-    Width = 79
+    Width = 81
     Caption = 'Shadow?'
     TabOrder = 3
   end
diff --git a/Projects/OCRBench/unit1.pas b/Projects/OCRBench/unit1.pas
index bc0c03d..d97342f 100644
--- a/Projects/OCRBench/unit1.pas
+++ b/Projects/OCRBench/unit1.pas
@@ -84,9 +84,13 @@ begin
   // only.
   C.MOCR.InitTOCR(FontPath, Shadow);
 
+  {$IFDEF OCRDEBUG}
   t:=gettickcount;
+  {$ENDIF}
   s := C.MOCR.GetUpTextAtEx(7, 7, Shadow);
+  {$IFDEF OCRDEBUG}
   writeln(inttostr(gettickcount-t));
+  {$ENDIF}
 
   // write to debugbmp
   {$IFDEF OCRDEBUG}
@@ -103,7 +107,9 @@ begin
   Form1.Image1.Canvas.Font.Color:=clRed;
   Form1.Image1.Canvas.TextOut(0, 0, s);
   {$ENDIF}
+  {$IFDEF OCRDEBUG}
   Form1.Image1.Picture.SaveToFile('/tmp/ocrbench.bmp');
+  {$ENDIF}
 
   bmp.Free;
   C.Free;
@@ -118,8 +124,8 @@ end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
-  BitmapPath := '/home/merlijn/Programs/mufasa/pics/uptext4.bmp';
-  FontPath := '/home/merlijn/Programs/mufasa/Fonts/';
+  {BitmapPath := '/home/merlijn/Programs/mufasa/pics/uptext4.bmp';
+  FontPath := '/home/merlijn/Programs/mufasa/Fonts/'; }
 end;
 
 procedure TForm1.PathButtonClick(Sender: TObject);