home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MARK / MARK.PRG < prev   
Encoding:
Text File  |  1992-08-18  |  2.2 KB  |  65 lines
  1. ****************************************************************
  2. *     * 08/17/92                   MARK.PRG          23:56:33 *
  3. ****************************************************************
  4. *     * Description:                                           *
  5. *     *  Illustrates how the SET MARK OF command operates      *
  6. *     *                                                        *
  7. ****************************************************************
  8. CLEAR
  9. SET TALK OFF
  10. PUBLIC m._bar_cur, m._Bright
  11. m._bar_cur = 2
  12. m._Bright = .F.
  13. *
  14. **** Add new menu pad to systems menu
  15. *
  16. DEFINE PAD ycolor OF _MSYSMENU PROMPT '\<Background';
  17.     KEY ALT+B, 'ALT+B'
  18. *
  19. **** Create new Popup for menu pad ycolor
  20. *
  21. ON PAD ycolor OF _MSYSMENU ACTIVATE POPUP zcolor
  22. DEFINE POPUP zcolor MARGIN RELATIVE SHADOW COLOR SCHEME 4
  23. DEFINE BAR 1 OF zcolor  PROMPT '\<Black'
  24. DEFINE BAR 2 OF zcolor  PROMPT 'B\<lue'
  25. DEFINE BAR 3 OF zcolor  PROMPT 'Br\<own'
  26. DEFINE BAR 4 OF zcolor  PROMPT '\<Cyan'
  27. DEFINE BAR 5 OF zcolor  PROMPT '\<Green'
  28. DEFINE BAR 6 OF zcolor  PROMPT '\<Magenta'
  29. DEFINE BAR 7 OF zcolor  PROMPT '\<Red'
  30. DEFINE BAR 8 OF zcolor  PROMPT '\<White'
  31. DEFINE BAR 9 OF zcolor  PROMPT 'Br\<ight'
  32. ON SELECTION POPUP zcolor DO zcolorpop IN MARK.PRG
  33.  
  34. SET MARK OF POPUP zcolor to CHR(16) && right pointing triangle
  35. SET BLINK OFF          && Turn off blinking
  36. SET COLOR TO W+/B
  37. *
  38. *  Turn Mark On for the second bar in Popup zcolor
  39. SET MARK OF BAR 2 OF zcolor TO .T.
  40. CLEAR
  41. RETURN
  42. ****************************************************************
  43. * Procedure called when popup menu bar is selected
  44. PROCEDURE zcolorpop
  45. IF BAR() != 9
  46. *
  47. ***** Mark bar selected and unmark previous bar
  48. *
  49.      SET MARK OF BAR m._bar_cur OF zcolor TO .F.
  50.      SET MARK OF BAR BAR() OF zcolor TO .T.
  51.      m._bar_cur = BAR()
  52. ENDIF
  53. DO CASE
  54.      CASE BAR() = 8
  55.           SET COLOR TO ( IIF( m._Bright, "N*/W", "N/W" ) )
  56.      CASE BAR() = 9
  57.           m._Bright = ! m._Bright
  58.           SET MARK OF BAR 9 OF zcolor TO m._Bright
  59.      OTHERWISE     && Bars 1-8
  60.           SET COLOR TO ( IIF(m._Bright, "W*/", "W/") + ;
  61.              SUBSTR("N  B  GR BG G  RB R  W  ", ( 3*BAR() ) - 2, 3))
  62. ENDCASE
  63. CLEAR
  64. RETURN
  65.