Histórico da Página

portuguese

Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Colapse ALL

Expand ALL

Pagetitle

	Classe TMenuItem

...

Classe

...

TMenuItem

Cria

...

um

...

objeto

...

do

...

tipo

...

menu/item

...

de

...

menu.

Hierarquia

TControl
- TMenuItem

Construtores

Inclusão de trecho

	Classe TMenuItem - Construtores
	Classe TMenuItem - Construtores
nopanel	true

Propriedades

Inclusão de trecho

	Classe TMenuItem - Propriedades
	Classe TMenuItem - Propriedades
nopanel	true

Métodos

Inclusão de trecho

	Classe TMenuItem - Métodos
	Classe TMenuItem - Métodos
nopanel	true

Exemplos

Bloco de código

language	cpp
theme	Eclipse
title	Exemplo 1
linenumbers	true
collapse	false

  #include "TOTVS.CH"

  User Function TMenu()

TSrvObject -> TControl -> TMenuItem

Construtores

New

Inicia uma nova instância da classe TMenuItem.

Sintaxe

TMenuItem(): New ( < oParent>, [ cTitle], [ cParam3], [ lParam4], [ lActive], [ bAction], [ cParam7], [ cResName], [ nParam9], [ cParam10], [ lParam11], [ nParam12], [ bParam13], [ lParam14], [ lPopup] ) --> oRetorno

Importante

O método NEW deve ser o utilizado para a criação de menus suspensos, sendo que o método NEW2 não possui em seu construtor o parâmetro lPopup.

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
oParent	Objeto	Indica o controle visual onde o objeto será criado.	X
cTitle	Caracter	Indica o texto do item.
cParam3	Caracter	Compatibilidade.
lParam4	Lógico	Compatibilidade.
lActive	Lógico	Indica se, verdadeiro (.T.), o item está ativo; caso contrário, falso (.F.).
bAction	Bloco de código	Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto.
cParam7	Caracter	Compatibilidade.
cResName	Caracter	Indica a imagem, do repositório, que será apresentada quando o ponteiro do mouse não estiver posicionado sobre o item.
nParam9	Numérico	Compatibilidade.
cParam10	Caracter	Compatibilidade.
lParam11	Lógico	Compatibilidade.
nParam12	Numérico	Compatibilidade.
bParam13	Bloco de código	Compatibilidade.
lParam14	Lógico	Compatibilidade.
lPopup	Lógico	Indica se, verdadeiro (.T.), o item faz parte de um popup; caso contrário, falso (.F.).

Retorno

oRetorno

(objeto)

Retorna o objeto criado.

New2

Inicia uma nova instância da classe TMenuItem.

Sintaxe

TMenuItem(): New2 ( [ oParent], [ cTitle], [ cParam3], [ lActive], [ bAction], [ cResName], [ cResHover], [ nClrNoSelect], [ nClrSelect], [ cArrowRightNoSel], [ cArrowRightSel], [ cArrowDownNoSel], [ cArrowDownSel], [ cResSelected], [ cResSelDetail], [ nPosSelDetail], [ lSelected] ) --> oObjeto

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
oParent	Objeto	Indica a janela ou controle visual onde o objeto será criado.
cTitle	Caracter	Indica o texto do item.
cParam3	Caracter	Compatibilidade.
lActive	Lógico	Indica se, verdadeiro (.T.), o item está ativo; caso contrário, falso (.F.).
bAction	Bloco de código	Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto.
cResName	Caracter	Indica a imagem, do repositório, que será apresentada quando o ponteiro do mouse não estiver posicionado sobre o item.
cResHover	Caracter	Indica a imagem, do repositório, que será apresentada quando o ponteiro do mouse estiver posicionado sobre o item.
nClrNoSelect	Numérico	Indica a cor do item que não está selecionado.
nClrSelect	Numérico	Indica a cor do item quando selecionado.
cArrowRightNoSel	Caracter	Indica a imagem do repositório, no formato de seta para a direita, que será apresentada quando o item estiver fechado e não selecionado. Observação: Essa imagem é apresentada quando o item contém subitens.
cArrowRightSel	Caracter	Indica a imagem do repositório, no formato de seta para a direita, que será apresentada quando o item estiver fechado e selecionado. Observação: Essa imagem é apresentada quando o item contém subitens.
cArrowDownNoSel	Caracter	Indica a imagem do repositório, no formato de seta para baixo, que será apresentada quando o item estiver aberto e não selecionado. Observação: Essa imagem é apresentada quando o item contém subitens.
cArrowDownSel	Caracter	Indica a imagem do repositório, no formato de seta para baixo, que será apresentada quando o item estiver aberto e selecionado. Observação: Essa imagem é apresentada quando o item contém subitens.
cResSelected	Caractere	Nome do resource a ser usado como fundo quando o item for selecionado (clicado). Disponível apenas em build superior a 7.00.121227P.
cResSelDetail	Caractere	Nome do resource a ser usado como detalhe (canto esquerdo ou direito) do item quando estiver selecionado (clicado). O resource pode conter transparência para não sobrepor totalmente o resource de fundo. Disponível apenas em build superior a 7.00.121227P.
nPosSelDetail	Numérico	Código da posição em que o resource de detalhe quando selecionado ficará, sendo 0 para esquerda e 1 para direita. Disponível apenas em build superior a 7.00.121227P.
lSelected	Lógico	Indica se este item já vira selecionado por padrão. Disponível apenas em build superior a 7.00.121227P.

Retorno

oObjeto

(objeto)

Retorna o objeto criado.

Métodos

Add

Adiciona um subitem ao menu.

Sintaxe

TMenuItem(): Add ( [ oMenu] ) -->

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
oMenu	Objeto	Indica o objeto do tipo TMenuItem utilizado para incluir um item ou subitem de menu.

Exemplos

oMenuDiv:Add( TMenuItem():New2( oMenuMain:Owner(),'Sub-Item 001';              ,,,{||Alert('TMenuItem 1')} )

AddSeparator

Adiciona um separador no menu.

Sintaxe

TMenuItem(): AddSeparator ( ) -->

SetActive

Ativa a opção do menu com o clique do mouse.

Sintaxe

TMenuItem(): SetActive ( ) -->

Exemplos

oMenuDiv:SetActive()

Propriedade

Propriedade	Descrição	Tipo
aItems	Indica o array que contêm os subitens do tipo TMenuItem.	Vetor
bAction	Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto.	Bloco de código
lChecked	Indica se, verdadeiro (.T.), o item está com status de verificado.	Lógico
oMenu	Indica o objeto do tipo TMenu utilizado para incluir o menu.	Objeto
lSelected	Indica se o item está ou não selecionado. Disponível apenas em build superior a 7.00.121227P.	Lógico

Exemplos

User Function TMenu()

  local oDialog := nillocal


    oFolder := nillocal


    aFnctns := __funArr()


    aScan(aFnctns, {|x|lower(x[1]) == "tmenuitem"})


    
    // cria a

janela do teste

janela do teste 
    oDialog := msDialog():new(0, 0, 600, 800, , , , , , , , , , .T.)


    
    oDialog:lCentered := .T.


    // centraliza a janela e ignora a definição anterior de nTop e nLeft


    // cria as pastas

 
    oFolder := tFolder():New(, , , , oDialog, , , , , , , , , )

 
    oFolder:nLeft   := 5

  
    oFolder:nTop    := 5

  
    oFolder:nWidth  := oDialog:nClientWidth - 10

  
    oFolder:nHeight := oDialog:nClientHeight - 10

 
    oFolder:AddItem("tButton", .T.)

 
    oFolder:AddItem("tMenu", .T.)

 
    oFolder:AddItem("tMenuBar", .T.)


  
    // tButton

  
    exemploa(oFolder:aDialogs[1])



    // tMenu

  
    exemplob(oFolder:aDialogs[3])



    // tMenuBar

 
    exemploc(oFolder:aDialogs[2])



    // apresenta a janela

 
    oDialog:activate()

return


  return

  static function exemploa(oParent)


    local oMenu := nil


    local oButton1 := nil, oMenu01 := nil, oMenu0101 := nil, oMenu0102 := nil, oMenu0103 := nil


    local oButton2 := nil, oMenu02 := nil, oMenu0201 := nil, oMenu0202 := nil, oMenu0203 := nil


    local oButton3 := nil, oMenu03 := nil, oMenu0301 := nil, oMenu0302 := nil, oMenu0303 := nil

   local oSubMenu := nil
    
    // cria os menus

  
    oMenu01 := tMenu():new(0, 0, 0, 0, .T., , oMenu)

  
    oMenu02 := tMenu():new(0, 0, 0, 0, .T., , oMenu)

  
    oMenu03 := tMenu():new(0, 0, 0, 0, .T., , oMenu)


    
    // cria os itens dos menus

  
    oMenu0101 := tMenuItem():new(oMenu01, "Menu 01, item 01", , , , {|| }, , , , , , , , , .T.)

 
    oMenu0102 := tMenuItem():new(oMenu01, "Menu 01, item 02", , , , {||msgInfo("Menu 01, item 02")}, , , , , , , , , .T.)

 
    oMenu0103 := tMenuItem():new(oMenu01, "Menu 01, item 03", , , .F., {||msgInfo("Menu 01, item 03")}, , , , , , , , ,

.T.)

 .T.)  
    oMenu0201 := tMenuItem():new(oMenu02, "Menu 02, item 01", , , , {||msgInfo("Menu 02, item 01")}, , , , , , , , , .T.)

 
    oMenu0202 := tMenuItem():new(oMenu02, "Menu 02, item 02", , , , {||msgInfo("Menu 02, item 02")}, , , , , , , , , .T.)

 
    oMenu0203 := tMenuItem():new(oMenu02, "Menu 02, item 03", , , , {||msgInfo("Menu 02, item 03")}, , , , , , , , , .T.)

 
    oMenu0301 := tMenuItem():new(oMenu03, "Menu 03, item 01", , , , {||msgInfo("Menu 03, item 01")}, , , , , , , , , .T.)

 
    oMenu0302 := tMenuItem():new(oMenu03, "Menu 03, item 02", , , .F., {||msgInfo("Menu 03, item 02")}, , , , , , , , , .T.)

  
    oMenu0303 := tMenuItem():new(oMenu03, "Menu 03, item 03", , , , {||msgInfo("Menu 03, item 03")}, , , , , , , , , .T.)


    
    // adiciona os itens dos menus

  
    oMenu01:add(oMenu0101)

  
    
    // cria um subitem de um

submenu

 submenu    
    oSubMenu := tMenuItem():new(oMenu0101, "SubMenu 01, item 01", , , , {||msgInfo("SubMenu 01, item 01")}, , , , , , , , , .T.)

  
    
    // adiciona o subitem do submenu

    
    oMenu0101:add(oSubMenu)

 
    oMenu01:add(oMenu0102)

  
    oMenu01:add(oMenu0103)

  
    oMenu02:add(oMenu0201)

  
    oMenu02:add(oMenu0202)

  
    oMenu02:add(oMenu0203)

  
    oMenu03:add(oMenu0301)

  
    oMenu03:add(oMenu0302)

  
    oMenu03:add(oMenu0303)


    
    // cria os botões que receberão os menus

  
    oButton1 := tButton():create(oParent)

 
    oButton1:cCaption := "Button 01"

  
    oButton1:nWidth   := 100

  
    oButton1:nTop     := 30

 
    oButton1:nLeft    := 10

 
    oButton1:bAction  := {|| }

  
    oButton1:setPopupMenu(oMenu01)

  
    oButton2 := tButton():create(oParent

)

) 
    oButton2:cCaption := "Button 02"

  
    oButton2:nWidth   := 100

  
    oButton2:nTop     := oButton1:nBottom + 10

  
    oButton2:nLeft    := 10

 
    oButton2:bAction  := {|| }

  
    oButton2:setPopupMenu(oMenu02)

  
    oButton3 := tButton():create(oParent)

 
    oButton3:cCaption := "Button 03"

  
    oButton3:nWidth   := 100

  
    oButton3:nTop     := oButton2:nBottom + 10

  
    oButton3:nLeft    := 10

 
    oButton3:bAction  := {|| }

  
    oButton3:setPopupMenu(oMenu03)

return


  return
  
  static function exemplob(oParent)


    local oMenu := nil


    local oMenu01 := nil, oMenu0101 := nil, oMenu0102 := nil, oMenu0103 := nil


    local oMenu02 := nil, oMenu0201 := nil, oMenu0202 := nil, oMenu0203 := nil


    local oMenu03 := nil, oMenu0301 := nil, oMenu0302 := nil, oMenu0303 := nil


    local oSubMenu := nil

 
    oMenu := tMenu():new(0, 0, 0, 0, .F., "", oParent)


    
    // cria os submenus utilizando o construtor new

 
    oMenu01 := tMenuItem():new(oMenu, "Menu 01")


    
    // cria os submenus utilizando o construtor new2

  
    oMenu02 := tMenuItem():new2(oMenu, "Menu 02")

 
    oMenu03 := tMenuItem():new2(oMenu, "Menu 03")


    
    // cria os itens dos submenus utilizando o construtor new2

  
    oMenu0101 := tMenuItem():new(oMenu01, "Menu 01, item 01", , , , {|| })

  
    
    // cria um subitem de um submenu

    
    oSubMenu := tMenuItem():new(oMenu0101, "SubMenu 01, item 01", , , , {||msgInfo("SubMenu 01, item 01")})

 
    
    // adiciona o subitem do submenu

    
    oMenu0101:add(oSubMenu)

 
    oMenu0102 := tMenuItem():new2(oMenu01, "Menu 01, item 02", , , {||msgInfo("Menu 01, item 02")})

 
    oMenu0103 := tMenuItem():new2(oMenu01, "Menu 01, item 03", , .F., {||msgInfo("Menu 01, item 03")})

  
    oMenu0201 := tMenuItem():new2(oMenu02, "Menu 02, item 01", , , {||msgInfo("Menu 02, item 01")})

 
    oMenu0202 := tMenuItem():new2(oMenu02, "Menu 02, item 02", , , {||msgInfo("Menu 02, item 02")})

 
    oMenu0203 := tMenuItem():new2(oMenu02, "Menu 02, item 03", , , {||msgInfo("Menu 02, item 03")})


    
    // cria os itens dos submenus utilizando o construtor new

 
    oMenu0301 := tMenuItem():new(oMenu03, "Menu 03, item 01", , , , {||msgInfo("Menu 03, item 01")})

  
    oMenu0302 := tMenuItem():new(oMenu03, "Menu 03, item 02", , , .F., {||msgInfo("Menu 03, item 02")})

 
    oMenu0303 := tMenuItem():new(oMenu03, "Menu 03, item 03", , , , {||msgInfo("Menu 03, item 03")})


    
    // adiciona os itens dos

submenus

 submenus 
    oMenu01:add(oMenu0101)

  
    oMenu01:add(oMenu0102)

  
    oMenu01:add(oMenu0103)

  
    oMenu02:add(oMenu0201)

  
    oMenu02:add(oMenu0202)

  
    oMenu02:add(oMenu0203)

  
    oMenu03:add(oMenu0301)

  
    oMenu03:add(oMenu0302)

  
    oMenu03:add(oMenu0303)


    
    // adiciona os submenus ao menu principal

 
    oMenu:add(oMenu01)

  
    oMenu:add(oMenu02)

  
    oMenu:add(oMenu03)

return


  return
  
  static function exemploc(oParent)


    local oMenu := nillocal oMenu01 := nil, oMenu0101 := nil, oMenu0102 := nil, oMenu0103 := nil


    local oMenu02 := nil, oMenu0201 := nil, oMenu0202 := nil, oMenu0203 := nil

   local oMenu03 := nil, oMenu0301 := nil, oMenu0302 := nil, oMenu0303 := nil local oSubMenu := nil

  
    oMenu := tMenuBar():new(oParent)


    
    // cria os submenus

 
    oMenu01 := tMenu():new(0, 0, 0, 0, .T., , oMenu)

  
    oMenu02 := tMenu():new(0, 0, 0, 0, .T., , oMenu)

  
    oMenu03 := tMenu():new(0, 0, 0, 0, .T., , oMenu)


  
    // cria os itens dos submenus

 
    oMenu0101 := tMenuItem():new(oMenu01, "Menu 01, item 01", , , , {|| }, , , , , , , , , .T.)

 
    oMenu0102 := tMenuItem():new(oMenu01, "Menu 01, item 02", , , , {||msgInfo("Menu 01, item 02")}, , , , , , , , , .T.)

 
    oMenu0103 := tMenuItem():new(oMenu01, "Menu 01, item 03", , , .F., {||msgInfo("Menu 01, item 03")}, , , , , , , , , .T.)

  
    oMenu0201 := tMenuItem():new(oMenu02, "Menu 02, item 01", , , , {||msgInfo("Menu 02, item 01")}, , , , , , , , , .T.)

 
    oMenu0202 := tMenuItem():new(oMenu02, "Menu 02, item 02", , , , {||msgInfo("Menu 02, item 02")}, , , , , , , , , .T.)

 
    oMenu0203 := tMenuItem():new(oMenu02, "Menu 02, item 03", , , , {||msgInfo("Menu 02, item 03")}, , , , , , , , , .T.)


    oMenu0301 := tMenuItem():new(oMenu03, "Menu 03, item 01", , , , {||msgInfo("Menu 03, item 01")}, , , , , , , , , .T.)


    oMenu0302 := tMenuItem():new(oMenu03, "Menu 03, item 02", , , .F., {||msgInfo("Menu 03, item 02")}, , , , , , , , , .T.)


    oMenu0303 := tMenuItem():new(oMenu03, "Menu 03, item 03", , , , {||msgInfo("Menu 03, item 03")}, , , , , , , , , .T.)


    
    // adiciona os itens dos submenus

dos

submenus

  oMenu01:add(oMenu0101)

  
    
    // cria um subitem de um submenu

    
    oSubMenu := tMenuItem():new(oMenu0101, "SubMenu 01, item 01", , , , {||msgInfo("SubMenu 01, item 01")}, , , , , , , , , .T.)

  
    
    // adiciona o subitem do submenu

    
    oMenu0101:add(oSubMenu)

 
    oMenu01:add(oMenu0102)

  
    oMenu01:add(oMenu0103)

  
    oMenu02:add(oMenu0201)

  
    oMenu02:add(oMenu0202)

  
    oMenu02:add(oMenu0203)

  
    oMenu03:add(oMenu0301)

  
    oMenu03:add(oMenu0302)

  
    oMenu03:add(oMenu0303)


    
    // adiciona os submenus ao menu principal

 
    oMenu:addItem("Menu 01", oMenu01, .T.)

  
    oMenu:addItem("Menu 02", oMenu02, .T.)

  
    oMenu:addItem("Menu 03", oMenu03, .T.)


  return

Preview

Exemplo da classe TMenuItem

Resultado do Exemplo

Image Modified

Abrangência

Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

...

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão 7

Chave

Hierarquia

Construtores

Propriedades

Métodos

Exemplos

New

Inicia uma nova instância da classe TMenuItem.

New2

Inicia uma nova instância da classe TMenuItem.

Add

Adiciona um subitem ao menu.

AddSeparator

Adiciona um separador no menu.

SetActive

Ativa a opção do menu com o clique do mouse.

Resultado do Exemplo

Abrangência