Classe: TMsgItem
Cria um objeto do tipo subitem da barra de status.
TSrvObject -> TControl -> TMsgItem
Propriedade | Descrição | Tipo |
bAction | Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, no cabeçalho do browse. | Bloco de código |
nSize | Indica a largura do item. | Numérico |
oMsgBar | Indica o objeto parente (Pai), do tipo TMsgBar, no qual o TMsgItem foi criado. | Objeto |
#include "TOTVS.CH"User Function TMsgItem() DEFINE DIALOG oDlg TITLE "Exemplo TMsgItem" FROM 180,180 TO 550,700 PIXEL // Cria barra de status oTMsgBar := TMsgBar():New(oDlg, 'MP10 | Totvs/Software',; .F.,.F.,.F.,.F., RGB(116,116,116),,,.F.) // Cria item 01 oTMsgItem1 := TMsgItem():New( oTMsgBar,'oTMsgItem1', 100,,,,; .T., {||} ) // Cria item 02 com mudança de fonte oFont := TFont():New('Courier new',,-14,.T.) oTMsgItem2 := TMsgItem():New( oTMsgBar,'oTMsgItem2', 100,oFont,CLR_HRED,,; .T., {||Alert("Click na barra de status")} ) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TMsgItem
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