TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Acacio Fernandes Egas Junior

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Fernando Henrique Lubianco

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle
Classe TMenu

...

Classe

...

TMenu

Cria

...

um

...

objeto

...

do

...

tipo

...

menu.

Hierarquia

...

...

    • TMenu

Construtores

Inclusão de trecho
Classe TMenu - Construtores
Classe TMenu - Construtores
nopaneltrue

Métodos

Inclusão de trecho
Classe TMenu - Métodos
Classe TMenu - Métodos
nopaneltrue

Observações

  • Em builds superiores à 120420A foi implementado o evento de wheel (roda do mouse), permitindo movimentar os itens do componente à partir deste dispositivo.

Exemplos

Bloco de código
languagecpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
  #include "TOTVS.CH"
New

New

Método construtor da classe.

Sintaxe

TMenu(): New ( [ nTop], [ nLeft], [ nHeight], [ nWidth], [ lPopUp], [ cBmpName], [ oWnd], [ nClrNoSelect], [ nClrSelect], [ cArrowUpNoSel], [ cArrowUpSel], [ cArrowDownNoSel], [ cArrowDownSel] ) --> oObjeto

Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
nTopNuméricoIndica a coordenada vertical em pixels.  
nLeftNuméricoIndica a coordenada horizontal em pixels.  
nHeightNuméricoIndica a altura em pixels do objeto.  
nWidthNuméricoIndica a largura em pixels do objeto.  
lPopUpLógicoIndica se o objeto será Pop-up.  
cBmpNameCaracterIndica o nome da imagem que será utilizada no menu.  
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.  
nClrNoSelectNuméricoIndica o nome da cor que será utilizada quando o item não é selecionado.  
nClrSelectNuméricoIndica o nome da cor que será utilizada quando o item é selecionado.  
cArrowUpNoSelCaracterIndica a imagem seta para cima quando o item não é selecionado.  
cArrowUpSelCaracterIndica a imagem seta para cima quando o item é selecionado.  
cArrowDownNoSelCaracterIndica a imagem seta para baixo quando o item não é selecionado.  
cArrowDownSelCaracterIndica a imagem seta para baixo quando o item é selecionado.  

 

Retorno
oObjeto
    (objeto)
  • Retorna o objeto criado.
Exemplos
oMenuMain := TMenu():New( 0,0,0,0,.F.,"",oDlg,CLR_WHITE,CLR_BLACK)
Métodos
Add

Add

Inclui item e subitem ao menu.

Sintaxe

TMenu(): Add ( ) --> oMenu

Retorno
oMenu
    (objeto)
  • Retorna um objeto do tipo TMenuItem que é utilizado para criar item e subitem de menu.
Exemplos
oMenuMain:Add( TMenuItem():New2( oMenuMain:Owner(),'Item 001','',,,) )
RemoveItem

RemoveItem

Remove um item do menu.

Sintaxe

TMenu(): RemoveItem ( < oMenu> ) -->

Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
oMenuObjetoIndica o objeto do tipo TMenuItem que será removido.X 

 

Exemplos
oMenuMain:RemoveItem( oMenuItem1 )
Reset

Reset

Exclui os itens do menu.

Sintaxe

TMenu(): Reset ( ) -->

Exemplos
oMenuMain:Reset()
SetImageName

SetImageName

Define a imagem de fundo do menu.

Sintaxe

TMenu(): SetImageName ( [ cImage] ) -->

Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
cImageCaracterIndica o nome da imagem de fundo do menu. Observação: Antes de definir uma imagem para o objeto, é necessário que a mesma esteja compilada no repositório.  

 

Exemplos
oMenuMain:SetImageName( "menu_background.png" )
Preview
Exemplo do método SetImageName
Image Removed
Exemplos
#include "TOTVS.CH"
User Function TMenu()  
 

  DEFINE DIALOG oDlg TITLE "Exemplo TMenu" FROM 180,180 TO 550,700 PIXEL
      
   

oMenuMain := TMenu():New( 0,0,0,0,.F.,'',oDlg,CLR_WHITE,CLR_BLACK)    
   
   

// Adiciona item ao menu principal    
   

oMenuDiv := TMenuItem():New2( oMenuMain:Owner(),'Item 001','',,,)    
  

 oMenuMain:Add( oMenuDiv )                              
   
   

// Adiciona sub-Itens                 
   

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


   oMenuDiv:Add( oMenuItem1 )                              
  

 oMenuItem2 := TMenuItem():New2( oMenuMain:Owner(),'Sub-Item 002'
; 
,,,{||Alert('TMenuItem 2')})    


   oMenuDiv:Add( oMenuItem2 )     
   
   

ACTIVATE DIALOG oDlg CENTERED 
  

Return
Preview
Exemplo da classe TMenu

Resultado do Exemplo

Image Modified

Abrangência

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

...

 

Observação

...