Classe: TMsgItem
Cria um objeto do tipo subitem da barra de status.
TSrvObject -> TControl -> TMsgItem
New
Método construtor da classe.
TMsgItem(): New ( [ oMsgBar], [ cMsg], [ nSize], [ oFont], [ nClrText], [ uParam6], [ lAdd], [ bAction], [ cResource] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
oMsgBar | Objeto | Indica o objeto do tipo TMsgBar utilizado para criar um controle visual do tipo rodapé. | ||
cMsg | Caracter | Indica o texto do item. | ||
nSize | Numérico | Indica a largura do item. | ||
oFont | Objeto | Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. | ||
nClrText | Numérico | Indica a cor do texto do item. | ||
uParam6 | Numérico | Compatibilidade. | ||
lAdd | Lógico | Indica se, verdadeiro (.T.), o item é incluído; caso contrário, falso (.F.). | ||
bAction | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão. | ||
cResource | Caracter | Indica o nome do recurso que contém a imagem. Este recurso deve estar compilado,no repositório de imagens, para ser utilizado. |
-
oObjeto(objeto)
- Retorna o objeto criado.
oTMsgItem2 := TMsgItem():New( oTMsgBar,'oTMsgItem2', 100,oFont,CLR_HRED,,; .T., {||Alert("Clique na barra de status")} )
SetText
Define o texto do item.
TMsgItem(): SetText ( < cTexto> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
cTexto | Caracter | Indica o texto para o item. | X |
oTMsgItem2:SetText( "Novo Texto" )
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