TOTVSTEC

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 5 minutos

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Próxima »

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

  • Sem rótulos