Histórico da Página
...
Portuguese | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Classe: TMenuBarCria um objeto do tipo barra de menu. TSrvObject -> TControl -> TMenuBar NewMétodo construtor da classe.TMenuBar(): New ( [ oWnd] ) --> oObjeto
oObjeto
oTMenuBar := TMenuBar():New(oDlg) AddItemInclui um novo item ao menu.TMenuBar(): AddItem ( [ cTitulo], [ oMenu], [ lMenu] ) -->
oTMenu := TMenu():New(0,0,0,0,.T.,,oDlg) AddMenuItemInclui um novo item ao menu da barra superior.TMenuBar(): AddMenuItem ( [ cTitulo], [ oMenu] ) -->
// Cria objeto TMenu Exemplo do método AddMenuItem ResetExclui todas as opções do menu.TMenuBar(): Reset ( ) --> oTMenuBar:reset() SetDefaultUpDireciona o menu para cima.TMenuBar(): SetDefaultUp ( [ isDefUp] ) -->
oTMenuBar:SetDefaultUp( .T. ) Exemplo do método SetDefaultUp A classe "TMenuBar" já é criada com o alinhamento "CONTROL_ALIGN_TOP". Quando utilizada com a classe "TWindow" a redundacia deste alinhamento retira o Objeto da area de Menu (Será apresentada uma area em branco acima do menu). #include "TOTVS.CH" Exemplo da classe TMenuBar Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas