moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-31 07:10:28 -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"/> <ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<CursorPos X="77" Y="89"/> <CursorPos X="3" Y="94"/>
<TopLine Value="62"/> <TopLine Value="73"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="49"/> <UsageCount Value="49"/>
<Loaded Value="True"/> <Loaded Value="True"/>

4
Projects/OCRBench/unit1.lfm
View File

@ -44,9 +44,9 @@ object Form1: TForm1
end end
object FShadow: TCheckBox object FShadow: TCheckBox
Left = 507 Left = 507
Height = 20 Height = 22
Top = 112 Top = 112
Width = 79 Width = 81
Caption = 'Shadow?' Caption = 'Shadow?'
TabOrder = 3 TabOrder = 3
end end

10
Projects/OCRBench/unit1.pas
View File

@ -84,9 +84,13 @@ begin
// only. // only.
C.MOCR.InitTOCR(FontPath, Shadow); C.MOCR.InitTOCR(FontPath, Shadow);
{$IFDEF OCRDEBUG}
t:=gettickcount; t:=gettickcount;
{$ENDIF}
s := C.MOCR.GetUpTextAtEx(7, 7, Shadow); s := C.MOCR.GetUpTextAtEx(7, 7, Shadow);
{$IFDEF OCRDEBUG}
writeln(inttostr(gettickcount-t)); writeln(inttostr(gettickcount-t));
{$ENDIF}
// write to debugbmp // write to debugbmp
{$IFDEF OCRDEBUG} {$IFDEF OCRDEBUG}
@ -103,7 +107,9 @@ begin
Form1.Image1.Canvas.Font.Color:=clRed; Form1.Image1.Canvas.Font.Color:=clRed;
Form1.Image1.Canvas.TextOut(0, 0, s); Form1.Image1.Canvas.TextOut(0, 0, s);
{$ENDIF} {$ENDIF}
{$IFDEF OCRDEBUG}
Form1.Image1.Picture.SaveToFile('/tmp/ocrbench.bmp'); Form1.Image1.Picture.SaveToFile('/tmp/ocrbench.bmp');
{$ENDIF}
bmp.Free; bmp.Free;
C.Free; C.Free;
@ -118,8 +124,8 @@ end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
BitmapPath := '/home/merlijn/Programs/mufasa/pics/uptext4.bmp'; {BitmapPath := '/home/merlijn/Programs/mufasa/pics/uptext4.bmp';
FontPath := '/home/merlijn/Programs/mufasa/Fonts/'; FontPath := '/home/merlijn/Programs/mufasa/Fonts/'; }
end; end;
procedure TForm1.PathButtonClick(Sender: TObject); procedure TForm1.PathButtonClick(Sender: TObject);