moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-29 12:32:14 -05:00
Code Issues Releases Wiki Activity

Fix OCR Bug. How could I have possibly overlooked it with the FIXME in there?

Browse Source
This commit is contained in:
Merlijn Wajer 2010-03-22 12:20:00 +01:00
parent 85419926a3
commit d6c16560d5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Units/MMLCore/ocr.pas
View File

@ -626,7 +626,7 @@ end;
function TMOCR.GetUpTextAtEx(atX, atY: integer; shadow: boolean): string; function TMOCR.GetUpTextAtEx(atX, atY: integer; shadow: boolean): string;
var var
n:Tnormarray; n:Tnormarray;
ww, hh,i,j: integer; ww, hh,i,j,nl: integer;
font: TocrData; font: TocrData;
chars, shadows, thachars: T2DPointArray; chars, shadows, thachars: T2DPointArray;
t:Tpointarray; t:Tpointarray;
@ -655,9 +655,10 @@ begin
lbset:=false; lbset:=false;
setlength(n, (font.width+1) * (font.height+1)); setlength(n, (font.width+1) * (font.height+1));
nl := high(n);
for j := 0 to high(thachars) do for j := 0 to high(thachars) do
begin begin
for i := 0 to high(n) do for i := 0 to nl do
n[i] := 0; n[i] := 0;
t:= thachars[j]; t:= thachars[j];
@ -684,6 +685,7 @@ begin
} }
for i := 0 to high(thachars[j]) do for i := 0 to high(thachars[j]) do
begin begin
if (thachars[j][i].x) + ((thachars[j][i].y) * font.width) <= nl then
n[(thachars[j][i].x) + ((thachars[j][i].y) * font.width)] := 1; n[(thachars[j][i].x) + ((thachars[j][i].y) * font.width)] := 1;
end; end;
result := result + GuessGlyph(n, font); result := result + GuessGlyph(n, font);