TOTVSTEC

Árvore de páginas

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 4 Atual »

Classe: TMsgBar

Cria um objeto do tipo barra de status.

Hierarquia

TSrvObject -> TControl -> TMsgBar


Construtores
New

New

Método construtor da classe.


Sintaxe

TMsgBar(): New ( [ oWnd], [ cPrompt], [ uParam3], [ uParam4], [ uParam5], [ uParam6], [ nClrFore], [ uParam8], [ oFont], [ uParam10], [ cImageName] ) --> oObjeto


Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde objeto será criado.  
cPromptCaracterIndica a descrição que será apresentada na barra de status.  
uParam3LógicoCompatibilidade.  
uParam4LógicoCompatibilidade.  
uParam5LógicoCompatibilidade.  
uParam6LógicoCompatibilidade.  
nClrForeNuméricoIndica a cor da fonte que será utilizada na barra.  
uParam8NuméricoCompatibilidade.  
oFontObjetoIndica o objeto do tipo TFont utilizado para definir as características da fonte aplicada para exibir o conteúdo do controle visual.  
uParam10LógicoCompatibilidade.  
cImageNameCaracterIndica a imagem que será incluída na lateral esquerda.  

 

Retorno
oObjeto
    (objeto)
  • Retorna o objeto criado.

Exemplos
oTMsgBar := TMsgBar():New(oDlg, 'MP10 | Totvs/Software',;        .F.,.F.,.F.,.F., RGB(116,116,116),,oFont,.F.)

Métodos
SetMsg

SetMsg

Altera a descrição da barra de status.


Sintaxe

TMsgBar(): SetMsg ( [ cText] ) -->


Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
cTextCaracterIndica o texto que será incluído na barra de status.  

 


Exemplos
oTMsgBar:SetMsg("Novo texto para barra de status")

Propriedade

 

PropriedadeDescriçãoTipo
aItemIndica um array do objeto, do tipo TMsgItem, que permite criar subitens da barra de status.Vetor
cMsgDefIndica o texto padrão definido.Caracter
Exemplo
#INCLUDE "TOTVS.CH"

USER FUNCTION TMsgBar()
	DEFINE DIALOG oDlg TITLE "Exemplo TMsgBar" FROM 180,180 TO 550,700 PIXEL

	oFont := TFont():New('Courier new',,-14,.T.)

	// Cria barra de status
	oTMsgBar := TMsgBar():New(oDlg, 'MP10 | Totvs/Software',;
			.F.,.F.,.F.,.F., RGB(116,116,116),,oFont,.F.)

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

	ACTIVATE DIALOG oDlg CENTERED 
RETURN

 


Preview
Exemplo da classe TMsgBar

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

 

  • Sem rótulos