TOTVSTEC

Árvore de páginas

Cria um objeto do tipo barra de status.

Hierarquia

Construtores

Propriedades

Métodos

Exemplos

Exemplo 1
  #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

Resultado do Exemplo

Abrangência

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

  • Sem rótulos