home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / SubProcs / ocrscanselected < prev    next >
Text File  |  2002-07-10  |  462b  |  18 lines
  1. croptmpimagefilename=imagename||'_CROP.TIF'
  2. CALL VpImgEdt window, 1000, 'SAVE', croptmpimagefilename, lzw
  3.  
  4. /* Crop 1000 Image Editor */
  5. CALL VpImgEdt window, 1000, 'CROP'
  6.  
  7. if gocrconfigopen=1 then
  8.   call ocrconfigvals
  9.  
  10. call ocrscanimage
  11.  
  12. /* Clear 1000 Image Editor */
  13. CALL VpImgEdt window, 1000, 'CLEAR'
  14. /* Load image 1000 Image Editor */
  15. CALL VpImgEdt window, 1000, 'LOAD', croptmpimagefilename, options
  16.  
  17. rc=SysFileDelete(croptmpimagefilename)
  18.