moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-23 07:48:50 -05:00
Code Issues Releases Wiki Activity

More fixes for Windows...

Browse Source 
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"/> <ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<CursorPos X="33" Y="112"/> <CursorPos X="4" Y="127"/>
<TopLine Value="85"/> <TopLine Value="43"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="50"/> <UsageCount Value="50"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -82,8 +82,8 @@
<Unit5> <Unit5>
<Filename Value="../../Units/MMLCore/ocr.pas"/> <Filename Value="../../Units/MMLCore/ocr.pas"/>
<UnitName Value="ocr"/> <UnitName Value="ocr"/>
<CursorPos X="78" Y="451"/> <CursorPos X="66" Y="365"/>
<TopLine Value="423"/> <TopLine Value="341"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<UsageCount Value="26"/> <UsageCount Value="26"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -161,7 +161,7 @@
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit14> </Unit14>
</Units> </Units>
<JumpHistory Count="29" HistoryIndex="28"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="../../Units/MMLCore/ocr.pas"/> <Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="588" Column="7" TopLine="575"/> <Caret Line="588" Column="7" TopLine="575"/>
@ -278,6 +278,10 @@
<Filename Value="../../Units/MMLCore/ocr.pas"/> <Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="634" Column="41" TopLine="293"/> <Caret Line="634" Column="41" TopLine="293"/>
</Position29> </Position29>
<Position30>
<Filename Value="../../Units/MMLCore/ocr.pas"/>
<Caret Line="191" Column="50" TopLine="183"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <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 // DS + .. + DS because InitOCR wants the directory of the Fonts, not UpChars
// only. // only.
C.MOCR.InitTOCR(FontPath, Shadow); C.MOCR.InitTOCR(FontPath + DS, Shadow);
{$IFDEF OCRDEBUG} {$IFDEF OCRDEBUG}
t:=gettickcount; t:=gettickcount;
@ -125,7 +125,7 @@ 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);

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); bmp.CopyClientToBitmap(TClient(Client).MWindow, False, 1{0},1, sx, sy, sx + w - 1, sy + h - 1);
{$IFDEF OCRSAVEBITMAP} {$IFDEF OCRSAVEBITMAP}
bmp.SaveToFile('/tmp/ocrinit.bmp'); bmp.SaveToFile(OCRDebugPath + 'ocrinit.bmp');
{$ENDIF} {$ENDIF}
{$IFDEF OCRDEBUG} {$IFDEF OCRDEBUG}