Crie o seu próprio menu contextual para 4D Write Pro

4D dá-lhe novas possibilidades de personalizar a sua interface de utilizador 4D Write Pro para a tornar perfeitamente adequada à sua aplicação comercial. Em vez de utilizar o menu contextual padrão 4D Write Pro, que é tão detalhado que pode tornar-se desagradável de utilizar, o programador 4D pode criar o seu próprio menu contextual, com a lista exacta de acções que pretende fornecer.

Desde 4D v16 R3,pode:

• Substituir o menu contextual padrão pelo seu próprio menu,
• Escolha as acções que pretende exibir,
• Reorganize a encomenda do artigo de acordo com a sua conveniência,
• Crie a sua própria hierarquia, adicionando sub-menus.
  

Acha que reproduzir este menu é incómodo e complicado? De modo algum, utilizando acções padrão, é muito fácil!

Descarregue o nosso exemplo

Se pretende criar o seu próprio menu contextual, por favor descarregue a nossa base de dados de exemplos:

Exemplo de base de dados

Exemplos de destaques

Abaixo estão listados os pontos-chave da base de dados de exemplos em anexo para que conheça os diferentes passos de programação para construir o seu próprio menu contextual 4D Write Pro:

Associe o seu menu contextual à área 4D Write Pro

No 4D Write Pro object associa o seu menu ao menu contextual de objectos com o comando do menu dinâmico pop up. Em baixo, tem um exemplo de código:

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

Crie o seu menu

No método Form pode criar o seu próprio menu, no evento “On Load”, por exemplo. Em baixo, tem um exemplo de código:

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

Não se esqueça de libertar o menu quando tiver terminado de o utilizar; por exemplo, no evento “On Unload”.

O createMyMenu método ……

// Create menu
myMenu:=Create menu

Adicionar item de menu

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

Adicionar um sub-menu 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)

Adicionar um sub-menu 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)