Define Popup raccourci SHORTCUT Relative From Mrow(),Mcol()  
    Define Bar 1 of raccourci Prompt "zoom out CTRL+F11" KEY CTRL+F11 , "Ctrl+F11"  MESSAGE "Zoom out editbox"
	Define Bar 2 of raccourci Prompt "zoom in  CTRL+F12"  KEY CTRL+F12,  "Ctrl+F12"  MESSAGE "Zoom in editbox"
		
		
	 Define Bar _Med_find Of raccourci Prompt "Rec\<hercher..." ;
			KEY CTRL+F, "Ctrl+F" ;
			PICTRES _Med_find ;
			MESSAGE "Recherche le texte spécifié"

		Define Bar _Med_redo Of raccourci Prompt "\<Rétablir" ;
			KEY CTRL+R, "Ctrl+R" ;
			PICTRES _Med_redo ;
			MESSAGE "Rétablit la dernière opération annulée"
		Define Bar _Med_undo Of raccourci Prompt "\<Annuler" ;
			KEY CTRL+Z, "Ctrl+Z" ;
			PICTRES _Med_undo ;
			MESSAGE "Annule la dernière modification"
		Define Bar _Med_paste Of raccourci Prompt "C\<oller" ;
			KEY CTRL+V, "Ctrl+V" ;
			PICTRES _Med_paste ;
			MESSAGE "Place le contenu du Presse-papiers au point d'insertion"
		Define Bar _Med_copy Of raccourci Prompt "\ Co\<pier" ;
			KEY CTRL+c, "Ctrl+C" ;
			PICTRES _Med_copy ;
			MESSAGE "Copie la sélection et la place dans le Presse-papiers"
		Define Bar _Med_cut Of raccourci Prompt "\<Couper" ;
			KEY CTRL+X, "Ctrl+X" ;
			PICTRES _Med_cut ;
			MESSAGE "Enlève la sélection et la place dans le Presse-papiers"
		Define Bar _Med_slcta Of raccourci Prompt  "\Sélec\<tionner tout" ;
			KEY CTRL+A, "Ctrl+A" ;
			PICTRES _Med_slcta ;
			MESSAGE "Sélectionne tout le texte ou tous les éléments de la fenêtre active"
		
	On Selection Bar 1 Of raccourci _screen.activeform.zoomout()
	On Selection Bar 2 Of raccourci _screen.activeform.zoomin()
	

		Activate Popup raccourci