home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / POPUP.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  1.5 KB  |  36 lines
  1. *****************************************************************
  2. *     * 09/92               POPUP.PRG                           *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates how to define and activate     *
  8. *     * different types of popup menus.                         *
  9. *****************************************************************
  10. CLEAR
  11. DEFINE POPUP  bars FROM 10,1
  12. DEFINE BAR 1 OF bars PROMPT "\<Monday"
  13. DEFINE BAR 2 OF bars PROMPT "\<Tuesday"
  14. DEFINE BAR 3 OF bars PROMPT "\<Wednesday"
  15. DEFINE BAR 4 OF bars PROMPT "T\<hursday"
  16. DEFINE BAR 5 OF bars PROMPT "\<Friday"
  17. DEFINE BAR 6 OF bars PROMPT "\<Saturday"
  18. DEFINE BAR 7 OF bars PROMPT "S\<unday"
  19. USE census
  20. @ 8,50  SAY "PROMPT STRUCTURE"
  21. @ 8,20  SAY "PROMPT FILES LIKE *.DBF"
  22. @ 8,70 SAY "PROMPT FIELD <expC> "
  23. @ 6,1 SAY "Menu popup"  STYLE "B"
  24. @ 6,50 SAY "Structure popup"  STYLE "B"
  25. @ 6,20 SAY "File directory popup"  STYLE "B"
  26. @ 6,70 SAY "Field value popup "  STYLE "B"
  27.  
  28. DEFINE POPUP flds       FROM 10, 70 PROMPT FIELDS state
  29. DEFINE POPUP FILES FROM 10, 20 PROMPT  FILES LIKE *.dbf
  30. DEFINE POPUP STRU  FROM 10, 50 PROMPT STRUCTURE
  31. ON SELECTION POPUP bars ACTIVATE POPUP files
  32. ON SELECTION POPUP files ACTIVATE POPUP stru
  33. ON SELECTION POPUP stru ACTIVATE POPUP flds
  34. ACTIVATE POPUP  bars
  35.  
  36.