Replace old workaround with new workaround (lape)

ocr_FilterUpTextByCharacteristics now uses TMufasaBitmap.
Villavu · Jul 5, 2012 · 9023976 · 9023976
1 parent f37c35a
commit 9023976
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/Units/MMLAddon/LPInc/Wrappers/lp_ocr.inc b/Units/MMLAddon/LPInc/Wrappers/lp_ocr.inc
@@ -65,7 +65,7 @@ end;
 
 procedure Lape_FilterUpTextByCharacteristics(const Params: PParamArray); lape_extdecl
 begin
-  ps_FilterUpTextByCharacteristics(ps_GetMufasaBitmap(PInteger(Params^[0])^));
+  ps_FilterUpTextByCharacteristics(TMufasaBitmap(Params^[0]^));
 end;
 
 procedure Lape_SetUpTextFilter(const Params: PParamArray); lape_extdecl

diff --git a/Units/MMLAddon/LPInc/lpexportedmethods.inc b/Units/MMLAddon/LPInc/lpexportedmethods.inc
@@ -311,7 +311,7 @@ AddGlobalFunc('function GetTextAtEx(const xs,ys,xe,ye, minvspacing, maxvspacing,
 //AddGlobalFunc('function LoadSystemFont(const SysFont: TFont; const FontName: string): boolean', @Lape_LoadSystemFont);
 AddGlobalFunc('function LoadFont(const FontName: string; shadow: boolean): boolean', @Lape_LoadFont);
 AddGlobalFunc('function FreeFont(const FontName: string): boolean', @Lape_FreeFont);
-AddGlobalFunc('procedure ocr_FilterUpTextByCharacteristics(bmp: Integer);', @Lape_FilterUpTextByCharacteristics);
+AddGlobalFunc('procedure ocr_FilterUpTextByCharacteristics(bmp: TMufasaBitmap);', @Lape_FilterUpTextByCharacteristics);
 AddGlobalFunc('procedure SetUpTextFilter(filterdata: TOcrFilterDataArray);', @Lape_SetUpTextFilter);
 AddGlobalFunc('procedure ResetUpTextFilter;', @Lape_ResetUpTextFilter);