home *** CD-ROM | disk | FTP | other *** search
/ Total C++ 2 / TOTALCTWO.iso / vfp5.0 / vfp / samples / solution / menus / frmshort.mpr < prev    next >
Encoding:
Text File  |  1996-08-21  |  5.5 KB  |  121 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 06/09/96            FRMSHORT.MPR              19:43:42  
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (C) 1996 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This PROGRAM was automatically generated BY GENMENU.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. *       *********************************************************
  20. *       *                                                         
  21. *       *                        Setup Code                       
  22. *       *                                                         
  23. *       *********************************************************
  24. *
  25.  
  26. PARAMETER oREF
  27.  
  28.  
  29. *       *********************************************************
  30. *       *                                                         
  31. *       *                      Menu Definition                    
  32. *       *                                                         
  33. *       *********************************************************
  34. *
  35.  
  36. DEFINE POPUP frmshort SHORTCUT FROM MROW(),MCOL()
  37. DEFINE BAR 1 OF frmshort PROMPT "\<Date..."
  38. DEFINE BAR 2 OF frmshort PROMPT "\<Color..."
  39. DEFINE BAR 3 OF frmshort PROMPT "\-"
  40. DEFINE BAR 4 OF frmshort PROMPT "\<Always on top"
  41. ON SELECTION BAR 1 OF frmshort ;
  42.     DO _rb516a9jl ;
  43.     IN LOCFILE("SOLUTION\MENUS\FRMSHORT" ,"MPX;MPR|FXP;PRG" ,"WHERE is FRMSHORT?")
  44. ON SELECTION BAR 2 OF frmshort ;
  45.     DO _rb516a9jv ;
  46.     IN LOCFILE("SOLUTION\MENUS\FRMSHORT" ,"MPX;MPR|FXP;PRG" ,"WHERE is FRMSHORT?")
  47. ON SELECTION BAR 4 OF frmshort ;
  48.     DO _rb516a9jw ;
  49.     IN LOCFILE("SOLUTION\MENUS\FRMSHORT" ,"MPX;MPR|FXP;PRG" ,"WHERE is FRMSHORT?")
  50.  
  51.  
  52. *       *********************************************************
  53. *       *                                                         
  54. *       *                 Cleanup Code & Procedures               
  55. *       *                                                         
  56. *       *********************************************************
  57. *
  58.  
  59. SET MARK OF BAR 4 OF frmshort TO oRef.AlwaysOnTop
  60. ACTIVATE POPUP frmshort
  61.  
  62. *       *********************************************************
  63. *       *                                                         
  64. *       * _RB516A9JL  ON SELECTION BAR 1 OF POPUP frmshort        
  65. *       *                                                         
  66. *       * Procedure Origin:                                       
  67. *       *                                                         
  68. *       * From Menu:  FRMSHORT.MPR,            Record:    5       
  69. *       * Called By:  ON SELECTION BAR 1 OF POPUP frmshort        
  70. *       * Prompt:     Date...                                     
  71. *       * Snippet:    1                                           
  72. *       *                                                         
  73. *       *********************************************************
  74. *
  75. PROCEDURE _rb516a9jl
  76. #DEFINE C_DATE_LOC    "Today is "
  77.  
  78. MESSAGEBOX(C_DATE_LOC+DTOC(DATE()))
  79.  
  80.  
  81. *       *********************************************************
  82. *       *                                                         
  83. *       * _RB516A9JV  ON SELECTION BAR 2 OF POPUP frmshort        
  84. *       *                                                         
  85. *       * Procedure Origin:                                       
  86. *       *                                                         
  87. *       * From Menu:  FRMSHORT.MPR,            Record:    6       
  88. *       * Called By:  ON SELECTION BAR 2 OF POPUP frmshort        
  89. *       * Prompt:     Color...                                    
  90. *       * Snippet:    2                                           
  91. *       *                                                         
  92. *       *********************************************************
  93. *
  94. PROCEDURE _rb516a9jv
  95. IF TYPE("m.oRef") = "O"
  96.     m.cColor = GetColor(oRef.BackColor)
  97.     IF m.cColor < 0
  98.         RETURN
  99.     ENDIF
  100.     oRef.BackColor = m.cColor
  101. ENDIF
  102.  
  103.  
  104. *       *********************************************************
  105. *       *                                                         
  106. *       * _RB516A9JW  ON SELECTION BAR 4 OF POPUP frmshort        
  107. *       *                                                         
  108. *       * Procedure Origin:                                       
  109. *       *                                                         
  110. *       * From Menu:  FRMSHORT.MPR,            Record:    8       
  111. *       * Called By:  ON SELECTION BAR 4 OF POPUP frmshort        
  112. *       * Prompt:     Always on top                               
  113. *       * Snippet:    3                                           
  114. *       *                                                         
  115. *       *********************************************************
  116. *
  117. PROCEDURE _rb516a9jw
  118. IF TYPE("m.oRef") = "O"
  119.     oRef.AlwaysOnTop = !oRef.AlwaysOnTop
  120. ENDIF
  121.