home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / GOODIES / PROFIND.PRG < prev    next >
Encoding:
Text File  |  1990-02-14  |  1.6 KB  |  59 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: PROFIND.PRG
  4. *:
  5. *:         System: ProDemo Searching Example
  6. *:         Author: Fox Software, Inc.
  7. *:      Copyright (c) 1989, Fox Software, Inc.
  8. *:  Last modified: 10/05/89     14:00
  9. *:
  10. *:           Uses: PRODEMO.DBF    
  11. *:
  12. *:            Notes:    This routine demonstrates how small windows
  13. *:                    can be used in lieu of buttons and how
  14. *:                    easy (and fast) it is to manipulate arbitrary
  15. *:                    size memo fields.  It operates on the database
  16. *:                    constructed by PROBUILD.PRG.
  17. *:
  18. *:      Documented 10/05/89 at 14:01               FoxDoc  version 2.0
  19. *:*********************************************************************
  20. IF AT('PRODEMO',DBF())=0
  21.    USE prodemo
  22. ENDIF
  23. SET TALK OFF
  24. CLEAR
  25. string = SPACE(20)
  26. @ 2,2 SAY 'Search for:' GET string
  27. READ
  28. string = ALLTRIM(string)
  29. IF LEN(string)=0
  30.    RETURN
  31. ENDIF
  32. DEFINE WINDOW stop FROM 2,60 TO 2,70 NONE COLOR W+/R
  33. DEFINE WINDOW go FROM 2,40 TO 2,50 NONE COLOR W+/G
  34. DEFINE WINDOW search FROM 5,5 TO 15,60 TITLE "Search Window";
  35.     SYSTEM FLOAT GROW CLOSE ZOOM COLOR SCHEME 8 
  36. bytes = 0
  37. SCAN
  38.    @ 3, 2 SAY '    Module: '+name
  39.    bytes = bytes + LEN(source)
  40.    @ 3, 40 SAY 'Bytes scanned: '+STR(bytes)
  41.    s = AT(string, source)
  42.    IF s > 0
  43.       ACTIVATE WINDOW stop
  44.       ? '    Stop'
  45.       ACTIVATE WINDOW go
  46.       ? '    Go'
  47.       ACTIVATE SCREEN
  48.       MODIFY MEMO source RANGE s,s+LEN(string) WINDOW search SAVE
  49.       IF WONTOP() = 'STOP'
  50.          EXIT
  51.       ENDIF
  52.       DEACT WINDOW stop
  53.       DEACT WINDOW go
  54.    ENDIF
  55. ENDSCAN
  56. CLOSE MEMO ALL
  57. CLEAR WINDOWS
  58.  
  59.