Crea tu propio menú contextual para 4D Write Pro

4D le ofrece nuevas posibilidades de personalizar su interfaz de usuario 4D Write Pro para que se adapte perfectamente a su aplicación empresarial. En lugar de utilizar el menú contextual por defecto de 4D Write Pro, que es tan detallado que puede llegar a ser desagradable de utilizar, el desarrollador de 4D puede crear su propio menú contextual, con la lista exacta de acciones que quiere proporcionar.

Desde 4D v16 R3,usted puede

• Reemplazar el menú contextual por defecto por su propio menú,
• Elegir las acciones que desea mostrar,
• Reorganizar el orden de los elementos a su conveniencia,
• Crear su propia jerarquía añadiendo submenús.
  

¿Crees que reproducir este menú es engorroso y complicado? En absoluto, utilizando acciones estándar, ¡es muy fácil!

Descarga nuestro ejemplo

Si quieres saber cómo crear tu propio menú contextual, descarga nuestra base de datos de ejemplo:

Base de datos de ejemplo

Puntos destacados del ejemplo

A continuación se enumeran los puntos clave de la base de datos de ejemplo adjunta para que conozcas los diferentes pasos de programación para construir tu propio menú contextual de 4D Write Pro:

Asocie su menú contextual al área de 4D Write Pro

En el método 4D Write Pro object asocia su menú al menú contextual del objeto con el comando de menú emergente dinámico. A continuación, tienes un ejemplo de código:

Case of
(Form event=On Clicked)
If (Contextual click)
Dynamic pop up menu (myMenu)
End if
End case

Cree su menú

En el método Form puedes crear tu propio menú, en el evento «On Load» por ejemplo. A continuación, tienes un ejemplo de código:

Case of
(Form event=On Load)
C_TEXT (myMenu)
createMyMenu
: (Form event=On Unload)
// release menu
RELEASE MENU (myMenu)
End case

No olvides liberar el menú cuando hayas terminado de usarlo; Por ejemplo en el evento «On Unload».

El método createMyMenu método ……

// Create menu
myMenu:=Create menu

Añadir elemento de menú

// Insert the "copy" item
APPEND MENU ITEM(myMenu;ak standard action title)
SET MENU ITEM PROPERTY (myMenu;-1;Associated standard action;ak copy )

Añadir un submenú automático

// Insert the "fontStyle" myMenu
APPEND MENU ITEM(myMenu;ak standard action title)
SET MENU ITEM PROPERTY (myMenu;-1;Associated standard action;ak font style )

Añadir un submenú personalizado

// Create sub menu size
menuSubSize:=Create menu
// Insert a sub menu item
APPEND MENU ITEM (menuSubSize;ak standard action title)
SET MENU ITEM PROPERTY (menuSubSize;-1;Associated standard action; "fontSize?value=10pt")
// Associate the "menuSubSize" sub-menu to the "Size" item of myMenu
APPEND MENU ITEM (myMenu; "Size";menuSubSize )