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 2 Próxima »

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

Exemplos 
#include "TOTVS.CH"User Function TMsgBar()  DEFINE DIALOG oDlg TITLE "Exemplo TMsgBar" FROM 180,180 TO 550,700 PIXEL	    // Cria barra de status    oFont := TFont():New('Courier new',,-14,.T.)    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