How To Modify a Shortcut Menu at Run Time

MORE INFORMATION

This example demonstrates the use of the #PREPOP generator directive. In the example, a command button toggles the form's AlwaysOnTop property between true (.T.) and false (.F.). Based on the value of this property, a check mark appears next to a menu bar within the shortcut menu. The following steps create the example:

1. Create a shortcut menu named NewShort.
2. Use the layout below to add three menu prompts to the shortcut menu:

         Prompt            Result
         --------------------------
   
         \&;Date           Command
         \&Test           Command
         \&AlwaysOnTop    Procedure
   						

3. In the procedure of AlwaysOnTop prompt, type the following code:

         IF TYPE("oRef") = "O"
            oRef.command1.Click
         ENDIF
   						

4. Click the View menu and click General Option to access the Setup and CleanUp snippets. In the Setup snippet, type the following code:

         PARAMETER oRef
         #PREPOP
   						

   Close the Setup snippet box.
5. Open the CleanUp snippet and type the following code:

          SET MARK OF BAR 3 OF SHORTCUT TO oRef.AlwaysOnTop
   						

   Close the CleanUp snippet box.
6. Generate the menu.
7. Create a form named ShortCut.
8. In the RightClick method of the form, add the following code:

         DO NewShort.mpr WITH THIS
   						

9. Place a command button on the form and change the following properties:

         Caption = NotAlwaysOnTop
         Name = Command1
   						

10. In the Click method of the command button, type the following code:

         IF THIS.Caption = "NotAlwaysOnTop"
            THISFORM.AlwaysOnTop = .T.
            THIS.Caption = "AlwaysOnTop"
         ELSE
            THIS.Caption = "NotAlwaysOnTop"
            THISFORM.AlwaysOnTop = .F.
         ENDIF
    						

Run the form and click the command button to set the AlwaysOnTop property to true. Then right-click the form to bring up the shortcut menu, NewShort. A check mark now appears next to the AlwaysOnTop menu bar. Press the command button again to set the form's AlwaysOnTop property to false. Right-click again to invoke the shortcut menu. The check mark disappears from the menu.