HMGforum.com

Code: Select all

#include "hmg.ch"

Function Main
	PUBLIC aVisible := {.t., .t., .t. }

   DEFINE WINDOW Form_1 ;
          AT 0,0 ;
          WIDTH 640 HEIGHT 480 ;
          TITLE 'Visible popup' ; 
          MAIN ;
          FONT 'Arial' SIZE 10 

          Pop_Menu( aVisible )

          DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 45,40 IMAGESIZE 22,22 FONT 'Arial' SIZE 8  FLAT
                 BUTTON Button_1   CAPTION 'ESSAI.Enable .F. '     ACTION Form_1.PopMenu.Enabled:= .F. 
                 BUTTON Button_2   CAPTION 'ESSAI.Enable .T. '     ACTION Form_1.PopMenu.Enabled:= .T. 
		 
                 BUTTON Button_3   CAPTION 'ESSAI.VISIBLE '   ACTION  ( ReleaseMainMenu ( "Form_1" ), aVisible := {.t., .f., .t. }, Pop_Menu( ) )
          END TOOLBAR

   END WINDOW
   CENTER WINDOW Form_1
   ACTIVATE WINDOW Form_1
Return Nil


*****************************************************************************************************************************
// MAIN MENU
*****************************************************************************************************************************

Procedure Pop_Menu( )
   
        DEFINE MAIN MENU OF Form_1
		IF aVisible[1]
        	        POPUP 'ESSAI' NAME PopMenu    // this name Creat_Menu
	                    ITEM 'ITEM 1'  Action msginfo( "Je suis visible   ") 
                	END POPUP
		ENDIF
		IF aVisible[2]
        	        POPUP 'ESSAI' NAME PopMenu    // this name Creat_Menu
	                    ITEM 'ITEM 1'  Action msginfo( "Je suis visible   ") 
                	END POPUP
		ENDIF
		IF aVisible[3]
        	        POPUP 'ESSAI' NAME PopMenu    // this name Creat_Menu
	                    ITEM 'ITEM 1'  Action msginfo( "Je suis visible   ") 
                	END POPUP
		ENDIF
          END MENU
Return