Small change.

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@319 3f818213-9676-44b0-a9b4-5e4c4e03d09d

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"/>

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

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);