Generar un MENU CONTEXTUAL (con click derecho del mouse) para CORTAR, COPIAR, PEGAR

Saludos. Algunas veces deseamos colocar alguans opciones, tales como CORTAR - COPIAR - PEGAR al hacer click derecho sobre algun objeto (textbox, commandButton, etc...), asi:

La forma sencilla de hacerlo, es colocar el siguiente codigo en el evento RIGHTCLICK del objeto:


DEFINE POPUP menuccp  FROM MROW(),MCOL() ;
 SHORTCUT RELATIVE  MARGIN  COLOR RGB(255,255,255);
 FONT 'MS Sans Serif', 8
      DEFINE BAR  _MED_CUT OF menuccp  PROMPT "Cortar     Ctrl + X"   PICTURE 'cut.png'
      DEFINE BAR _MED_COPY OF menuccp PROMPT  "Copiar     Ctrl + C" PICTURE 'copiar.png'
      DEFINE BAR _MED_PASTE OF menuccp PROMPT "Pegar      Ctrl + V" PICTURE 'paste.png'
      DEFINE BAR 4 OF menuccp PROMPT '\-' 
      DEFINE BAR 5 OF menuccp PROMPT "Calculadora" PICTURE 'calc.png'
     
      **--Calculadora
      ON SELECTION BAR 5 OF menuccp ! /N calc.EXE
     
     
ACTIVATE POPUP menuccp
**--//Fin

Y listo. :D Guarden los cambios y ejecuten. Yo le agregue una opcion mas para activar la calculadora de WINDOWS! Pueden agregar n numero de opciones deseadas!


Saludos! Desde Managua, Nicaragua!
Ravenn! :D