TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Ricardo Mansano Godoi

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Acacio Fernandes Egas Junior

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
TMenu
TMenu

Classe: TMenu

Cria um objeto do tipo menu.

Hierarquia

TSrvObject -> TControl -> TMenu


Construtores
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

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

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

 

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