4D v14.3

SET MENU BAR

Página Inicial

 
4D v14.3
SET MENU BAR

SET MENU BAR 


 

SET MENU BAR ( barra {; processo}{; *} ) 
Parâmetro Tipo   Descrição
barra  Inteiro longo, cadeia, MenuRef in Número ou nome da barra de menu ou referência de Menu
processo  Inteiro longo in Número de referência de processo
Operador in Guardar estado da barra de menu

MENU BAR substitui a barra de menus atual com a especificada por barra no processo atual unicamente. No parâmetro barra, pode passar o número ou nome da nova barra. Igualmente pode passar uma referência única de menu (tipo MenuRef, string de 16 caracteres). Quando trabalha com referências, os menus podem ser utilizados como barras de menu e vice-versa (ver a seção Gestão de Menus).

Nota: o nome de uma barra de menus pode conter até 31 caracteres e deve ser único.

Se passa o parâmetro opcional processo modifica a barra de menus do processo especificado por barra.

Nota: se passa um parâmetro MenuRef em barra, o parâmetro processo é inútil e é ignorada.

O parâmetro opcional * lhe permite conservar o estado da barra de menus. Se este parâmetro é omitido, MENU BAR reinicializa a barra de menus quando o comando é executado.

Por exemplo, imagine que SET MENU BAR(1) é executado. Depois, vários comandos de menu são desativados utilizando o comando DISABLE MENU ITEM.

Se SET MENU BAR(1) é executado uma segunda vez, desde o mesmo processo ou desde um processo diferente, todos os comandos de menu regressarão a seu estado de ativação inicial.

Se SET MENU BAR(1;*) é executado, a barra de menus conservará seu estado anterior, e os comandos de menu que estavam inativos permanecerão inativos.

Nota: se passa um parâmetro MenuRef em barra, o parâmetro * é inútil e será ignorada.

Quando um usuário entra ao ambiente Aplicação, é mostrada a primeira barra de menus (Barra #1). Pode mudar esta barra de menus por padrão abrindo o banco e especificando a barra de menus desejada no Método banco de dados On Startup ou no método de início associado a um usuário individual.

O exemplo a seguir modifica a barra de menus atual pela barra de menus #3 e restabelece o estado dos comandos de menu a seus estados originais:

 SET MENU BAR(3)

O exemplo a seguir modifica a barra de menus atual pela barra de menus chamada “BarraForm1” e salva o estado dos comandos de menus. Comandos de menus que foram desativados previamente aparecerão inativos.

 SET MENU BAR("BarraForm1";*)

O exemplo a seguir substitui a barra de menus atual pela barra de menus #3 enquanto os registros são modificados. Uma vez os registros sejam modificados, a barra de menus #2 é restaurada. O estado dos comandos de menu é conservado:

 SET MENU BAR(3)
 ALL RECORDS([Clientes])
 MODIFY SELECTION([Clientes])
 SET MENU BAR(2;*)

Neste exemplo, criaremos por programação, uma barra de menus incluindo os seguintes menus Arquivo e Edição:

  `Método de criação menu Arquivo
 C_STRING(16;MenuArquivo` MenuArquivo conterá a referência de menu Arquivo
 MenuArquivo:=Create menu
 INSERT MENU ITEM(MenuArquivo;-1;"Meu banco de dados "+Get indexed string(131;29))
 SET MENU ITEM MARK(MenuArquivo;1;Char(18))
 INSERT MENU ITEM(MenuArquivo;-1;"(-")
 INSERT MENU ITEM(MenuArquivo;-1;"Sair do modo Test Application mode/Y")+++
 SET MENU ITEM PROPERTY(MenuArquivo;3;Associated standard action;Return to Design mode)
 INSERT MENU ITEM(MenuArquivo;-1;"(-")
 INSERT MENU ITEM(MenuArquivo;-1;Get indexed string(131;26))
 SET MENU ITEM PROPERTY(MenuArquivo;6;Associated standard action;Preferences Action`Preferências
 INSERT MENU ITEM(MenuArquivo;-1;"(-")
 INSERT MENU ITEM(MenuArquivo;-1;Get indexed string(131;30))
 SET MENU ITEM PROPERTY(MenuArquivo;7;Associated standard action;Quit action`Sair
 SET MENU ITEM SHORTCUT(MenuArquivo;7;Character code("Q"))
 
  `Método de criação do menu Procurar e substituir
 C_STRING(16;MenuProcurareSubstituir)
  `MenuProcurareSubstituir conterá a referência do menu Procurar e substituir
 MenuProcurarSubstituir:=Create menu
 APPEND MENU ITEM(MenuProcurareSubstituir;"Procurar;Procurar Próximo;Procurar anterior;(-;Substituir;Substituir próximo;Substituir anterior")
 SET MENU ITEM SHORTCUT(MenuProcurareSubstituir;1;Character code("F"))
 SET MENU ITEM SHORTCUT(MenuProcurareSubstituir;5;Character code("R"))
 SET MENU ITEM METHOD(MenuProcurareSubstituir;1;"MeuMetodoProcurar")
 
  `Método de criação do menu Edição
 C_STRING(16;MenuEdição`EditMenu conterá a referência do menu Edição
 MenuEdição:=Create menu
 APPEND MENU ITEM(MenuEdição;"Cortar;Copiar;Colar")
 SET MENU ITEM SHORTCUT(MenuEdição;1;Character code("X"))
 SET MENU ITEM PROPERTY(MenuEdição;1;Associated standard action;Cut action)
 SET MENU ITEM SHORTCUT(MenuEdição;2;Character code("C"))
 SET MENU ITEM PROPERTY(MenuEdição;2;Associated standard action;Copy action)
 SET MENU ITEM SHORTCUT(MenuEdição;3;Character code("V"))
 SET MENU ITEM PROPERTY(MenuEdição;3;Associated standard action;Paste action)
 INSERT MENU ITEM(MenuEdição;-1;"(-")
 INSERT MENU ITEM(MenuEdição;-1;"Procurar e substituir";MenuProcurareSubstituir) ` línha que terá o submenu
 
 main_Bar:=Create menu ` Criar a barra de menus com os outros menus
 INSERT MENU ITEM(main_Bar;-1;Get indexed string(79;1);MenuArquivo)
 APPEND MENU ITEM(main_Bar;"Edição";MenuEdição)
 
 SET MENU BAR(main_Bar)

 
PROPRIEDADES 

Produto: 4D
Tema: Menus
Número 67

 
HISTÓRIA 

Modificado: 4D v11 SQL

 
VER TAMBÉM 

Gestão de Menus

 
ARTICLE USAGE

Manual de linguagem 4D ( 4D v12.4)
Manual de linguagem 4D ( 4D v14 R3)
Manual de linguagem 4D ( 4D v14 R2)
Manual de linguagem 4D ( 4D v13.5)
Manual de linguagem 4D ( 4D v14.3)
Manual de linguagem 4D ( 4D v14 R4)

Parent of : SET MENU BAR ( 4D v11 SQL Release 6)