moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-02-11 21:00:13 -05:00
Code Issues Releases Wiki Activity

I think it fails in quite some cases.

Browse Source 
Few fixes for cross platformness.



git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@180 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-11-03 00:44:53 +00:00
parent f42c32f1b8
commit 5dd8332fc1
2 changed files with 14 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
Projects/SAMufasaGUI/project1.lpi
View File

@ -7,7 +7,7 @@
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="Mufasa Stand Alone"/> <Title Value="Mufasa Stand Alone"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<ActiveEditorIndexAtStart Value="0"/> <ActiveEditorIndexAtStart Value="5"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <ProjectVersion Value=""/>
@ -168,7 +168,7 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="TestUnit"/> <UnitName Value="TestUnit"/>
<CursorPos X="32" Y="265"/> <CursorPos X="58" Y="265"/>
<TopLine Value="250"/> <TopLine Value="250"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
@ -315,7 +315,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mmlpsthread"/> <UnitName Value="mmlpsthread"/>
<CursorPos X="29" Y="349"/> <CursorPos X="29" Y="349"/>
<TopLine Value="333"/> <TopLine Value="332"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<UsageCount Value="202"/> <UsageCount Value="202"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -867,7 +867,7 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="ocr"/> <UnitName Value="ocr"/>
<CursorPos X="11" Y="657"/> <CursorPos X="11" Y="657"/>
<TopLine Value="645"/> <TopLine Value="655"/>
<EditorIndex Value="5"/> <EditorIndex Value="5"/>
<UsageCount Value="136"/> <UsageCount Value="136"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -1435,7 +1435,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit197> </Unit197>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="29" HistoryIndex="28">
<Position1> <Position1>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="345" Column="28" TopLine="325"/> <Caret Line="345" Column="28" TopLine="325"/>
@ -1538,24 +1538,20 @@
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="1" Column="1" TopLine="631"/> <Caret Line="264" Column="7" TopLine="242"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="testunit.pas"/> <Filename Value="testunit.pas"/>
<Caret Line="264" Column="7" TopLine="242"/> <Caret Line="265" Column="18" TopLine="250"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="testunit.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="265" Column="18" TopLine="250"/> <Caret Line="158" Column="50" TopLine="142"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="158" Column="50" TopLine="142"/>
</Position29>
<Position30>
<Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/> <Filename Value="../../Units/MMLAddon/mmlpsthread.pas"/>
<Caret Line="246" Column="21" TopLine="231"/> <Caret Line="246" Column="21" TopLine="231"/>
</Position30> </Position29>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

7
Units/MMLCore/ocr.pas
View File

@ -640,7 +640,7 @@ begin
{ This must be dynamic } { This must be dynamic }
SetLength(OCRData, 1); SetLength(OCRData, 1);
OCRData[0] := InitOCR(path + '/UpChars/'); OCRData[0] := InitOCR(path + DS + 'UpChars' + DS);
end; end;
function TMOCR.GetUpTextAt(atX, atY: integer): string; function TMOCR.GetUpTextAt(atX, atY: integer): string;
@ -654,7 +654,7 @@ begin
TClient(Client).MWindow.GetDimensions(w, h); TClient(Client).MWindow.GetDimensions(w, h);
ww := 450; ww := 450;
hh := 25; hh := 20;
if ww + atX > w then if ww + atX > w then
ww := w - atX; ww := w - atX;
@ -670,7 +670,8 @@ begin
{writeln('bmp.w / bmp.h: ' + inttostr(bmp.Width) + ', ' + inttostr(bmp.height)); {writeln('bmp.w / bmp.h: ' + inttostr(bmp.Width) + ', ' + inttostr(bmp.height));
writeln('wwhh: ' + inttostr(ww * hh)); writeln('wwhh: ' + inttostr(ww * hh));
writeln('widhei: ' + inttostr(bmp.width * bmp.height));} writeln('widhei: ' + inttostr(bmp.width * bmp.height));}
bmp.SaveToFile('/tmp/output.bmp');
bmp.SaveToFile('.' + DS + 'output.bmp');
n := ExtractText(bmp.FData, bmp.Width, bmp.Height); n := ExtractText(bmp.FData, bmp.Width, bmp.Height);
{writeln('n: ' + inttostr(length(n))); } {writeln('n: ' + inttostr(length(n))); }