Á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

Versão 1 Próxima »

Classe: TMsgBar

Cria um objeto do tipo barra de status.


TSrvObject -> TControl -> TMsgBar


New

New

Método construtor da classe.


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


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.
    oObjeto(objeto)
  • Retorna o objeto criado.

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

SetMsg

Altera a descrição da barra de status.


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


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

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

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

#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

Exemplo da classe TMsgBar

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • Sem rótulos