moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-30 23:00:18 -05:00
Code Issues Releases Wiki Activity

Small change.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@319 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-12-22 23:04:29 +00:00
parent 20a66b3854
commit 75aca7ff2b
3 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Projects/OCRBench/project1.lpi
View File

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

4
Projects/OCRBench/unit1.lfm
View File

@ -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

10
Projects/OCRBench/unit1.pas
View File

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