home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / POPDEMO / POPDEMO.PRG < prev   
Encoding:
Text File  |  1993-02-04  |  1.7 KB  |  42 lines
  1. **************************************************************
  2. *     * 10/22/92                 POPDEM.PRG         18:12:10 *
  3. **************************************************************
  4. *     *                                                      *
  5. *     * Description:                                         *
  6. *     *  Illustrates use of CNTBAR() PRMBAR(), BAR(), and    *
  7. *     *  GETBAR(), MRKBAR() functions and SET MARK OF command*
  8. *     *                                                      *
  9. **************************************************************
  10. CLEAR
  11. MODIFY WINDOW SCREEN FONT "MS SANS Serif" ,8
  12. DEFINE POPUP  pop1 FROM 3,1 MARGIN MOVER
  13. DEFINE BAR 1 OF pop1 PROMPT "Mary Jones   "
  14. DEFINE BAR 2 OF pop1 PROMPT "Tom Smith    "
  15. DEFINE BAR 3 OF pop1 PROMPT "John Doer    "
  16. DEFINE BAR 4 OF pop1 PROMPT "Sam Lazy     "
  17. DEFINE BAR 5 OF pop1 PROMPT "Alvin Simmons"
  18. DEFINE BAR 6 OF pop1 PROMPT "Jane Jeane   "
  19. DEFINE BAR 7 OF pop1 PROMPT "Joe Heart    "
  20. ON KEY LABEL f3 DO showpop1
  21. ON SELECTION POPUP pop1 DO togmark
  22. ACTIVATE POPUP pop1
  23. ****************************************************************
  24. *
  25. PROCEDURE showpop1
  26.    COUNT = CNTBAR("Pop1")
  27.    @ 15,10 SAY "Order of popup Pop1 options" STYLE "B"
  28.    @ 18,12 SAY "Position Marked?  Option   Bar Number" Style "B"
  29.    FOR i = 1 TO COUNT
  30.       @ 18+i,10 SAY STR(i) + IIF(MRKBAR("Pop1", GETBAR("Pop1",i)), ;
  31.          " <Marked> ", "          ") 
  32.       @ 18+i,30 SAY PRMBAR("Pop1" , GETBAR("Pop1",i))
  33.       @ 18+i,50 SAY STR(GETBAR("Pop1",i))
  34.    ENDFOR
  35.    RETURN
  36.    ****************************************************************
  37.    * Procedure TogMark     - Toggle mark
  38. PROCEDURE togmark
  39.    SET MARK OF BAR BAR() OF pop1 TO NOT MRKBAR("Pop1", BAR() )
  40.    DO showpop1
  41.    RETURN
  42.