Histórico da Página

Composition Setup
import.css=/download/attachments/327912/newLayout.css

Portuguese

Pagetitle

	TMsgItem
	TMsgItem

Colapse ALL

Expand ALL

Classe: TMsgItem

Cria um objeto do tipo subitem da barra de status.

Hierarquia

TSrvObject -> TControl -> TMsgItem

Construtores

New

Método construtor da classe.

Sintaxe

TMsgItem(): New ( [ oMsgBar], [ cMsg], [ nSize], [ oFont], [ nClrText], [ uParam6], [ lAdd], [ bAction], [ cResource] ) --> oObjeto

Parâmetros

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.

Retorno

oObjeto

Retorna o objeto criado.

Exemplos

oTMsgItem2 := TMsgItem():New( oTMsgBar,'oTMsgItem2', 100,oFont,CLR_HRED,,;        .T., {||Alert("Clique na barra de status")} )

Métodos

SetText

Define o texto do item.

Sintaxe

TMsgItem(): SetText ( < cTexto> ) -->

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cTexto	Caracter	Indica o texto para o item.	X

Exemplos

oTMsgItem2:SetText( "Novo Texto" )

Propriedade

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

Exemplos

#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

Preview

Exemplo da classe TMsgItem