moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

More fixes for Windows... 

git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@321 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-12-22 23:29:36 +00:00
parent be478d0ba1
commit a4779d8520
3 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Projects/OCRBench/project1.lpi
View File

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

4
Projects/OCRBench/unit1.pas
View File

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

2
Units/MMLCore/ocr.pas
View File

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