Classe: TMenu
Cria um objeto do tipo menu.
TSrvObject -> TControl -> TMenu
New
Método construtor da classe.
TMenu(): New ( [ nTop], [ nLeft], [ nHeight], [ nWidth], [ lPopUp], [ cBmpName], [ oWnd], [ nClrNoSelect], [ nClrSelect], [ cArrowUpNoSel], [ cArrowUpSel], [ cArrowDownNoSel], [ cArrowDownSel] ) --> oObjeto
| Nome | Tipo | Descrição | Obrigatório | Referência |
| nTop | Numérico | Indica a coordenada vertical em pixels. | ||
| nLeft | Numérico | Indica a coordenada horizontal em pixels. | ||
| nHeight | Numérico | Indica a altura em pixels do objeto. | ||
| nWidth | Numérico | Indica a largura em pixels do objeto. | ||
| lPopUp | Lógico | Indica se o objeto será Pop-up. | ||
| cBmpName | Caracter | Indica o nome da imagem que será utilizada no menu. | ||
| oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | ||
| nClrNoSelect | Numérico | Indica o nome da cor que será utilizada quando o item não é selecionado. | ||
| nClrSelect | Numérico | Indica o nome da cor que será utilizada quando o item é selecionado. | ||
| cArrowUpNoSel | Caracter | Indica a imagem seta para cima quando o item não é selecionado. | ||
| cArrowUpSel | Caracter | Indica a imagem seta para cima quando o item é selecionado. | ||
| cArrowDownNoSel | Caracter | Indica a imagem seta para baixo quando o item não é selecionado. | ||
| cArrowDownSel | Caracter | Indica a imagem seta para baixo quando o item é selecionado. |
oObjeto
- (objeto)
- Retorna o objeto criado.
oMenuMain := TMenu():New( 0,0,0,0,.F.,"",oDlg,CLR_WHITE,CLR_BLACK)
Add
Inclui item e subitem ao menu.
TMenu(): Add ( ) --> oMenu
oMenu
- (objeto)
- Retorna um objeto do tipo TMenuItem que é utilizado para criar item e subitem de menu.
oMenuMain:Add( TMenuItem():New2( oMenuMain:Owner(),'Item 001','',,,) )
RemoveItem
Remove um item do menu.
TMenu(): RemoveItem ( < oMenu> ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| oMenu | Objeto | Indica o objeto do tipo TMenuItem que será removido. | X |
oMenuMain:RemoveItem( oMenuItem1 )
SetImageName
Define a imagem de fundo do menu.
TMenu(): SetImageName ( [ cImage] ) -->
| Nome | Tipo | Descrição | Obrigatório | Referência |
| cImage | Caracter | Indica 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. |
oMenuMain:SetImageName( "menu_background.png" )
Exemplo do método SetImageName
#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 ReturnExemplo da classe TMenu
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Em builds superiores à 120420A foi implementado o evento de wheel (roda do mouse), permitindo movimentar os itens do componente à partir deste dispositivo.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas