moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 09:12:19 -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;
var
n:Tnormarray;
ww, hh,i,j: integer;
ww, hh,i,j,nl: integer;
font: TocrData;
chars, shadows, thachars: T2DPointArray;
t:Tpointarray;
@ -655,9 +655,10 @@ begin
lbset:=false;
setlength(n, (font.width+1) * (font.height+1));
nl := high(n);
for j := 0 to high(thachars) do
begin
for i := 0 to high(n) do
for i := 0 to nl do
n[i] := 0;
t:= thachars[j];
@ -684,6 +685,7 @@ begin
}
for i := 0 to high(thachars[j]) do
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;
end;
result := result + GuessGlyph(n, font);